Помогите с паскалем

Question

Помогите с паскалем

Дмитрий Киселев Знаток (342), на голосовании 10 лет назад

Есть документ INPUT.txt
Содержание :

8 15 5
4
4
4
4
4
4
4
4

Где 8- количество четверок
Нужно прочитать первую строку из файла, присвоив 3 значения разным переменным.

Например:
{Считывание данных из файла}
assign (INPUT,'INPUT.txt');
reset (INPUT);
readln (INPUT,x,a,b);
for b:=1 to x+2 do
begin
read(INPUT,c);
mas1:=c;
end;
close (INPUT);
{Считывание данных из файла закончено. Все четверки в массиве}

Такой код не работает. Что посоветуете?

Answer 1

Цикл for b:=1 to x+2 do работает от 1 до 10, а в файле только 8 четвёрок.
И вообще, надо всегда проверять окончание файла функцией Eof(Input).
Читайте:
Песни о Паскале - азбука программиста