codevs1015

题目地址：http://codevs.cn/problem/1015/

分析：

模拟

代码：

var

  i,j,k,n,x,y,max,min:longint;

  a,b,c,d,e:longint;

  ch,ch1,ch2:char;

  s,s1,s2:string;

procedure jjj(ss:string;Var x,y:longint;VAR ch:char);

var

  z,i:longint;

  c,fu:char;

  zimu:boolean;

begin

  x:=0;

  y:=0;

  z:=0;

  fu:='+';

  zimu:=false;

  for i:=1 to length(ss) do

    begin

       c:=ss[i];

       case c of

         '0'..'9':begin

             z:=z*10+ord(c)-48;

                  end;

         'a'..'z':begin

                    zimu:=true;

                    ch:=c;

                  end;

         '+','-': begin

                    if zimu then

                       begin

                         if fu='+' then x:=x+z else x:=x-z;

                       end

                    else

                       begin

                          if fu='+' then y:=y+z else y:=y-z;

                       end;

                    z:=0;

                    fu:=c;

                    zimu:=false;

                  end;

       end;

       if i=length(ss) then

         begin

             if zimu then

                begin

                  if fu='+' then x:=x+z else x:=x-z;

                end

             else

                begin

                  if fu='+' then y:=y+z else y:=y-z;

                end;

         end;

    end;

end;

begin

   readln(s);

   i:=pos('=',s);          //找到等号位置

   s1:=copy(s,1,i-1);     

   s2:=copy(s,i+1,length(s)-i);

   jjj(s1,a,b,ch1);         //计算左边的X项系数，常数项

   jjj(s2,c,d,ch2);         //计算右边的X项系数，常数基

   writeln(ch1,'=',(d-b)/(a-c):0:3);   //解 AX+B=CX+D

end.