VB.给定三条边长,判断能否由这三条边构成三角形,若能,计算三角形的面积

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