Что такое метод концевого значения? - Turbo Pascal

Формулировка задачи:

Что такое метод концевого значения? (типизированный файл) Задание. Средствами текстового редактора создать файл. Каждые 5 строк текстового файла содержат соответственно название издательства, фамилию автора, название книги, величину тиража и пустую строку. Программным образом вывести содержимое этого файла на экран, расположив в каждой строке экрана название издательства, фамилию автора, название книги и величину тиража. Создать первую процедуру с параметрами, в которой каждые 4 строки текстового файла в виде записи с четырьмя полями размещаются в типизированный файл (5-7 компонентов). Создать вторую процедуру с параметрами для вывода содержимого типизированного файла на экран. С клавиатуры добавить в типизированный файл запись (записи), используя метод "концевого значения". Определить писателей, книги которых напечатаны наибольшим тиражом. Их фамилии занести в конец текстового файла в отдельные строки. Вывести содержимое текстового файла на экран. Далее содержимое каждых четырёх строк, содержащих информацию об одном авторе, занести в строковую переменную. В полученной строке поменять местами фамилию и тираж, и разместить между всеми словами по 3 пробела. Распечатать исходные и преобразованные строки. Дополнительных массивов не использовать.

Код к задаче: «Что такое метод концевого значения? - Turbo Pascal»

textual
WriteLn('вводите  записи - пустая строка в качестве названия издательства - конец ввода):');
Repeat
    WriteLn('Название издательства: ');
    ReadLn(zap.izdat);
    if zap.izdat<>'' then begin
        <.... ввод других полей>
        Write(f, zap); 
    end;
 until zap.izdat='';

12   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ