2013表达式求值

Posted 2020-08-11

题目描述 Description

给定一个只包含加法和乘法的算术表达式，请你编程计算表达式的值。

输入描述 Input Description

输入仅有一行，为需要你计算的表达式，表达式中只包含数字、加法运算符“+”和乘法运算符“*”，且没有括号，所有参与运算的数字均为0到2^31-1之间的整数。输入数据保证这一行只有0~9、+、*这12种字符。

输出描述 Output Description

输出只有一行，包含一个整数，表示这个表达式的值。注意：当答案长度多于4位时，请只输出最后4位，前导0不输出。

样例输入 Sample Input

[Sample 1]
1+1*3+4
[Sample 2]
1+1234567890*1
[Sample 3]
1+1000000003*1

样例输出 Sample Output

[Sample 1]
8
[Sample 2]
7891
[Sample 3]
4

数据范围及提示 Data Size & Hint

【样例说明】
样例1计算的结果为8，直接输出8。
样例2计算的结果为1234567891，输出后4位，即7891。
样例3计算的结果为1000000004，输出后4位，即4。

【数据范围】
对于30%的数据，0≤表达式中加法运算符和乘法运算符的总数≤100；
对于80%的数据，0≤表达式中加法运算符和乘法运算符的总数≤1000；
对于100%的数据，0≤表达式中加法运算符和乘法运算符的总数≤100000。

 

 

 

题解：

数据结构—栈（用的是思想）。

由于没有（），所以计算就方便了。1、这一位是数字，存到s2里面（s2*10+ord（s【i】）-48）；2、加号，ans+s1*s2；3、乘号，直接改变s1*s2。（注意：赋值请每一次都mod 10000）。

var s1,i,s2,ans:longint;

    s:ansistring;

begin

 s1:=1;

 readln(s);

 for i:=1 to length(s) do

  case s[i] of

   ‘+‘:

    begin

     ans:=(ans+s1*s2) mod 10000;

     s1:=1;

     s2:=0;

    end;

   ‘*‘:

    begin

     s1:=s1*s2 mod 10000;

     s2:=0;

    end;

   else s2:=(s2*10+ord(s[i])-48) mod 10000;

  end;

 write((ans+s1*s2) mod 10000);

end.