NOIP2000普及组 T1计算器的改良
主要考字符串处理，把等式从等号中间断开，左边的区域为left，右边的区域为right。
开四个数组分别用来存储区域left和right中未知数的系数，区域left和right中的常数
先处理区域left，把区域left中含有未知数的数字和常数分别存储进数组，再处理区域right（字符串处理这里省略）
最后把存储区域left和right的未知数系数和常数的数组分别化简（合并同类项），进行平时解方程时候的模拟就好了。
主要看代码理解吧，思路讲的有点抽象了。
1 var 2 l_unk,r_unk,l_num,r_num:array[1..255] of longint; //上面所说的四个数组 3 top1 ,top2 ,top3 ,top4 :longint; //四个数组的栈顶 4 s,str:string; 5 i,j:longint; 6 unk:char; //未知数的符号 7 mid,last,value:longint; 8 begin 9 readln(s); 10 for i:=1 to length(s) do //处理区域left 11 begin 12 if s[i] in ['a'..'z'] then unk:=s[i]; //找出未知数 13 if s[i]='=' then mid:=i; //找出等式中间位置 14 end; 15 if s[length(s)]<>unk then 16 s:=s+'+'; 17 last:=1; 18 for i:=1 to mid do 19 begin 20 if s[i]=unk then //如果遇到未知数 21 begin 22 str:=copy(s,last,i-last); //字符串处理 23 val(str,value); //字符串转数字 24 inc(top1); 25 l_unk[top1]:=value; //进栈 26 last:=i+1; 27 end; 28 if (not(s[i] in ['0'..'9'])) and (s[i]<>unk) and (i<>last) then //如果遇到了常数 29 begin 30 str:=copy(s,last,i-last); //字符串处理 31 val(str,value); //转数字 32 inc(top3); 33 l_num[top3]:=value; //进栈 34 last:=i; 35 end; 36 end; 37 last:=mid+1; 38 for i:=mid+1 to length(s) do //处理区域right 39 begin 40 if s[i]=unk then // 同上 41 begin 42 str:=copy(s,last,i-last); 43 val(str,value); 44 inc(top2); 45 r_unk[top2]:=value; 46 last:=i+1; 47 end; 48 if (not(s[i] in ['0'..'9'])) and (s[i]<>unk) and (i<>last) then 49 begin 50 str:=copy(s,last,i-last); 51 val(str,value); 52 inc(top4); 53 r_num[top4]:=value; 54 last:=i; 55 end; 56 end; 57 for i:=top1-1 downto 1 do l_unk[i]:=l_unk[i]+l_unk[i+1]; //化简数组，合并同类项 58 for i:=top2-1 downto 1 do r_unk[i]:=r_unk[i]+r_unk[i+1]; 59 for i:=top3-1 downto 1 do l_num[i]:=l_num[i]+l_num[i+1]; 60 for i:=top4-1 downto 1 do r_num[i]:=r_num[i]+r_num[i+1]; 61 l_unk[1]:=l_unk[1]-r_unk[1]; //解方程，左边未知数系数加上右边未知数的系数的相反数 62 r_num[1]:=r_num[1]-l_num[1]; //解方程，右边常数加上左边常数的相反数 63 writeln(unk,'=',r_num[1]/l_unk[1]:0:3); //输出保留3位小数 64 end.
