VB输入三角形三边判断是直角三角形

临时写的,没经过调试啊~有不懂的就问我吧~#includevoidmain(){inti;floata[3]//三角形三边长floatlength[5];intflag=0;//flag当成布尔值如果

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

设a为直角三角形的斜边,则a>b且a>ca方=b方+c方由（2a）方=4（a方）=4（b方+c方）=(2b)方+(2c)方故三角形A1B1C1为直角三角形

我给你的程序能很精确地判断出是不是三角形是等腰三角形等边三角形还是一半三角形算面积那部分我没写你看看是不是你要的PrivateSubCommand1_Click()IfVal(Text1.Text)+

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

#include#include//最小精度doubleeps=1e-5;//圆周率常量doublePI=acos(-1);//枚举三角形类型,分别为：//非法三角形,锐角三角形,等边三角形,等腰三角

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

a=Val(inputbox("输入a"))b=Val(inputbox("输入b"))c=Val(inputbox("输入c"))Ifa+b>cAndb+c>aAndc+a>bThen'能构成Ifa

scanf("%d,%d,%d",&a,&b,&c);没加取地址符再问：还真是！！真够悲剧的，这个错误经常犯还是没改过来！谢谢您了！ 为什么改好了，运行还是有问题？这个运行结果居然是锐角三角

记住一个定理：三角形两边之和大于第三边,两边之差小于第三边.这就足够了!

eturnfalse;if(a+b>c&&a+c>b&&b+a>c&&b+c>a){if(a==b&&a==c){cout

PrivateSubCommand1_Click()Dima,b,c,area,cca=Val(InputBox("请输入第一个数"))b=Val(InputBox("请输入第二个数"))c=Val(

（1）a=8b=15c=17a²+b²=8²+15²=269=17²=c²是直角三角形.C是直角（2）a=6b=10c=8a²+c

算法没问题,按你的代码,调整了一下PrivateSubCommand1_Click()Dima!,b!,c!a=Val(InputBox("请输入a"))b=Val(InputBox("请输入b"))

PrivateSubCommand1_Click()a=Val(InputBox("输入a的长"))b=Val(InputBox("输入b的长"))c=Val(InputBox("输入c的长"))If

dima,b,casdoublePrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa+

输入A,B,CA+B大于C且A-B小于C同时满足,输出若A^2+B^2=C^2或A^2+C^2=B^2或B^2+C^2=A^2(直角三角形其他的略面积,则要用海伦公式,不太好写出来,可以去查别浪费资源

设三边为a,b,c若a+b>ca-

ifa+b>canda-

PrivateSubCommand2_Click()Dima,b,ca=Text1.Textb=Text2.Textc=Text3.TextIfa-bcAnda+caThenMsgBox"该组数可构成