逆波兰式计算.doc

《逆波兰式计算.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1.颠倒数组     用递归的算法把数组中的N个数的次序重新存放后输出。2.逆波兰式    由键盘输入一个算术表达式，求出它的逆波兰式，并输出数值。    例：((3+4)*3+15)/3  的逆波兰式为3 4 + 3 * 15 + 3 /         计算结果为12const m=100;type stack=array[1..m] of integer;var s:stack;    a:string;    t,i,j,k,len:integer;procedure push(x:integer);{进栈}  begin    t:

2、=t+1;    s[t]:=x;  end;function pop:integer;{出栈}  begin    pop:=s[t];    t:=t-1;  end;begin  readln(a); {读入后缀表达式}  len:=length(a);    i:=1;      {后缀表达式字符指针初始化}  t:=0;      {栈初始化}  while i<=len do  {处理后缀表达式，直至结束}    begin      case a[i] of'0'..'9':begin                   k:=

3、0;                   while a[i]<>’.’ do                      begin      {从s中取出一个完整的操作数k}                       k:=10*k+ord(a[i])-48;                       i:=i+1;                     end;                   push(k);{把k压栈}                 end; '+':push(pop+pop);     {从栈s中取出栈顶

4、的两个数进行加法运算，然后将结果在压栈}'-':begin  {从栈s中取出栈顶的两个数进行减法运算，然后将结果在压栈}              j:=pop;              push(pop-j);     end; '*':push(pop*pop);     {从栈s中取出栈顶的两个数进行乘法运算，然后将结果在压栈}  '/':begin  {从栈s中取出栈顶的两个数进行除法运算，然后将结果在压栈}              j:=pop;              push(pop div j);      end;en

5、d;{case}i:=i+1;  end;{while}  writeln(pop);  {取出栈顶元素，即时表达式的最后结果}end.