VB.给定三条边长,判断能否由这三条边构成三角形,若能,计算三角形的面积
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/21 02:39:23
PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod
判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei
#includeclassangle{private:floatx,y,z;public:angle();voidthreeb(floata,floatb,floatc);friendvoidcoma
Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=
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
两条最短边的和大于最长边,或最大边减去最短边小于第三边
includeincludeddoublefun(inta,intb,intc){intp;p=(a+b+c)/2;returnsqrt(p*(p-a)*(p-b)*(p-c));}再问:ok再问:
voidfun(inta,intb,intc)上面这句改成intfun(inta,intb,intc)//elseretrun1这句LZ如果不是抄错的话应该改成elsereturn1;
#includeclassangle{private:floatx,y,z;public:angle();voidthreeb(floata,floatb,floatc);friendvoidcoma
证明:因为tanA*tanB>1,且A+B
PrivateFunctioncheck(ByValaAsInteger,ByValbAsInteger,ByValcAsInteger)AsboolIfNota+b>cThenReturnFalse
两条小边的和大于第三边,即成三角形.面积:S=ah/2(2).已知三角形三边a,b,c,则 (海伦公式)(p=(a+b+c)/2) S=√[p(p-a)(p-b)(p-c)] =(1/4)√[(
a2-b2-c2-2bc=a²-(b+c)²三角形两边之和大于第三边所以a
用海伦公式比较简单.不知道你要用什么语言编写?我简单写一下C语言的:doublesabc(doublea,doubleb,doublec){doublep,s;p=(a+b+c)/2;s=squrt(
直角边a,b,斜边ctan(A)=a/bA=arctan(a/b)tan(B)=b/aB=arctan(b/a)C=90
cleara=input('a=');b=input('b=');c=input('c=');ifa>0&b>0&c>0if(a+b)>c&abs(a-b)
/>原式变形为:2a-2c=(3*b^2)*c-3a*(b^2)2(a-c)=-(3*b^2)*(a-c)[提公因式]2(a-c)+(3*b^2)*(a-c)=0[移项](a-c)[(3*b^2)+2
x,y,z是三边长所以x+y>z(√x+√y)^2=x+y+2√xy>(√z)^2所以√x+√y>√z两边之和大于第三边所以可以是
ifa=b=cthenprint"等边三角"ifa=borb=cora=cthenprint"等腰三角"if(a+b)*(a+b)=cor(a+c)*(a+c)=bor(b+c)*(b+c)=aort