用VBA求一元二次方程的实根,没有实根则输出"No Root !"

#include"stdio.h"#include"math.h"/*求ax*x+bx+c=0的解*/main(){floata,b,c,x1,x2,d;printf("请输入a：");scanf("

第一题：令已知方程的根为X1,X2,要求方程的根为X3,X4,且X3=1/X1,X4=1/X2则依题意有：X1+X2=-b/aX1*X2=c/a另外,X3+X4=1/X1+1/X2=(X1+X2)/(

若b的平方减4ac小于零.则方程无解.若b的平方减4ac等于零.则方程有两个相同的实数解.b的平方减4ac大于零.X1等于{负b加上[根号(b的平方减4ac)]}X2等于{负b减去[根号(b的平方减4

考虑两种情况：（1）f(x)=0只有一根.此时一.若m-2=0,即f(x)为一次函数,此时f(x)=-8x-2有一负根x=-1/4.二.若m-2不为零,方程f(x)=0判别式（4m）^2-4(m-2)

第一个错误:inta,b.c,D,E,F,x1,x2;b和c应该是逗号而不是点;第二个错误:E=sqrtD;和E=sqrt-D;应该改为E=sqrt(D);和E=sqrt(-D);函数调用参数要放在(

1、x1>0.x2>0所以x1+x2>0x1x2>0所以-b/a>0,c/a>0且b²-4ac≥02、x1

以下是核心算法：其中Text1,Text2,Text3是三个文本输入框,接受a,b,c三个系数.x1,x2为根DimaAsSingle,bAsSingle,cAsSingle,dAsSingle,ds

把带未知数的项放到"="左边,不带的放到右边.左右实部虚部的系数相等.可以列两个方程.就解出来了.

假设一元二次方程ax²+bx+c=0,（a≠0）至少有三个互不相等的实根设三个根分别为r,s,t,则r≠s,s≠t,t≠r,且ar²+br+c=0,①as²+bs+c=0

△法判断、（-y）²-4*1*1分类大于、小于、等于0

(2-A)*x^2+(A-C)x+C-2=0有两个相同的实根判别式△=(A-C)^2-4(2-A)(C-2)=A^2+2AC+C^2-8(A+C)+16=(A+C)^2-8(A+C)+16=[(A+C

若a、b是一元二次方程x的平方+11x+16=0的两个实根,求根号下b/a-根号下a/b的值韦达定理a+b=-11ab=16(a+b)²=(-11)²a²+b²

1（1）因为x1<x2,所以x1 - x2 < 0【不等于0】所以(x1 - x2)^2 >0 &nb

根据b^2-4ac来判断~我们知道一元二次方程的求根公式是-b±√(b^2-4ac)---------------2b若要一元二次方程有实根则√(b^2-4ac)≥0要有意义~√(b^2-4ac)

x^2+3=3x,得x^2-3x+3=0(x-3/2)^2+3/4=0(x-3/2)^2>0所以无实根一元二次方程无实根不是方程无解,此方程有虚数解

可以用伟达定理一元二次方程ax^2+bx+c=0(a≠0且△=b^2-4ac≥0)中设两个根为X1和X2则X1+X2=-b/aX1*X2=c/a不能用于线段用韦达定理判断方程的根若b^2-4ac>0则

△=b^2-4ac>=0

因为方程有两个实根,所以判别式大于零,有m^2-4(m-1)>0,解得m≠2又因为方程是一元二次方程,所以x^2项的系数不能为零,所以有m-1≠0,m≠1所以m的取值范围是m≠2且m≠1

反证法：假设有三个或者三个以上的不同的实根,证明三根是不存在的,设实根为x1,x2,x3一元二次方程为:ax^2+bx+c=0(a不等于0)那么它可以表示为:k(x-x1)(x-x2)(x-x3)=0

关于x'的一元二次方程x²+(2k-1)x+k²-1=0有两个实根,∴判别式△=(2k-1)²-4(k²-1)=5-4k≥0∴k≤5/4设两个实根是x1,x2利