free pascal编写三角形面积公式.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/04 23:00:40
free pascal编写三角形面积公式.
顺便把正方形和长方形的写出.
program sjxmj;
var
这些简单的用语,就是begin,writeln这些
顺便把正方形和长方形的写出.
program sjxmj;
var
这些简单的用语,就是begin,writeln这些
![free pascal编写三角形面积公式.](/uploads/image/z/16118618-50-8.jpg?t=free+pascal%E7%BC%96%E5%86%99%E4%B8%89%E8%A7%92%E5%BD%A2%E9%9D%A2%E7%A7%AF%E5%85%AC%E5%BC%8F.)
program sjxmj;
var
a,b,c,p,s:real;
begin
read(a,b,c);{读入边长}
P:=(a+b+c)/2;{海伦公式}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{海伦公式}
writeln(S:0:10);{输出}
end.
这个没有判断过,如果要判断的话就追问吧.
program cfsmj;
var
a,b:real;
begin
read(a,b);
write(a*b:0:0);
end.
program zfsmj;
var
a:real;
begin
read(a);
write(sqr(a):0:0);
end.
再问: 顺便传授写简单计算方法,就是计算什么长方形面积什么的。
再答: program cfsmj;{长方形} var a,b:real; begin read(a,b); write(a*b:0:0); end. program zfsmj;{正方形} var a:real; begin read(a); write(sqr(a):0:0); end. 已经写了呀
var
a,b,c,p,s:real;
begin
read(a,b,c);{读入边长}
P:=(a+b+c)/2;{海伦公式}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{海伦公式}
writeln(S:0:10);{输出}
end.
这个没有判断过,如果要判断的话就追问吧.
program cfsmj;
var
a,b:real;
begin
read(a,b);
write(a*b:0:0);
end.
program zfsmj;
var
a:real;
begin
read(a);
write(sqr(a):0:0);
end.
再问: 顺便传授写简单计算方法,就是计算什么长方形面积什么的。
再答: program cfsmj;{长方形} var a,b:real; begin read(a,b); write(a*b:0:0); end. program zfsmj;{正方形} var a:real; begin read(a); write(sqr(a):0:0); end. 已经写了呀