后缀表达式

题目描述

所谓后缀表达式是指这样的一个表达式：式中不再引用括号，运算符号放在两个运算对象之后，所有计算按运算符号出现的顺序，严格地由左而右新进行（不用考虑运算符的优先级）。

如：3*(5–2)+7对应的后缀表达式为：3．5．2．-*7．+@。’@’为表达式的结束符号。‘.’为操作数的结束符号。

输入输出格式

输入格式：
输入：后缀表达式

输出格式：
输出：表达式的值

输入输出样例

输入样例#1：
3.5.2.-*7.+@

输出样例#1：
16
说明

字符串长度，1000内。
.
.
.
.
.
.
.

程序：

var
s:string;
w,x,i:longint;
a:array[0..100000] of longint;
begin
    readln(s);
    for i:=1 to length(s) do
    begin
        if (s[i]>='0')and(s[i]<='9') then x:=x*10+(ord(s[i])-ord('0'));
        if (s[i]='.')and(s[i-1]>='0')and(s[i-1]<='9') then
        begin
            inc(w);
            a[w]:=x;
            x:=0;
        end;
        if s[i]='+' then
        begin
            dec(w);
            a[w]:=a[w]+a[w+1];
        end else
        if s[i]='-' then
        begin
            dec(w);
            a[w]:=a[w]-a[w+1];
        end else
        if s[i]='*' then
        begin
            dec(w);
            a[w]:=a[w]*a[w+1];
        end else
        if s[i]='/' then
        begin
            dec(w);
            a[w]:=a[w] div a[w+1];
        end;
    end;
    writeln(a[1]);
end.