vb 给定三角形的边长,计算三角形的面积
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/20 16:50:40
PrivateSubCommandButton1_Click()Dima!,b!,c!,p!,s!,tmpa=Val(text1.Text)'转换为数字b=Val(text2.Text)c=Val(t
#includeclassangle{private:floatx,y,z;public:angle();voidthreeb(floata,floatb,floatc);friendvoidcoma
a=Val(inputbox("输入a"))b=Val(inputbox("输入b"))c=Val(inputbox("输入c"))Ifa+b>cAndb+c>aAndc+a>bThen'能构成Ifa
单击Command1即可.代码如下.DimaAsSingle,bAsSingle,cAsSingle,pAsSingle,SAsSinglePrivateSubCommand1_Click()OnEr
'引用 Microsoft Script Control 1.0 '应该是你说的,但你说的3x 这样的公式 要写成
PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条
解三角形解直角三角形(斜三角形特殊情况):勾股定理,只适用于直角三角形(外国叫“毕达哥拉斯定理”)a^2+b^2=c^2,其中a和b分别为直角三角形两直角边,c为斜边.勾股弦数是指一组能使勾股定理关系
includeincludeddoublefun(inta,intb,intc){intp;p=(a+b+c)/2;returnsqrt(p*(p-a)*(p-b)*(p-c));}再问:ok再问:
是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma
#includeclassangle{private:floatx,y,z;public:angle();voidthreeb(floata,floatb,floatc);friendvoidcoma
这在在小学时就学过了,三角形的形心在高的三分之一处,或者还有一法,三条中线的交点处.
a+b大于c&&a+c大于b&&b+c大于a;上面的&&是而且的意思,算法的话是编程才用的到的,你应该可以看懂
提示:1,根据两点公式,长的三面:L1=SQR((X1-X2)^2+(Y1-Y2)^之间的距离,可以计算出2)2,长的三面,发现该地区的?一个三角形,根据海伦公式求.
可以c²=a²+b²-2abcos37º求出C以后用面积求高
PrivateFunctioncheck(ByValaAsInteger,ByValbAsInteger,ByValcAsInteger)AsboolIfNota+b>cThenReturnFalse
用海伦公式比较简单.不知道你要用什么语言编写?我简单写一下C语言的:doublesabc(doublea,doubleb,doublec){doublep,s;p=(a+b+c)/2;s=squrt(
PublicFunctionArea(aAsDouble,bAsDouble,cAsDouble)AsDoubleIfa+bMSGBOX"要求任意两边之和大于第三边"ExitFunctionendif
cleara=input('a=');b=input('b=');c=input('c=');ifa>0&b>0&c>0if(a+b)>c&abs(a-b)
一、等价类划分:三角形三条边A、B、C的数据类型不同二、边界值分析:由于三角形的边长可以是正整数或正小数,所以就不对长度进行测试,那么边界值分析就不用了三、因果图法:三角形的三条边数据输入组合我们看一
ifa=b=cthenprint"等边三角"ifa=borb=cora=cthenprint"等腰三角"if(a+b)*(a+b)=cor(a+c)*(a+c)=bor(b+c)*(b+c)=aort