Динамические структуры: стек

program DinamicVar;
динамическая структура - стек
информационный элемент - символ
преобразование - удаление
место изменения - по указанному значению
 
type
    pitem = ^item;
    item = record
        inf: char;
        next: pitem
    end;
    Stack=^ist;
    ist = record
        data: char;
        link: stack;
    end;
    
var
  top, p: pitem;
  top2, p2: stack;
  menu,i:byte;
  z,x,n:char;
 
{процедура вталкивания в стек}
procedure PUSH;
begin
    new(p);
    p^.inf:=x;
    p^.next:=top;
    top:=p;
end;
 
{процедура выталкивания в стек}
procedure POP;
begin
    p:=top^.next;
    z:=top^.inf;
    dispose(top);
    top:=p;
end;
 
{процедура переноса элемента стека в рабочий стек}
procedure PUSHinStack;
begin
    POP;
    new(p2);
    p2^.data:=z;
    p2^.link:=top2;
    top2:=p2;
end;
 
{процедура переноса из рабочего стека}
procedure PUSHinPitem;
begin
       p2:=top2;
    while p2<>nil do
    begin
       p2:=top2^.link;
       x:=top2^.data;
       dispose(top2);
       top2:=p2;
       PUSH;
    end;
end;
 
{процедура печати стека}
procedure PRINT;
begin
        writeln('Содержимое стека: ');
        p:=top;
    while p <> nil do
    begin
        writeln('        ',p^.inf);
        p:= p^.next;
    end;
end;
 
{Печать стека в обратном порядке}
procedure invertPRINT;
begin
p:=top;
    while p<>nil do
         PUSHinStack;
         writeln('Содержимое стека в обратном порядке: ');
         p2:=top2;
    while p2 <> nil do
    begin
         writeln('        ',p2^.data);
         p2:= p2^.link;
    end;
PUSHinPitem;
end;
 
{процедура создание стека}
procedure Sozd;
begin
    writeln ('Создание стека, для завершения заполнение введите $.');
    i:=1;
    write('Введите ',i,'-й символ: ');
    readln(x);
    while x<>'$' do
  begin
        inc(i);
        PUSH;
        write('Введите ',i,'-й символ: ');
        readln(x);
    end;
end;
 
begin
top:=nil;
writeln('*** Динамическая структура - СТЕК ***');
writeln('  0 - завершить работу;’);
writeln('  1 - создать стек;');
writeln('  2 - добавить элемент;');
writeln('  3 - удалить элемент;');
writeln('  4 - удалить по указанному элементу;');
writeln('  5 - печать;');
writeln('  6 - инвертированная печать;');
 
repeat
write('-> ');
readln(menu);
case menu of
 
{создать стек}
 1:begin
       top:=nil;
       sozd;
   end;
   
{добавить элемент}
 2:begin
   write('Введите элемент для добавления: ');
   readln(x);
   PUSH;
   end;
   
{удалить элемент}
 3:if top<>nil then
   POP
   else writeln('Стек пуст!');
   
{удаление указанного элемента}
 4:if top<>nil then
   begin
   write('Ввведите элемент для удаления: ');
   readln(n);
      p:=top;
   while (p<>nil)and(p^.inf<>n) do
   PUSHinStack;
   POP;
   PUSHinPitem;
   end
   else writeln('Стек пуст!');
   
{вывод стека на экран}
 5:if top<>nil then
   PRINT
   else writeln('Стек пуст!');
   
{вывод стека на экран в обратном порядке}
 6:if top<>nil then
   invertPRINT
   else writeln('Стек пуст!');
 
 end;
until menu=0; {завершение работы программы}
 
end.