VB实验输入一元二次方程计算实根
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 17:05:26
先使用读入函数,从键盘读入三个数.你这三个数分别是一元二次方程的ax^2+bx+c=0中的abc,那么你就是用公式先判断△=b^2-4ac的情况,分三种1△≥0有两个实数根x=[-b±(b^2-4ac
SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex
intmain()printf("请输入a,b,c");{scanf("%d%d%d",a,b,c);intx1,x2;inty=sqrt(b*b-4*a*c);if(y>0){x1=(-b+y)/2
PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesB
#include <stdio.h>#include <math.h>void main(){float a,b,c,x1,x2,di
SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex
自己带些数字进去就可以啦这样还可以练习自己解题的思路
/*结束程序请按“Ctrl+z”*/#include#includeintmain(){floata,b,c;doubled,x1,x2;printf("Enterthecoefficient
自己看下书,试着写一下就好,太简单了再问:你妹,会了还问你?别把自己膨胀的信心践踏在别人身上再答:别误会,要是说过了我很抱歉,这个代码估计没人给你发,还是自己照着书写就可以实现,很快的再问:好吧,原谅
首先,要限制a0否则,根本就不是一元二次方程,后面的程序也要出错.其次,ifd>=oThen这里,这个d>=o似乎不是零0,你写的是英文字母o.第三,公式法求根的时候,d^1/2改为d^(1/2)
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
OptionExplicitPrivateSubCommand1_Click()Dima,b,ca=1:b=-5:c=6Printa,b,c&vbNewLine&fc(a,b,c)EndSubFunc
给个算法的框架,你可以自己细化.#include"math.h"floata,b,c,delta;scanf("%f,%f,%f",&a,&b,&c);delta=b*b-4*a*c;if(delta
以下是画一元二次方程的图的代码:(假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800)PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2
对于输入:fori=1to3forj=1to3a(i,j)=inputbox("请输入a("&i&","&j&")=")nextnext关于求和:1231(3,1)2(2,2)3(1,3)负对角线上各
http://www.cnki.com.cn/Article/CJFDTotal-ZXSX611.018.htm
解方程:x2+4x+4=1由已知,得:(x+2)2=1直接开平方,得:x+2=±1即x+2=1,x+2=-1所以,方程的两根x1=-1,x2=-3
dima,b,c,x1,x2,da=val(inputbox("请输入系数a"))b=val(inputbox("请输入系数b"))c=val(inputbox("请输入系数c"))d=b^2-4*a