Borland Pascal Version 7.0 Copyright (с) 1983, 92 Borland. Qqwerr ttttt aa ss dddd

International

 

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