pascal 输入三角形的三边,判断它是否是直角三角形

给,已经编译运行确认：#include#include#includeintmain(){floata,b,c;floatarea,s;printf("请输入三角行的三边：");scanf("%f%f

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

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

#include#includevoidmain(){\x05floata,b,c,s,area;\x05printf("请输入三角形的三边长:");\x05scanf("%f,%f,%f",&a,&

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

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

缺少头文件:#include

p和m不是integer,是real而且输出的时候会用科学记数法显示,所以最好再定义2个变量,把面积和周长存起来,writeln([变量名]：0：2)【意思是保留2位小数】

#include#includepublicvoidmain(){doublea,b,c;scanf("%lf%lf%lf",&a,&b,&c);doublearea,preimeter;preime

#include<stdio.h>#include<math.h>double CalcArea(double a,double b,double

#include#includevoidmain(){floata,b,c,s,area;scanf("%f%f%f",&a,&b,&c);if(a+b>c&&a-

（1）一样长就是等边,（2）有两个一样就是等腰,（3）最后在判断两个较小边的平方是否等于较长边的平方来看它是否是直角三角形,其中涉及到的比大小是很简单的,相信楼主应该会吧,就是两两相较,找出最大的依着

varp,s,a,b,c:real;beginreadln(a,b,c);if(a>0)and(b>0)and(c>0)and(a+b-c>0)and(abs(a-b)

SubCalcTriangle()DimgetstrAsStringDimarr(1To3)AsDoubleDimpAsDouble,sAsDoubleDimiAsIntegerWhile(True)

programt1；vara,b,c,n:integer;beginn:=a+b+c;if(a+b>c)and(b+c>a)and(a+c>b)thenwriteln(n)elsewriteln('N

ifelseif后面不能加分号;,如果加分号,表示该条件成立时什么都不做,去掉就可以,测试通过,你试一下,有疑问请追问,多谢#include//输入输出使用的是标准库,要使用main(){inta,b

海伦公式假设在平面内,有一个三角形,边长分别为a、b、c,三角形的面积S可由以下公式求得：　　S=√[p(p-a)(p-b)(p-c)]而公式里的p为半周长：　　p=(a+b+c)/2#include

if(a+b>c&&b+c>a&&a+c>b)//&&代表逻辑和{s=(a+b+c)/2;d=s*(s-a)*(s-b)*(s-c);area=sqrt(d);printf("三角形面积=%lf\n"

case用法错误sqr(a)+sqr(b)=sqr(c);writeln('zhijiaosanjiaoxing');你没用beginend怎么一起输出?你这样写还不如写ifthen再问：对不起。我还

前台有五个TextBox,分别是FirstTxt,SecondTxt,ThridTxt(代表a,b,c三边长),areaTxt,aroundTxt(代表面积,周长),一个计算的Button.对输入进行