Question

Дан текстовый файл. Подсчитать количество строк в данном файле. Результат вывести на форму.

Answer 1

 

 

program z1;

var k:integer;

s:string;

f:text;

begin 

assign(f,'input.pas');

reset(f);

k:=0;

while not eof(f) do begin

readln(f,s); k:=k+1;end;

writeln('k=',k);

close(f); 

end.

 

 

Связать логический файл f с физическим файлом input.pas; Открыть файл для чтения; Организовать считывание данных из файла построчно (readln(f,s), где s-переменная типа string), насчитывая на каждом шаге считывания значение переменной-счетчика k; Вывести на экран значение переменной-счетчика; Закрыть файл.