【转载】中缀变后缀

program bds;
const m=50;
type {定义栈}
  stack=array[1..m] of char;
  stack1=array[1..m] of real;
var
 s:stack;
 s1:stack1;
 e,a:string;
 i,l,p,y:integer;
 x:real;
begin
  {中缀表达式e转后缀表达式a, s为运算符栈,P为指针}
 read(e);{读入一个中缀表达式}
 p:=0;
 l:=length(e);
 for i:=1 to l do
  begin
   case e[i] of
    '0'..'9':a:=a+e[i]; {若为数字,进入后缀表达式}
    '(':begin p:=p+1;s[p]:='('; end;{若为左括号,进栈}
    ')':begin     {若为右括号,则左括号前的所有运算符出栈进入后缀表达式,)舍}
        while s[p]<>'(' do
         begin
          a:=a+s[p];p:=p-1;
         end;
         p:=p-1;
        end;
    '+','-':begin{若为+-号,则左括号前的所有运算符出栈进入后缀表达式,+-号进栈}
               while (s[p]<>'(') and (p<>0) do
                begin a:=a+s[p];p:=p-1;end;
               p:=p+1;s[p]:=e[i];
            end;
    '*','/':begin  {若为*/号,则左括号前的栈顶的*/出栈进入后缀表达式,*/号进栈}
             while (p<>0) and ((s[p]='*') or (s[p]='/')) do
              begin
               a:=a+s[p];p:=p-1;
              end;
             p:=p+1; s[p]:=e[i];
            end;
    end;{case}
   end;{for}
   while p<>0 do {所有运算符出栈进入后缀表达式}
   begin
    a:=a+s[p];p:=p-1;
   end;
   writeln(a);
  { 计算后缀表达a的值,S1为存放操作数的栈,P为栈指针}
  l:=length(a); p:=0;
  for i:=1 to l do
   begin
    case a[i] of
     '0'..'9':begin {是操作数,将操作数转为数值类型数据后进栈}
               p:=p+1; val(a[i],x,y); s1[p]:=x;
              end;
     '+':begin     {栈顶的两个操作数出栈,进行加法运算,其结果进栈}
          x:=s1[p];p:=p-1; s1[p]:=s1[p]+x;
         end;
     '-':begin     {栈顶的两个操作数出栈,进行减法运算,其结果进栈}
          x:=s1[p];p:=p-1; s1[p]:=s1[p]-x;
         end;
     '*':begin     {栈顶的两个操作数出栈,进行乘法运算,其结果进栈}
          x:=s1[p];p:=p-1; s1[p]:=s1[p]*x;
         end;
     '/':begin     {栈顶的两个操作数出栈,进行除法运算,其结果进栈}
          x:=s1[p];p:=p-1; s1[p]:=s1[p]/x;
         end;
    end;{case}
   end;{for}
   writeln(s1[p]:5:2); {栈底的结果为最终运算结果}
  end.

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826615
个人分类: 编程
上一篇【转载】后缀表达式求值
下一篇【转载】有序拆分
想对作者说点什么? 我来说一句

表达式求值与任务调度

2014年04月30日 390KB 下载

没有更多推荐了,返回首页

关闭
关闭