Вопрос № 60936: Почему число не заносится в масив?
(аждая цифра числа дожна занестись одельно в каджую клетку массива)...
Вопрос № 60.936
Почему число не заносится в масив?
(аждая цифра числа дожна занестись одельно в каджую клетку массива)
Приложение:
Отправлен: 01.11.2006, 17:13
Вопрос задал: ataman (статус: 2-ой класс)
Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Олег Владимирович
Здравствуйте, ataman!
А что за файлы number.sol и number.dat?
По всей видимости, из одного из них вам нужно прочитать число. Но оператора чтения нигде нету, поэтому надо добавить в цикл перед val оператор READ(F1{или F2}, G);
Удачи!
--------- Факультет ПМ-ПУ - лучший в СПбГУ!
Ответ отправил: Олег Владимирович (статус: 5-ый класс)
Ответ отправлен: 01.11.2006, 17:41
Отвечает: Юрий Викторович
Здравствуйте, ataman!
нет инициализации переменных g и i, для i, к тому же, надо обеспечить приращение.
Ответ отправил: Юрий Викторович (статус: 1-ый класс)
Ответ отправлен: 01.11.2006, 17:41
Отвечает: sir henry
Здравствуйте, ataman!
Потому что Вы забываете читать число из файла.
Read(Файловая_переменная, Переменная_куда_число_заносится);
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 01.11.2006, 17:43
Отвечает: Wass
Здравствуйте, ataman!Поставь точку с запятой сначала
val(g,a[i],cod)>;<
Приложение:
--------- "Шило в ж**** не помеха.мы студенты ВОЕНМЕХа !!!"
Ответ отправил: Wass (статус: 1-ый класс)
Ответ отправлен: 02.11.2006, 11:18
Отвечает: Gh0stik
Здравствуйте, ataman!
Поскольку все уже было сказано в предыдущих ответах, а у Вас так и не получилось...
То могу привести только код программки:
Const
N = 10;
M =10;
var
f1,f2: text;
i,j,k,kt,Ch,cod: integer;
g:char;
a: array [1..N] of Longint;
b: array [1..10] of Integer;
begin
Assign (f1, 'number.dat');
Reset (f1); i:=1;
while not eof(f1) Do
Begin
read(f1,g);
val(g,a[i],cod);
inc(i);
end;
writeln;
for k:=1 to i-1 do write(a[k]:4);
end.
Удачи!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Практикант)
Ответ отправлен: 02.11.2006, 11:21
Отвечает: olegin
Здравствуйте, ataman!
Ошибка в том что у вас в первом же проходе цикла считывается весь файл
While not EOF(F1) Do
while not eoln (f1) do
Begin
Read (F1,G);
Если для простоты взять за условие что во входном файле каждая цифра в отдельной строке, то можносделать так:
а) изменить тип переменной g на string;G:string;
б) цикл сделать в таком виде:
For i:=1 to N do
Begin
if not EOF(F1) then
Begin
Readln (F1,G);
val(g,a[i],cod);
end;
end;
Ответ отправил: olegin (статус: 3-ий класс)
Ответ отправлен: 02.11.2006, 11:37
