洛谷 P1449 后缀表达式

题目描述

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

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

输入输出格式

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

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

输入输出样例

输入样例#1：
3.5.2.-*7.+@
输出样例#1：
16
说明

字符串长度，1000内。

分析：就是用个栈，每次运算把最上面的两个数进行计算即可。

注意：‘/’是 div。（一开始我用实数计算，WA了半个钟）

代码：

var
 a:array [1..1001] of longint;
 s:ansistring;
 p,top,len:longint;
begin
 readln(s);
while s[1]<>'@' do
begin
  len:=length(s);
   if ('0'<=s[1]) and (s[1]<='9') then
    begin
     p:=pos('.',s);
     inc(top);
     val(copy(s,1,p-1),a[top]);
     delete(s,1,p);
    end
   else
    begin
     case s[1] of
     '+':begin a[top-1]:=a[top-1]+a[top]; dec(top); end;
     '-':begin a[top-1]:=a[top-1]-a[top]; dec(top); end;
     '*':begin a[top-1]:=a[top-1]*a[top]; dec(top); end;
     '/':begin a[top-1]:=a[top-1] div a[top]; dec(top); end;
     end;
     delete(s,1,1);
    end;
end;
writeln(a[1]);
end.