Исходник программы, которая считает количество строк в файле

Исходник программы, которая считает количество строк в файле

 

Добрый день, уважаемые читатели. Сегодня я выкладываю исходник программы, которая подсчитывает количество строк в текстовом файле 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.

Автор: Zed от 2014-03-28 18:09:22   Просмотров: 5457

Теги: исходник исходники Паскаль скачать Pascal WHILE файлы