VB从键盘输入一个一元二次方程的三个系数,判断该方程有无实数根.

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

这个是那一章的全部答案1．设有如下两组数据：(1)1,3,5,2,4,18,50,25(2)5,27,30,35,60,41,87,33编写一个程序,把上面两组数据分别读入两个数组中,然后把

Function Exchange(ByVal num As Integer)    If num 

m1和m2就是要找的那两个数这里认为规定了m1

这个是有公式的.一元二次方程求根公式：当Δ=b的平方-4ac≥0时,x=[-b±根号(b的2次方-4ac)]/2a一元二次方程配方法：ax^2+bx+c=0(a,b,c是常数)x^2+bx/a+c/a

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

#include#includeintmain(){doublea,b,c,disc,p,q,x1,x2;scanf("%lf%lf%lf",&a,&b,&c);disc=b*b-4*a*c;if(a

1)[x-(-1+√2/3)]^2=0x^2-2(-1+√2/3)x+5/3+2√2/3=02)(x-5)(x+8)=0x^2+3x-40=03)(x-√2)(x+2√2)=0x^2+√2x-4=0

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

从键盘输入一个自然数N(

我也刚学C,费了好几个小时,终于把这个问题搞定了!已经运行过了,结果跟谭版结果一样,敬请放心使用.#include"stdio.h"#include"math.h"voidmain(){doublea

把x=n代入方程,再在等式左右同除以n,得n+m+1=0.所以m+n=-1.选B

(1)设原式=(ax+2)²则a²=2m-1,(m+1)/2=a所以(m+1)²/4=2m-1m²+2m+1=8m-4m²-6m+5=0(m-1)(m

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

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

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

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

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

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

移项得到4x^2-4x+1=0(2x-1)^2=0x=1/2