Алгоритмические языки и программирование. Аксенова Л.И - 22 стр.

        zap : tzap;
        f_in : text; { Файловая переменная для текстового файла}
       name_file_input, name_f_out : string[12]; {Имена файлов}
  Begin
    writeln(' Введите имя текстового файла');
    readln(name_file_input);
    assign(f_in,name_file_input);
    writeln(' Введите имя типизированного файла');
    readln(name_f_out);
    assign(f_out,name_f_out);
    reset(f_in); { Открытие текстового файла для чтения}
    rewrite(f_out); { Открытие типизированного файла для записи}
    while not eof(f_in) do
     begin
         with zap do
         readln(f_in,nom,fio,godr); { Чтение из текстового файла}
         write(f_out,zap); {Запись в типизированный файл }
     end; close(f_in); close(f_out); { Закрытие файлов }
  End.

                      Порядок выполнения работы

1. Получить вариант задания у преподавателя.
2. Определить состав и структуру входной и выходной информации.
3. Выделить глобальные переменные и описать их.
4. Разработать структуру программы.
5. Каждую функционально-законченную часть оформить в виде отдельной
   процедуры.
6. Отладить программу и продемонстрировать её работу преподавателю.
7. Оформить и сдать отчет.

                             Типовое задание




                                     22