后缀表达式解析与计算-CSDN博客

本文链接：https://blog.csdn.net/SSL_Yyx/article/details/54967105

题目描述
所谓后缀表达式是指这样的一个表达式：式中不再引用括号，运算符号放在两个运算对象之后，所有计算按运算符号出现的顺序，严格地由左而右新进行（不用考虑运算符的优先级）。
如：3*(5–2)+7对应的后缀表达式为：3．5．2．-*7．+@。’@’为表达式的结束符号。‘.’为操作数的结束符号。

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

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

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

说明
字符串长度，1000内。
先进行后缀表达式求值的推导，找出规律，用while true 经典语句以字符的形式读入数据（边读入边处理）
易错：
1.要用字符形式读入，用字符串比较复杂
2.K值压栈后要清零

var
 ch:char;
 ans,k:longint;
 a:array[0..20] of longint;
begin
  while true do 
  begin 
    read(ch);
    if ch='.' then begin inc(ans);a[ans]:=k; k:=0; end;
    if ('0'<=ch)and(ch<='9') then 
      k:=k*10+ord(ch)-48;
    case ch of
      '+':begin a[ans-1]:=a[ans]+a[ans-1];dec(ans);end;
      '-':begin a[ans-1]:=a[ans-1]-a[ans];dec(ans);end;
      '*':begin a[ans-1]:=a[ans-1]*a[ans];dec(ans);end;
      '/':begin a[ans-1]:=a[ans-1] div a[ans];dec(ans);end;
    end;
    if ch='@' then break;
  end;
  writeln(a[ans]);
end.