Алгоритм

ОПЕРАЦИИ НАД СТЕКАМИ:

- PUSH ( s , i ) - занесение элемента в стек, где s - название стека, i - элемент, который заносится в стек;

- POP ( s ) - выборка элемента из стека. При выборке элемент помещается в рабочую область памяти, где он используется;

- EMPTY ( s ) - проверка стека на пустоту (true - пуст, false - не пуст);

- STACKTOP ( s ) - чтение верхнего элемента без его удаления.

Фрагмент программы создания стека (необходимые процедуры)

Program STACK;

  const

     max_st=50;

const

    max_st=50;

  var

    st,st2: array[1..max_st] of integer;

    n:integer;

  function empty:boolean;  {Проверка стека на наличие элементов в нем}

    begin

        empty:=n=0

    end;

  procedure push(a:char);  {Поместить элемент в стек}

    begin

      inc(n);

      st[n]:=a;

    end;

  procedure pop(var a:char);  {Извлечь элемент из стека}

    begin

      a:=st[n];

      dec(n);

    end;

  function full:boolean;   {Проверка на переполнение}

    begin

      Full:=n=max_st

    end;

  procedure stacktop(var a:char);  {Узнать верхний элемент}

    begin

      a:=st[n];

    end;

  begin  {Основная программа}

     .

     .

end.

Содержание раздела

---

---