tsinsen(本地) 后缀转中缀

首先，前几天周老师对我们说了一句话：“有些人是表面学得好，有些人是内在学得好”。

这一道题目是9月的时候考试时碰上的，但是自己太水了，没有做出来，后面一直就没有动他，今天拿来做一做，发现向总给我们的算法真心不是很好啊。

我的方法。

　　我们用字符串数组存下他们，然后一个一个读取。

　　处理呢，用字符串数组是很方便的。

　　例如样例 CAB+-，

　　我们设st 为字符串数组，

　　先读取，有 st[1]='C'  st[2]='A' st[2]='B';

　　遇到运算符号，就合并最后的两个字符串数组，并记录该数组的最低级别的运算符号，

　　例如st[2]合并成‘A+B'，最低运算符号为’+'；

　　如此往复，读取到字母就赋值给一个新的数组，独到运算符号就合并最后两个数组，做一个compare函数来判断是否需要加括号，每次合并时记更新该数组的最低级运算符号。

　　然后就有

　　C A+B

　　C-(A+B);

　　就可以了。 （顺便说一下，当该数组元素只有一个字母时，运算符号级别要设成最高级。）

　　但是vijos 上挖了3个点（总共只有五个点）！

　　算法肯定没错，但是绝对有考虑不全的地方，多半是compare函数的问题。

　　代码：

program p1293;
var
        i,j,k,l,m,n,p:longint;
        st:string;
        s:array[1..200]of string;
        ch,c:array[1..200]of char;
        ch2:char;
function pan(a:char):boolean;
begin
        if(ord(a)>=65)and(ord(a)<=90)then exit(true)
        else exit(false);
end;
function compare(a,b:char):boolean;
var
        x,y:longint;
begin
        case(a)of
                '+','-':x:=1;
                '*','/':x:=3;
                '@':x:=9;
                end;
        case(b)of
                '+','-':y:=1;
                '*','/':y:=3;
                '@':y:=9;
                end;
        if x<y then compare:=true
                else compare:=false;
end;
begin
        assign(input,'p1293.in');
        reset(input);
        for i:=1 to 200 do
                c[i]:='@';
        n:=0; p:=0;
        while not eoln do
                begin
                inc(n);
                read(ch[n]);
                end;
        for i:=1 to n do
                begin
                if pan(ch[i]) then
                        begin
                        inc(p);
                        insert(ch[i],s[p],1);
                        end
                else
                        begin
                        if compare(c[p-1],ch[i]) then
                                begin
                                insert('(',s[p-1],1);
                                insert(')',s[p-1],length(s[p-1])+1);
                                ch2:=ch[i];
                                end
                        else ch2:=ch[i];
                        if(not compare(ch[i],c[p]))and((ch[i]<>c[p])or((ch[i]=c[p])and((ch[i]<>'*')and(ch[i]<>'+'))))then
                                begin
                                insert('(',s[p],1);
                                insert(')',s[p],length(s[p])+1);
                                ch2:=ch[i];
                                end
                        else ch2:=ch[i];
                        s[p-1]:=s[p-1]+ch[i]+s[p];
                        delete(s[p],1,length(s[p]));
                        c[p]:='@';
                        dec(p);
                        c[p]:=ch2;
                        end;
                end;
        write(s[p]);
        close(input);
end.