一元二次方程解

procedure TForm1.Button1Click(Sender: TObject);
var
  delta,m,n:real;
  a,b,c:integer;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:=strtoint(edit3.Text);
  if a<>0 then begin
  delta:=b*b-4*a*c;
  m:=-b/(2*a);
  if delta>=0 then
  if delta>0 then begin
  n:=sqrt(delta)/(2*a);
  lbldescription.Caption:='两个不相等实根';
  lblx1.Caption:=floattostr(m+n);
  lblx2.Caption:= floattostr(m-n);
  end
  else begin
  lbldescription.Caption:='两个相等实根';
  lblx1.Caption:=floattostr(m);
  end
  else begin
  n:=sqrt(-delta)/(2*a);
  lbldescription.Caption:='两个不相等复根';
  lblx1.Caption:=floattostr(m)+'+'+floattostr(abs(n))+'i';
  lblx2.Caption:=floattostr(m)+'-'+floattostr(abs(n))+'i';
  end;
  end
  else
  if b<>0 then begin
  m:=-c/b;
  lbldescription.Caption:='一个实根';
  lblx1.Caption:=floattostr(m);
  end
  else
  if c=0 then
  lbldescription.Caption:='无穷实根'
  else
  lbldescription.Caption:='无解';
end;
阅读更多
文章标签: integer c
个人分类: Delphi 代码
想对作者说点什么? 我来说一句

c++解一元二次方程(含代码

2015年04月06日 159KB 下载

Python解一元二次方程

2015年08月28日 338B 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭