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

UptoLike

ВУЗ: 

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

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

Рубрика: 

213
while true do
begin
write('Введи добавляемую информацию (конец ввода – 999)');
READLN(value);
if value='999' then exit;
new(newelement);
newelement^.next:=top;
newelement^.inf:=value;
top:=newelement
end
end;
Пример 12.7. Удаление элементов из стека.
procedure udals;
begin
top:=top^.next
end;
Пример 12.8. Просмотр элементов стека.
procedure rasps;
begin
kon:=top;
while kon<>nil do
begin
writeln(' ',kon^.inf);
kon:=kon^.next
end
end;
begin
textbackground(1);
textcolor(15);
window(1,1,80,25);
clrscr;
writeln('Программа работы со стеком');
writeln('выполняет процедуры создания,добавления и удаления');
writeln('Создание стека');
sozdsteka;
writeln(' Содержимое стека ()');
rasps;
READLN;
textcolor(6);
writeln(' Добавление элемента в стек');

Страницы