PASCAL怎样弄三角形面积？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

答案:4 悬赏:20 手机版

解决时间 2021-01-26 15:50

提问者网友：半生酒醒
2021-01-25 18:22

最佳答案

五星知识达人网友：woshuo
2021-01-25 19:45

用海伦——秦九韶公式
program sjd;
var
a,b,c,p,s:real;（a,b,c为三角形三边）
begin
readln(a,b,c);（读入三边）
p:=(a+b+c)/2;（求三边之和除以二)
s:=sqrt(p*(p-a)*(p-b)*(p-c));（海伦--秦九韶公式）
writeln(s:0:2);（输出面积，s后面两个冒号分别表示输出数字前的空格数和保留的小数个数）
end.

全部回答

1楼网友：洒脱疯子
2021-01-25 21:37

var a,b,c:integer; t:string; begin writeln('qing shu ru sanjiaoxing san bian:'); readln(a,b,c); if (a+b<=c) or (a+c<=b) or (b+c<=a) then begin writeln('bu shi sanjiaoxing'); exit; end; if (a=b) and (b=c) and (a=c) then t:=t+'dengbian ' else begin if (a=b) or (b=c) or (a=c) then t:=t+'dengyao '; if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then t:=t+'zhijiao ' else if (a*a+b*b<c*c) or (a*a+c*c<b*b) or (b*b+c*c<a*a) then t:=t+'dunjiao ' else if (a*a+b*b>c*c) or (a*a+c*c>b*b) or (b*b+c*c>a*a) then t:=t+'ruijiao '; end; t:=t+'sanjiaoxing'; writeln(t); readln; end.

2楼网友：污到你湿
2021-01-25 20:13

var a,b,c,p,s:real; begin readln(a,b,c); p:=(a+b+c) / 2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); write(s:0:2); end.

3楼网友：轻熟杀无赦
2021-01-25 20:00

海伦公式三角形三边为a,b,c. p=(a+b+c)/2; 面积s:=sqrt(p*(p-a)*(p-b)*(p-c));

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息