{ Turbo Pascal, файл STACK.PAS } Unit Stack; Interface Uses Spisok; Procedure V_Stack(Var Versh : U; X : BT); Procedure Iz_Stack(Var Versh : U; Var X : BT); Function Pust(Versh : U) : Boolean; Function V_Vershine(Versh : U) : BT; Procedure Ochistka(Var Versh : U); Implementation Procedure V_Stack; Begin V_Nachalo(Versh, X) End; Procedure Iz_Stack; Begin Iz_Nachala(Versh, X) End; Function Pust; Begin Pust := Versh = Nil End; Function V_Vershine; Begin V_Vershine := Versh^.Inf End; Procedure Ochistka; Begin Spisok.Ochistka(Versh) End; Begin End.

{ Turbo Pascal, файл ST2.PAS }
 Program St2;
 Uses Spisok, Stack;
 Const Znak = ['+', '-', '*', '/'];
 Var S, S1 : String;
     T : Text;
     I, N : Byte;
     X, Y : BT; Code : Integer;
     NS : U;
 Begin
   Write('Введите имя файла: ');   ReadLn(S1);
   Assign(T, S1);   ReSet(T);
   NS := Nil;
   While Not Eof(T) Do
    Begin
      ReadLn(T, S);  I := 1;
      While I <= Length(S) Do
        Begin
          If S[I] In ['0'..'9']
          Then
          Begin
           N := I;
           While S[I] In ['0'..'9'] Do
            I := I + 1;
           Val(Copy(S, N, I - N), X, Code);
          V_Stack(NS, X);
          End
          Else
          If S[I] In Znak
          Then
           Begin
             Iz_Stack(NS, X);
             Iz_Stack(NS, Y);
             Case S[I] Of
             '+' : X := X + Y;
             '-' : X := Y - X;
             '*' : X := X * Y;
             '/' : X := Y Div X
             End;
             V_Stack(NS, X)
           End;
          I := I + 1
         End;
         Iz_Stack(NS, X);
         WriteLn(S, ' = ', X);
       End
   End.


Контрольные вопросы и задания

  
Какую структуру данных называют стеком? 
  
На базе каких структур может быть организован стек? 
  
Приведите из жизни примеры организации чего-либо по принципу стека. 
  
Используя стек, напечатайте символы данной строки в обратном порядке.