VB 编写求解一元二次方程 ax2 bx c=0

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

程序运行过了,没有问题,记得给分#include#includeclassEquation{\x05floata,b,c;\x05public:\x05floatx[2];\x05Equation(f

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

可以的,假设行向量X=（x1,x2,.,xn）,Y=（y1,y2,.,yn）,那么x+ty=(x1+ty1,x2+ty2,...,xn+tyn);||x+ty||^2=(x+ty)*(x+ty)'=c

double x1 = 0;//解1double x2 = 0;//解2Console.WriteLine("求 ax^

//Equation.h#ifndef_Equation_h#define_Equation_hclassEquation{private:doublea;doubleb;doublec;voidSh

查看链接http://wenku.baidu.com/link?url=uNerr_G11gI_WwHcUhl2mSHyhMMkD1AiTDlcuBl7vdk6Kt3u55bgOhFFeyafAp9m

PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB

以下程序在jdk5.0测试通过importjava.util.Scanner;publicclassTest{//一元二次方程式解法privatestaticXfx(inta,intb,intc)th

#include#includevoidm(floata,floatb,floatc){\x09doublex1,x2;\x09x1=(-b+sqrt(b*b-4*a*c))/(2*a);\x09x2

对于形如a*x^2+b*x+c=0的方程可以使用下面的程序求根x=roots([abc])例如4*x^2-5*x+1=0x=roots([4-51])x=1.00000.2500祝你学习愉快!再问：是

自己写的代码,应该跟你们学校要求的差不多：（VB）首先搞三个text框,分别输入系数a,b,c；再一个command按钮PrivateSubCommand1_Click()a=Val(Text1.Te

设x方分之一=t,然后两边平方,整理得t方+48t+768=0,这会就用求根公式,或者……能看出来的话也可以十字相乘

publicstaticmain(String[]arg0){if(arg0==null||arg0.length==0){\x09System.out.println("请输入参数：a,b,c");

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

解题思路：本题考查了根与系数的关系：若x1，x2是一元二次方程ax2+bx+c=0（a≠0）的两根时，x1+x2=-b/a,x1x2=c/a.解题过程：

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

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

（1）由题意知本题是一个古典概型，当A=1时Ax2+Bx+C=0，变为x2+Bx+C=0方程有实数解得B2-4C≥0 显然B≠1若B=2时C=1；1种若B=3时C=1，2；2种若B=4时C=

A=input('请输入一元二次方程的三个系数a,b,c：')；delta=A(2)^2-4*A(1)*A(3);x1=(-A(2)-sqrt(delta))/2*A(1);x2=(-