code

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     begi...
日期：2012-05-30 浏览：4622次 评论：1次 阅读全文
    •