delphi求解一元二次方程

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;

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.

推荐分享