Скачиваний:
20
Добавлен:
06.02.2016
Размер:
504 б
Скачать
uses crt;
type moi_tip=record
FAM: string [15];
IM: char;
OCH: char;
POL: boolean;
LET: byte;
end;
var rec: moi_tip;
j: string;
tipf: file of moi_tip;
begin
Assign(tipf,'1.txt');
reset(tipf);
writeln('Фамилия ИО ':21,'Пол ':7, 'Возраст':4);
while not eof(tipf) do
begin
read (tipf,rec);
if rec.POL=true
then j:='МУЖ'
else j:='ЖЕН';
writeln(rec.FAM:15, ' ', rec.IM,'.', rec.OCH:1,'.', j:5, rec.LET:5);
end;
end.
Соседние файлы в папке 6 лаб. Файлы типизированные