搜搜考试网问一个很简单的Pascal编程代码?
来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/07/01 04:36:52
问一个很简单的Pascal编程代码?
.输入三个正整数,若能用这三个数作为边长组成三角形,就计算并输出该三角形的面积,否则输出Can't.(组成三角形的条件为：任意两边之和大于第三边)
.输入三个正整数,若能用这三个数作为边长组成三角形,就计算并输出该三角形的面积,否则输出Can't.(组成三角形的条件为：任意两边之和大于第三边)
var a,b,c:longint;p:real;
begin
read(a,b,c);p:=(a+b+c)/2;
if (a+b>c)and(a+c>b)and(b+c>a) then
writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:2)
else begin writeln('Can',chr(67),'t');end;
end.
begin
read(a,b,c);p:=(a+b+c)/2;
if (a+b>c)and(a+c>b)and(b+c>a) then
writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:2)
else begin writeln('Can',chr(67),'t');end;
end.