VB设计实现求解一元二次方程

程序运行过了,没有问题,记得给分#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

首先还是鼓励你自己独立思考,把大脑的逻辑思维能力锻炼出来,这是一生受用的真东西.然后我来解你的问题.第1题：对镶边后的挂图,画出它镶边的图形,仔细观察,就可以发现,它的长增加了2Xcm,宽也增加了2X

这样的问题,用【单变量求解】：A1填写-1,B1写公式：=1*11.9*400*A1+300*1256-(245520/A1-660)*1256+0.9*215*1482-0.9*(263599.2/

double改做float再问：yiyuanercifangcheng.cpp(25):warningC4244:'=':conversionfrom'int'to'float',possiblelo

1.设长方形的宽应该为x.则(36-x)(26-x)=850x^2-61x+60=0x-60)(x-1)=0x1=60(舍去)x2=1矩形的宽为1.2.设增加x行,x列则(8+x)(12+x)=8*1

解题思路：先化为一般式，再用因式分解法进行求解.解题过程：解：

设根是kk^2+ak+b=0k^2+bk+a=0相减得(a-b)k+b-a=0(a-b)k=a-b若a-b=0,则不论k是何值都成立和仅有一个公共根矛盾所以a-b不等于0所以k=(a-b)/(a-b)

voidfun(floata,floatb,floatc){\x05try\x05{\x05\x05floatdelt,res1,res2;\x05\x05if(b*b-4*a*c

ax^2+bx+c=0△=(b^2-4ac)x1=(-b+根号△)/2ax2=(-b-根号△)/2a

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

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

解题思路：根据概念解答。解题过程：见附件。最终答案：略

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

楼上说的对,用“solve”例：>>s=solve('x^2-6*x-12=0')MATLAB会返回方程的两个根s=3+21^(1/2)3-21^(1/2)

两处错误,第一个,没有赋值过程,应该改为：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=","

分析首先对r=0和r≠0进行讨论．r=0时,是关于x的一次方程；r≠0时,是关于x的二次方程,由于r是有理数,处理起来有些困难,这时用直接求根或用判别式来做,均不能奏效．可用韦达定理,先把这个有理数r

方程为一元二次方程,m^2=2且m-√2不等于0,∴m=-√21m=-√2