Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа2 / Examples / stack
.pas program ProgStack;
var s: stack;
s2:stack;
begin
push(s, 'a');
writeln;
write(top(s));
push(s, 's');
writeln;
write(top(s));
push(s, 'd');
writeln;
write(top(s));
s2 := s;
pop(s2);
writeln;
write(top(s2));
pop(s2);
writeln;
write(top(s2));
end.
var s: stack;
s2:stack;
begin
push(s, 'a');
writeln;
write(top(s));
push(s, 's');
writeln;
write(top(s));
push(s, 'd');
writeln;
write(top(s));
s2 := s;
pop(s2);
writeln;
write(top(s2));
pop(s2);
writeln;
write(top(s2));
end.
Соседние файлы в папке Examples