vb 输入一元二次方程ax的平方 bx c=0的系数a,b,c
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/03 01:14:40
设原方程的二个根分别是x1,x2,新方程的二个根分别是m,n,那么有m=1/x1,n=1/x2韦达定理得:x1+x2=-b/a,x1x2=c/a所以,m+n=1/x1+1/x2=(x1+x2)/(x1
从b=√a-2+√2-a+3我们得到a≥2且a≤2即a=2b=0+0+3=3因为一元二次方程的一个根是1则a+b+c=5+c=0,解得c=-5即方程是y²/4-5=0即y²=20解
在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解privatesubcommand1_click()dimxasdouble,x1asdouble,x2asdouble,a1asd
PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB
PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,CAsSingleDimR1AsSingle,R2AsSingleA=Val(Text1.Text)B
你好,完美の拼图分类讨论:①当a=0时-40时,原函数为2次函数,开口向上,一定存在大于0的数,不符合题意③当a
自己看下书,试着写一下就好,太简单了再问:你妹,会了还问你?别把自己膨胀的信心践踏在别人身上再答:别误会,要是说过了我很抱歉,这个代码估计没人给你发,还是自己照着书写就可以实现,很快的再问:好吧,原谅
#include;#include;#include;main(){floata,b,c,d,e,f;scanf("%f%f%f",&a,&b,&c);d=b*b-4*a*c;if(d>=0){e=(
cleartext一元二次方程求解ax^2+bx+c=0endtextinput"请输入a的值:"toainput"请输入b的值:"tobinput"请输入c的值:"tocm=b*b-4*a*cifm
dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问:constaAslongbAslongc
vb代码如下:PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea
两处错误,第一个,没有赋值过程,应该改为:a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个:x1=(-b-d)/(2*a)应该是x2=(-b-d)
dimaasdouble,basdouble,casdoubledimx1asdouble,x2asdoublea=val(inputbox(""))b=val(inputbox(""))c=val(
以下是画一元二次方程的图的代码:(假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800)PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2
设两根分别为x,y,判别式=(2a)^2-4ac>0,所以a>c,即c/a<1x+y=-(2a/a),xy=c/a(x-y)^2=(x+y)^2-4xy=4-4c/a>0所以(x-y)^2=m
移项,ax^2+bx=-c,同除以a,x^2+bx/a=-c/a配方,x^2+bx/a+b^2/4a^2=-c/a+b^2/4a^2整理:(x+b/2a)^2=(b^2-4ac)/4a^2当Δ=b^2
应该为ifb²-4ac>=0thenx1=负的2a分之b+根号下b²-4acx2=负的2a分之b-根号下b²-4acelse此二元一次方程无实数根endif如果要说明a不
dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a