Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland. Qqwerr ttttt aa ss ddddInternational
Qqwerr ttttt aa ss dddd S d f g. h j Sd ffffff
Qqwerr ttttt aa ss dddd S d f g. h j S d ffffff Рис. 8.6. Результат работы PRG8_5 Задача 8.6 Прочитать файл TWO и вывести его задом наперед. Для организации просмотра файла воспользуемся функцией определения длины файла FILESIZE(Fl), которая доступна только для типизированных файлов. В этом случае длина определяется с учетом символа конца файла. Этот символ необходимо исключить из просмотра. PROGRAM PRG8_6; VAR F1: FILE OF CHAR; F2: TEXT; X: CHAR; L, I: INTEGER; BEGIN ASSIGN(F1, 'TWO'); RESET(F1); ASSIGN(F2,' '); REWRITE(F2); L:= FILESIZE(FI); FOR l:= L-1 DOWNTO 0 DO BEGIN SEEK(F1, I); READ(F1, X); WRITE(F2, X) END; WRITELN; CLOSE(F1); CLOSE(F2) END. Для решения задачи: - формируем тело программы и описываем переменные; - привяжем файл TWO к файловой переменной F1 и откроем его на чтение; - переменную F2 свяжем со стандартным устройством вывода - экраном дисплея и откроем его на вывод; - организуем последовательный просмотр по считыванию элементов файла F1 начиная с конца и записи их в файл F2; - закрываем оба файла. Переменные: Fl - файл символов; F2 - текстовый файл; X - очередной элемент файла; L - длина файла; I - переменная цикла. Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland International Ffffff d s J h. g f d s
|
