PASCAL分支结构程序设计

来源：百度知道 编辑：UC知道 时间：2024/04/28 05:19:48
输入3个整数，若能用这三个数作为边长组成三角形；请输出三角形的面积。否则输出CAN‘T。

详细点，最好有解释。

这是我写的程序：
var a,b,c,p,s:real;
begin
readln(a,b,c);
if (a+b>c)or(a+c>b)or(b+c>a) then
{判断是否是三角形}
begin
p:=(a+b+c)/2;{海伦公式}
s:=sqrt(p*(p-a)*(p-b)*(p-c)); {海伦公式}
writeln(s)
end
else writeln('Can not')
end.
明白了吧O(∩_∩)O哈哈~
要加分哦~~~~