三角形的周长与面积 用free pascal
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 01:40:43
三角形的周长与面积 用free pascal
输入三角形的边长,求三角形有周长L与面积S.
输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)
输出:只有一行共有二个实数:L S (结果均保留二位小数,两数之间用一个空格隔开)
例如:
输入:2 2 3
输出:7.00 1.98
输入三角形的边长,求三角形有周长L与面积S.
输入:只有一行共有三个实数:a b c (保证三个边长能构成一个三角形)
输出:只有一行共有二个实数:L S (结果均保留二位小数,两数之间用一个空格隔开)
例如:
输入:2 2 3
输出:7.00 1.98
这道题要运用海伦公式,也就是三角形的面积等于三角形 三边 分别于与 周长一半 的 差 的 积,再乘以三角行周长的一半,并将所得的数开平方.
及S=根号下(P×(P-a)×(P-b)×(P-c)),P=(a+b+c)÷2.
那么程序就如下:
program lx;
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));
writeln(p*2:0:2,' ',s:0:2);
end.
我刚刚做了一些修改,将数据全部改成了实型.这样才符合题意.
及S=根号下(P×(P-a)×(P-b)×(P-c)),P=(a+b+c)÷2.
那么程序就如下:
program lx;
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));
writeln(p*2:0:2,' ',s:0:2);
end.
我刚刚做了一些修改,将数据全部改成了实型.这样才符合题意.
free pascal 编写三角形的面积和周长
free pascal如何计算圆的周长与面积
用free pascal输入三角形三条边的值,能构成三角形,输出其面积后结束,不能输出no
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
统计 用free pascal
pascal从键盘上输入一个三角形的三条边长,计算出三角形的面积和周长
Pascal 也分 Turbo Pascal 和 Free Pascal 的
用C++设计一个类来求三角形的面积与周长
初三相似三角形的周长与面积
相似三角形的周长与面积
一道Free Pascal的题目
怎么用free pascal做这道题?