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

UptoLike

ВУЗ: 

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

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

Рубрика: 

212
textcolor(0);
writeln(' Программа вывода на экран студентов группы ПМ–11');
formspisok;
writefile;
textcolor(1);
writeln(' Студенты группы ПМ–11');
pechspisok;
textcolor(4);
writeln(' Нажмите на клавишу..');
repeat until keypressed
End.
Рассмотрим организацию односвязного списка в виде стека, т. е.
списка, запись и чтение в котором осуществляются только в вершине
стека.
Пример 12.5. Организация стека.
uses crt;
type
cc=^zap;
zap=record
inf:string;
next:cc;
end;
var
p,top,newelement:cc;
value:string;
procedure sozdsteka;
begin top:=nil; {top – вершина}
while true do begin
write('Введи информацию (конец ввода – 999) ');
READLN(value);
if value='999' then exit;
new(p);
p^.next:=top;
p^.inf:=value;
top:=p;
end
end;
Пример 12.6. Добавление элементов в стек.
procedure dobavs;
begin

Страницы