Почему не видит конец ТЕКСТОВОГО файла. Паскаль

Question

Почему не видит конец ТЕКСТОВОГО файла. Паскаль

maxdalas Знаток (486), закрыт 3 года назад

Program AB;

uses crt;

var

f1: text;

s1,i,j,c,index,min:integer;

begin
Assign(f1,'INPUT2.TXT'); reset(f1);
c:=0;

while eof(f1)=false do begin
inc(c);
writeln(c);
end;

close(f1);

Получается бесконечный цикл, хотя у меня там такой текст:
Bac52k in bla52ck!
I hit the sack.
I've been 65too long, I'm glad to be back.
I52 bet you know I'm...
Yes, I'm le00t loose
From the n51oose

Answer 1

IDE какой? А потом reset открывает на чтение, но ни где нет этого самого чтения! Вот пример кода, как в TP:

Answer 2

Потому, что ты из файла НИЧЕГО НЕ ЧИТАЕШЬ.
У тебя в цикле НИ ОДНОГО read / readln НЕТ.

P.S. Вместо eof(f1)=false лучше писать not eof(f1)

Answer 3

В цикле нужна строка read или readln
У тебя курсор в файле стоит на месте. Ты его открыл и стоишь на первом символе.
Добавь ещё одну строковую переменную, например ch:string; и вставь в цикл readln(f1,ch); тогда он будет идти в файле по строкам, пока не дойдёт до конца файла.