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

UptoLike

ВУЗ: 

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

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

Рубрика: 

210
end;
end;
Пример 12.4. Программа вывода на экран студентов группы ПМ–11.
uses crt;
type
ptr=^student;
student=record
fio,group:string[10];
next:ptr;
end;
var
headptr:ptr;
PROCEDURE FORMSPISOK;
var
p:ptr;
let:char;
procedure vvod(var stud:student);
begin
with stud do begin
write(' fio ');
READLN(fio);
writeln(' Не забудьте ввести группу ПМ–11');
write(' group ');
READLN(group);
end
end;
Begin{простроение списка}
headptr:=nil;
repeat
write(' s–закончить ');
READLN(let);
let:=Upcase(let);
if let='S' then exit;
if headptr=nil then
begin
new(headptr);
p:=headptr;
end
else
begin
new(p^.next);
p:=p^.next;

Страницы