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

UptoLike

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

Рубрика:

203

window(17,j,24,j);

write(gr);

window(30,j,37,j);

write(sb);

j:=j+1;

end;

window(43,5,76,6);

writeln('––––––––––––– ––––––––––––– ––––––––––––––––––');

window(43,7,76,8);

writeln(' фамилия год рожд. средний балл');

window(43,9,76,10);

writeln('––––––––––––– ––––––––––––– ––––––––––––––––––');

j:=10;

for i:=1 to 3 do

begin

if gruppa[i].fam = 'Николаева' then

gruppa[i]:=gruppa[i+1];{удаление}

vud(gruppa[i]);{вывод на экран результата}

end;

READkey;

end.

Задания для самостоятельного выполнения

1. Сформировать массив записей, описывающих следующую таблицу:

ФИО Группа Число пропусков занятий за год

студента по болезни по другим

причинам

итого

Вывести фамилии студентов, имеющих более ста часов сумарных

пропусков, по форме:

ФИО студента Число часов пропусков

2. Сформировать массив записей, описывающих следующую таблицу:

Фамилия Адрес Номер телефона