Глава 31

Финал журнальной истории

{пока не конец входного файла... } while not Eof(InFile) do begin

Counter:= Counter+1; { наращиваем счетчик строк }

HandleString; { обрабатываем строку }

{ переход на следующую строку }

if not Eof(InFile) then Readln(InFile);

end;

{ закрываем оба файла } Close(InFile); Close(OutFile);

end.

Итоги

∙Для чтения отдельного слова в строке не годятся ни процедура Readln (она прочитает всю строку), ни процедура Read, которая не видит конца строки. Слово читается посимвольно процедурой Read с отслеживанием признака окончания строки и других условий.

∙Строку выходного файла можно формировать порциями, применяя несколько вызовов процедуры Write. Каждый такой вызов формирует часть строки и продвигает позицию записи, оставляя её в текущей строке. Для перехода к следующей строке вызывается процедура Writeln.

Аслабо?

А) Напишите программу для преобразования первого варианта базы данных «Police.txt» (которая содержит по одному числу в строке) во второй вариант (будет содержать по три числа в строке).

Б) Файл с физическими данными старшеклассников содержит три колонки: фамилия, рост и вес ученика. Создайте программы для решения следующих задач:

∙отбор кандидатов для занятий баскетболом, – рост кандидата должен составлять не менее 175 см;

∙поиск учеников с избыточным весом, для которых разница между ростом ученика (см) и его весом (кг) составляет менее 100.

Ваши программы должны сформировать соответствующие файлы с фамилиями и данными учеников.

216