一元二次方程解

转载 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;

相关文章推荐

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

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

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

import math def quadratic(a,b,c): p=b*b-4*a*c if p>=0 and a!=0:#二元一次方程有解的条件 x1=(-b+m...

Python-定义函数.练习题.求一元二次方程解

声明:我写此文的目的是帮助和我一样在廖雪峰老师官网上学习Python3的同学更好的理解和学习Python的知识,所以本博文及后续文章会跟着我的学习进度来走,主要内容是廖雪峰老师官网Python资料中每...
  • zmy_3
  • zmy_3
  • 2016-04-15 20:02
  • 4694

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

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

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

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

求一元二次方程的解~

  • 2010-12-13 15:00
  • 20KB
  • 下载

一元二次方程求解

/* 02.* 程序的版权和版本声明部分: 03.* Copyright (c) 2013, 烟台大学计算机学院 04.* All rights reserved. 05.* 文件名称...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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