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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

227
{вывод всех записей}
for i:=1 to persons.n do
begin
gotoxy(1,i+2);
write('|',persons.person[i].familia);
gotoxy(19,i+2);
write('|',persons.person[i].imja );
gotoxy(34,i+2);
write('|',persons.person[i].otchestvo );
gotoxy(46,i+2);
write('|',persons.person[i].YearBirth );
gotoxy(59,i+2);
write('|',persons.person[i].GroupBlood );
gotoxy(72,i+2);
write('|',persons.person[i].Height);
gotoxy(77,i+2);
write('|',persons.person[i].Weight);
end;
ShowText('Нажмите любую клавишу для продолжения работы!',15,23,15,4);
readkey;
end;
{Просмотр части массива – показ только тех людей,
кто родился не раньше 1970 года
и имеет 4 группу крови
}
procedure ViewPartArray;
var
i:byte;{счетчик}
begin
BlackScreen;
ColorWindow(1,1,80,23,1);
{вывод шапки}
ShowText('Список людей, имеющих 4 группу крови, '+

Страницы