Zju2492 A Dp Problem

给你一些一元一次方程，让你求出未知数的解，如果只有一个解则输出这个解，如果有无数个则输出"IDENTITY"（如 x=x）,无解则输出“IMPOSSIBLE”(如 x+2=x+3）。

考虑等式两边也就是“=”两边，分别求出两边未知数项的系数和常数项，分别为，f1,d1,f2,d2,那么最后的答案就是(d2-d1)/(f1-f2)。（这个。。。大家应该都懂！！！）。

处理系数有点恶心。

code：

 

var
s:ansistring;
n,i,j,k,f1,d1,f2,d2,tmp,x,t,code,tot:longint;
ch,cc:char;
begin
readln(tot);
while tot>0 do
begin
readln(s);
for cc:='a' to 'z' do
if pos(cc,s)<>0 then
begin
ch:=cc; break;
end;
n:=pos('=',s);
i:=1; x:=1; f1:=0; f2:=0; d1:=0; d2:=0; tmp:=0;
while (i<n) do
begin
if (s[i]=ch) and ((i=1) or (s[i-1] in ['+','-'])) then
begin inc(i); inc(f1,x);  continue; end;
if s[i]=ch then
begin
inc(i);
inc(f1,x*tmp);
tmp:=0;
continue;
end;
inc(d1,x*tmp);
if s[i]='-' then begin inc(i); x:=-1; tmp:=0; continue; end;
if s[i]='+' then begin inc(i); x:=1; tmp:=0; continue; end;
tmp:=0;
repeat
if (s[i] in [ch,'+','-','='] )then break;
val(s[i],t,code);
tmp:=tmp*10+t;
inc(i);
until false;
end;
inc(d1,x*tmp);
i:=n+1; x:=1;
tmp:=0;
while i<=length(s) do
begin
if (s[i]=ch) and ((i=n+1) or (s[i-1] in['+','-'])) then
begin inc(i); inc(f2,x); continue; end;
if s[i]=ch then
begin
inc(i);
inc(f2,x*tmp);
tmp:=0;
continue;
end;
inc(d2,x*tmp);
if s[i]='-' then begin inc(i); x:=-1; tmp:=0; continue; end;
if s[i]='+' then begin inc(i); x:=1;  tmp:=0; continue; end;
tmp:=0;
repeat
if (i=length(s)+1) then break;
if s[i] in [ch,'-','+'] then break;
val(s[i],t,code);
tmp:=tmp*10+t;
inc(i);
until false;
end;
inc(d2,tmp*x);
if (d2-d1=0) and (f1-f2=0) then writeln('IDENTITY')
else
if (f1-f2=0) then writeln('IMPOSSIBLE')
else

if (d2-d1)/(f1-f2)=0 then writeln(0)

else
writeln((d2-d1)/(f1-f2):0:0);
dec(tot);
end;
end.