Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

             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.