Алгоритмы и программы. Афанасьева Т. В - 202 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

202
procedure vud(zap:typzap);
{параметр zap типа запись передается по значению}
begin
window(43,j,52,j);
write(zap.fam);
window(56,j,63,j);
write(zap.gr);
window(69,j,76,j);
write(zap.sb);
j:=j+1;
end;{vud}
begin
window(1,1,80,25);
textbackground(0);
textcolor(15);
clrscr;
writeln(' Пример :удаление записи о выбывшей ');
writeln(' студентке Николаевой ');
writeln(' (переменным присваиваются ');
writeln(' значения в программе).');
gruppa[1].fam:=' Атурова ';
gruppa[1].gr:=1977;
gruppa[1].sb:=4;
gruppa[2].fam:='Вострецов';
gruppa[2].gr:=1978;
gruppa[2].sb:=4;
gruppa[3].fam:='Николаева';
gruppa[3].gr:=1978;
gruppa[3].sb:=4;
gruppa[4].fam:='Тутурина';
gruppa[4].gr:=1978;
gruppa[4].sb:=4;
window(4,5,37,6);
writeln('––––––––––––– ––––––––––––– ––––––––––––––––––');
window(4,7,37,8);
writeln(' фамилия год рожд. средний балл');
window(4,9,37,10);
writeln('––––––––––––– ––––––––––––– ––––––––––––––––––');
j:=10;
for i:=1 to 4 do with gruppa[i] do
begin
window(4,j,13,j);
write(fam);

Страницы