懒猫窝窝

Var a,b,c :Integer;  
    x1,x2 :Real;  
Procedure Solve(a,b,c :Integer;Var Fcsumx,Fcsumy :Real);  
begin  
  if sqr(b)-4*a*c >= 0 then  
  begin  
    Fcsumx :=(sqrt((sqr(b)-(4*a*c)))-b)/(2*a);  
    Fcsumy :=(-sqrt((sqr(b)-(4*a*c)))-b)/(2*a);  
  end;  
end;  
 
begin  
  Write('输入A,B,C三位系数，我将算出方程[AX的平方+BX+C=0]'#10);  
  Readln(a,b,c);  
  Solve(a,b,c,x1,x2);  
  if sqr(b)-(4*a*c) < 0 then  
    Write('本方程无解!'#10)  
  else  
    if sqr(b)-(4*a*c) = 0 then  
      Write('方程只有一个解!'#10,'x1=',x1:1:1)  
    else  
      Write('方程有两个解!'#10,'x1=',x1:1:1,' , x2=',x2:1:1);  
  Readln;  
end.