本文整理自网络,侵删。
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.
相关阅读 >>
Delphi idhttp post json 上传 php 接收
Delphi adoconnection1 连接excel表格读取数据
Delphi xe datasnap服务器获取客户端ip地址
Delphi regularexpressions 正则表达式如何忽略大小写
更多相关阅读请进入《Delphi》频道 >>