vb语言输入abc,求解一元二次方程ax*2 bx 1=0的根

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

有现成公式,m=(a+b+c)/2;area=sqrt(m*(m-a)*(m-b)*(m-c));area为面积别问我怎么来的,我也不清楚,但绝对好用周长就不用我说了吧

我知道怎么判断他是不是三角形,也知道怎么编,但我有的是freepascal,不知行不行：programlam;vara,b,c:integer;(a,b,c分别为三角形的三条边)beginread(a

scanf("%f,%f,%f",a,b,c);a,b,c前加个&符号还有x1=(e-b)/2a,要x1=(e-b)/(2*a)

lf%错了,应该是%lf

很高兴为您解答.原代码中的scanf和printf中的%要放在d和lf的前面才对,改正后运算无误~#include#includevoidmain(){doublex1;//x1,x2分别为方程的2个

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

#includefloatf(float);voidmain(){floata,b,c,d,x1,x2,p,q;printf("a=");scanf("%f",&a);printf("b=");sca

#include <stdio.h>#include <math.h>void main(){float a,b,c,x1,x2,di

abc()好像能代表数组、含数abc仅仅是一个变量名吧

PrivateSubCommand1_Click()d=Val(Text1)Print100*(dMod100)+Int(d/100)EndSu

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

#include#include#includevoidmain(){floata,b,c,x1,x2,delta;intflag;printf("a=");scanf("%f",&a);printf

#include#includevoidmain(){floata,b,c,disc,x1,x2,realpart,imagpart;scanf("%f,%f,%f",&a,&b,&c);disc=b

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

一处填Endif题目中的第二个if是第一个if的子语句也就是说第二个if是在ph>4.7的前提下的所以第一个if还缺少一个endif

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

'楼主您好!'在窗体上画一个按钮,一个文本框'代码如下：Option ExplicitDim intNumber1 As Long,&n

已经传给你工程了,有问题留言.我们继续讨论.

dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a