Реферат: Динамические структуры данных стеки

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.

/* C++, файл ST2.CPP */

#include "STACK.CPP"

#include < string.h >