Основы программирования на языке Turbo Pascal. Беляева И.В. - 228 стр.

UptoLike

Составители:

Рубрика:

228

'родившихся не раньше 1970 года',5,1,14,1);

textcolor(15);

gotoxy(1,2);

gotoxy(1,3);

write('+-----------------+--------------+-----------+------------+');

{просмотр всех записей}

for i:=1 to persons.n do

with persons.person[i] do

if (YearBirth>=1970) and (GroupBlood='4') {вывод лишь тех записей}

then {год рождения у которых <=1970, а группа крови =4}

begin

gotoxy(1,i+3);

write('|',familia);

gotoxy(19,i+3);

write('|',imja );

gotoxy(34,i+3);

write('|',otchestvo );

gotoxy(46,i+3);

write('|',YearBirth );

end;

ShowText('Нажмите любую клавишу для продолжения работы!',15,23,15,4);

readkey;

end;

{сохранение списка в файле}

procedure SaveArray;

var

filename: string;{имя файла}

begin

{ввод имени файла}

ColorWindow(1,16,80,10,3);

ShowText('Введите имя файла для записи массива:',10,3,14,3);

gotoxy(50,3);