一元二次方程解

转载 2006年06月05日 13:37:00
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;

相关文章推荐

Python函数定义练习:解一元二次方程

import math def quadratic(a,b,c): p=b*b-4*a*c if p>=0 and a!=0:#二元一次方程有解的条件 x1=(-b+m...
  • huanzx
  • huanzx
  • 2017年06月16日 15:52
  • 651

一道计算一元二次方程解的算法题

今天在群里有人求助一道求解一元二次方程的题目。尝试着写了一下,发现还挺容易犯错了。调试了几次总算OK了 题目如下 解法如下: #include double proc...
  • sesiria
  • sesiria
  • 2016年06月22日 22:05
  • 214

用“派生类”求一元二次方程的解

/*烟台大学计算机学院学生 *All right reserved. *文件名称*烟台大学计算机学院学生 *All right reserved. *文件名称:用“派生类”求一元二次方程的解 ...

判断一个一元二次方程是否有解

  • 2014年09月19日 13:53
  • 458B
  • 下载

求一元二次方程的解~

  • 2010年12月13日 15:00
  • 20KB
  • 下载

用C求解一元二次方程的解,遇到的问题及解决办法

编写的一个C语言程序,求解一元二次方程,遇到了很多问题 #include #include int main () { int a=3; int b=4; int ...

一般一元二次方程解c语言

  • 2013年03月26日 23:56
  • 24KB
  • 下载

C语言 一元二次方程解的判定及浮点数大小的比较

一元二次方程解的判定及浮点数的比较

输入a,b,c的值,求一元二次方程的解

using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace 方程振...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一元二次方程解
举报原因:
原因补充:

(最多只允许输入30个字)