Question

pascal计算三角形的面积

pascal计算三角形的面积，用函数，读入两边和

Answer 1

var a,b,s:integer; begin read(a,b); s:=a*b/2; writeln('s=',s); end. 用海伦公式 输入三角形三边a,b,c 然后计算 一下是程序 var a,b,c,s,p:real; begin readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); w

Answer 2

读入两边和夹角的度数，求三角形的面积：

var a,b,x,s:double;
begin
readln(a,b,x);
s:=a*b*sin(x/180*Pi);
writeln('S=',s:6:4);
end.

追问

函数

追答

var a,b,x,s:double;
function area(a,b,x:double):double;
begin
area:=a*b*sin(x/180*Pi);
end;
begin
readln(a,b,x);
s:=area(a,b,x);
writeln('S=',s:6:4);
end.

Answer 3

var
a,b,c,p,s:real;
begin
read(a,b,c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s);
end
else write('No solution');
end.