Pascal表达式求值.docVIP

Pascal表达式求值: 负数能够参与运算。其中负数（-m）的解决办法是通过在数字栈中构建0-m方式，把单目的负数符号变成减法运算（负数主要出现在表达式的开头以及“（”后面，程序默认输入的表达式格式正确。 program express; var s:string; //输入字符串 fuhao:array[1..100] of char; //符号栈 shuzi:array[1..100] of longint; //数字栈 fh_top,sz_top:integer; //栈指针 i,j,len,k:longint; c:char; function jibie(c:char):integer; //定义运算符的优先级 begin case c of (:exit(0); +,-:exit(1); *,/:exit(2); ^:exit(3); end; end; function jisuan(x,y:longint;c:char):longint; //计算函数 var r,t:longint; begin case c of +:exit(x+y); -:exit(x-y); *:exit(x*y); /:exit(x div y); ^:begin