Материал: ЛР №2

age:= age - 1;

writeln('| ', note.Familiya:0, ' ': (15 - length(note.Familiya)), '| ', note.Name,

' ': (15 - length(note.Name)), '| ', note.Otchestvo:0, ' ': (15 - length(note.Otchestvo)),

'| ', note.sex, ' ': (2 - length(note.Sex)), '| ', age: 3, ' |');

writeln('----------------------------------------------------------------');

end;

close(f);

end.

Результаты работы программы:

5. Результат работы программы по заданию 4

Выводы:

Результат записи данных в файл из задания № 3 полностью восстановлен и выведен на экран в виде таблицы 1.

Список литературы

1. Острейковский В. А. Информатика : учебник для вузов / В. А. Острейковский. — М. : Высш. шк., 1999.

2. Вирт Н. Алгоритмы и структуры данных / Н. Вирт. — М. : Мир, 1989.

3. Епанешников А. М. Программирование в среде Turbo Pascal 7.0 / А. М. Епанешников, В. А. Епанешников. — 3-е изд., стер. — М. : ДИАЛОГ-МИФИ, 1996.

4. Культин Н .Б. Turbo Pascal в задачах и примерах / Н. Б. Культин. — СПб.: БХВ-Петербург, 2000.

5. Немнюгин С. А. Turbo Pascal / С. А. Немнюгин. — СПб. : Питер, 2000.

6. Шпак Ю. А. Turbo Pascal 7.0 на примерах / Ю. А. Шпак ; под ред. Ю. С. Ковтанюка. — Киев : Юниор, 2003.