一元二次方程解

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

解一元二次方程ax^2+bx+c=0

#include//解一元二次方程ax^2+bx+c=0 #include int main() { float a,b,c,disc,x1,x2,p,q; //输入部分  printf(...
  • qslife
  • qslife
  • 2016年05月27日 00:06
  • 1014

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
  • 1438

C语言 解一元二次方程,求虚数解:共轭复根

什么是一元二次方程 :(来自百度百科) 只含有一个未知数(一元),并且未知数项的最高次数是2(二次)的整式方程叫做一元二次方程。标准形式为:ax²+bx+c=0(a≠0)。 用求根公式法解一元二次方...
  • qq_21808961
  • qq_21808961
  • 2017年10月04日 00:53
  • 1358

《一元二次方程求解窗口——Java第十三周》

/* (程序头部注释开始) * 程序的版权和版本声明部分 * Copyright (c) 2011, 烟台大学计算机学院学生 * All rights reserved. * 文件名称:  ...
  • sdliujiangbo
  • sdliujiangbo
  • 2012年11月27日 20:50
  • 6725

Python实现一元二次方程的定义是:ax2 + bx + c = 0 请编写一个函数,返回一元二次方程的解。

Python实现一元二次方程的定义是:ax2 + bx + c = 0 请编写一个函数,返回一元二次方程的解。...
  • u012965373
  • u012965373
  • 2016年04月08日 13:19
  • 6334

C语言 求解一元二次方程

求方程a^2+b*x+c=0的解。    a=0,不是一元二次方程;    b^2-4ac=0,有两相等的实根;x1=x2=-2a/b;     b^2-4ac>0,有两不等的实根; ...
  • Yangjiankang_0929
  • Yangjiankang_0929
  • 2015年03月25日 20:47
  • 1450

C++,解一元二次方程

#include #include #include #include using namespace std; void main() { const char* fil...
  • sergery
  • sergery
  • 2012年11月10日 15:41
  • 3525

python 解一元二次方程方法汇总

介绍三种方法如下 1、 #!/usr/bin/env python # coding=utf-8 """ solving a quadratic equation """ from ...
  • qq_26228241
  • qq_26228241
  • 2017年03月01日 16:19
  • 388

c语言求一元二次方程的根

求一元二次方程的根
  • WRNGT
  • WRNGT
  • 2016年11月15日 20:42
  • 4362

C#求一元二次方程的根

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin...
  • lucky51222
  • lucky51222
  • 2015年04月16日 20:26
  • 2104
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一元二次方程解
举报原因:
原因补充:

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