Структуры и алгоритмы обработки данных


Стек - часть 2


          writeln(-2 v удалить из стека-);

          writeln(-0 v выход-);

          readln(n);

          if n=1 then

          begin

                    write(-элемент -);

                    readln(s);

                    put_element(s);

         end;

         if n=2 then

         begin

                   get_element(s);

                   writeln(s);

         end;

until n=0;

end.

В программе добавление нового элемента в стек оформлено в виде процедуры put_element, а получение элемента из стека v как процедура get_element.




Начало  Назад  Вперед



Книжный магазин