简单的编程问题 ,具体的编程语言

来源：百度知道 编辑：UC知道 时间：2024/07/01 14:14:05
输入3个正整数，若能用三个数作为扁长组成三角形，就计算出并输入三角形面积，否则输出can’t
假设三边长为a，b，c
p＝（a＋b＋c）/2
面积s=sqrt(p*(p-a)*(p-b)*(p-c))

把过程(或许行业语是语句)全写下..
本人感激不尽,.. 另外我用的是free pascal

直接在浏览器里写了，请自己编译调试~
---------------------------一条攒rp的分割线---------------------------
Program SimpleQuestion;
Var a,b,c:integer;
s, p:real;
begin
readln(a,b,c);
if (a+b<=c) or (a+c<=b) or (b+c<=a) then writeln('can''t')
else begin
p := 0.5*(a+b+c);
s := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Area = ', s:0:2);
end;
end.