Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
delphi / песни о паскале.pdf
Скачиваний:
41
Добавлен:
26.03.2016
Размер:
5.16 Mб
Скачать

Глава 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

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

Соседние файлы в папке delphi