vb求一元二次方程ax^2 bx c=0的根,其中a不等于0
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/08 18:09:22
ax²+bx+c=0x²+b/ax+c/a=0x²+b/ax+(b/2a)²-(b/2a)²+c/a=0(x+b/2a)²=b²/
逻辑问题,多打印,多调试.#include#includeintmain(){doublea,b,c,x1,x2,d,e,f,g;scanf("%f%f%f",&a,&b,&c);d=b*b-4*a*
条件b=a+cX1+X2=-b/aX1*X2=c/a带入{-b±√(b^2-4ac)}/2a结果嘛…再问:是0不
在窗体上分别放三个文本框用于输入a,b,c的值,再放一个按钮用于求解privatesubcommand1_click()dimxasdouble,x1asdouble,x2asdouble,a1asd
刚做了,不知道是否都是你问的,源程序如下#include#includeintmain(){floata,b,c,p,x1,x2;/*a,b,c为方程的系数,p用来存放b*b-4ac的值,x1,x2存
假设a在单元格A1,b在单元格B1,c在单元格C1然后在答案单元格1处输入=(-B1+(B1^2-4*A1*C1)^(1/2))*(1/2)*(1/A1)单元格2出输入=(-B1-(B1^2-4*A1
PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,CAsSingleDimR1AsSingle,R2AsSingleA=Val(Text1.Text)B
PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifb^2-4*a*cText4.Text="
(-b(+-,加或减,表示开方有正负)(b*b-4ac)的开放)/(2a)
判别式=b²-4ac=0,说明方程ax²+bx+c=0有一个实数根,函数f(x)=ax²+bx+c的图像与x轴相切a
#include"stdio.h"#include"math.h"voidmain(){floata,b,c;floatdelta;printf("inputa:");scanf("%f",&a);p
ax^2+bx+c=o两实数根为2和3由韦达定理2+3=-b/a2*3=c/a所以b=-5a,c=6acx^2+bx+a=06ax^2-5ax+a=06x^2-5x+1=0(3x-1)(2x-1)=0
#include#include
OptionExplicitPrivateSubCommand1_Click()Dima,b,ca=1:b=-5:c=6Printa,b,c&vbNewLine&fc(a,b,c)EndSubFunc
两处错误,第一个,没有赋值过程,应该改为:a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个:x1=(-b-d)/(2*a)应该是x2=(-b-d)
△=b²-4ac
Private Sub Command1_Click()Dim a As Single, b As Single,&nb
应该为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