设计VB程序求一元二次方程ax2 bx c=0的根

先写流程框图,输入框x→判断框Δ值→再用求根公式→输出.程序就根据流程图来写只是附加条件判断

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputB

开始第一步输入x第二步计算ax+bx+c=0第三步判断b^2-4ac》=0?若是则继续进行第四步,否,则输出“次方程无解”第四步计算x=[-b±(b^2-4ac)^(1/2)]/2a第四步输出X结束I

这个我直接用的4个command控件,如果你学过应该能看懂Dim a As Integer, b As Integer, c&nb

在窗体上分别放三个文本框用于输入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

请参考

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifb^2-4*a*cText4.Text="

可以编写这样的程序.二元一次方程组的标准形式是：ax+by=ecx+dy=f那么：y=(ec-af)/(bc-ad)x=(e-by)/a程序如下：input{text-align:right}x+y=

#include"stdio.h"#include"math.h"voidmain(){floata,b,c;floatdelta;printf("inputa:");scanf("%f",&a);p

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

#include#include

type根类型有根asboolean大根assingle小根assingleendtypefunction求根(aassingle,bassingle,cassingle)as根类型dim得塔assi

两处错误,第一个,没有赋值过程,应该改为：a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")第二个：x1=(-b-d)/(2*a)应该是x2=(-b-d)

以下是画一元二次方程的图的代码：（假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800）PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2

(1)输入a=2,b=3,c=-1;(2)dt=b^2-4*a*c;(3)如果dt

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

C++的代码：#include<iostream.h>#include<math.h>voidmain(void){doublea,b,c,d;charch('y');do{c