Добрый день, уважаемые читатели. Сегодня я выкладываю исходник программы, которая подсчитывает количество строк в текстовом файле input.txt.
Итак, условие задачи на Паскаль:
Дан текстовый файл. Подсчитать количество строк в данном файле.
Исходный код программы:
var k:integer;
s:string;
f:text;
Begin
assign(f,'input.txt');
reset(f);
k:=0;
while not eof(f) do begin
readln(f,s);
k:=k+1;
end;
writeln(k);
close(f);
End.Как видите, реализация очень простая, прочитав уроки по циклам и файлам Паскаль, Вы легко разберетесь в коде программы.
Скачать исходник Pascal: 28m.pas
Кстати, если Вас интересуют грузоперевозки, то посетите сайт logistic.flooring.kz.