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

UptoLike

ВУЗ: 

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

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

Рубрика: 

211
end;
vvod(p^);
p^.next:=nil;
until false;
end;{formspisok}
Procedure pechspisok;
var
p:ptr;
begin
p:=headptr;
while p <> nil do
begin
with p^ do
if group = 'ПМ–11' then
writeln(' ',fio,' ',group);
p:=p^.next;
end;
end; {pechspisok}
Procedure Writefile;
VAR
P:PTR;
i :byte;
begin
writeln(' |––––––––––––––––––|––––––––––––––––|');
writeln(' | ФИО | Группа |');
writeln(' |––––––––––––––––––|––––––––––––––––|');
P := Headptr ;
i := 1;
while p <> Nil do
begin with p^ do
writeln(' |',fio:17,'|',group:14,'|');
p := p^.next;
if p <> nil then writeln(' |––––––––––––––––––|––––––––––––––––|');
else writeln(' |––––––––––––––––––|––––––––––––––––|');
i := i + 1;
end;
End;{writefile}
{********************************}
Begin
clrscr;
window(14,2,70,23);
textbackground(3);
clrscr;

Страницы