free pascal编写三角形面积公式.顺便把正方形和长方形的写出.program sjxmj;v

网友回答

program sjxmj;
vara,b,c,p,s:real;
beginread(a,b,c);{读入边长}
P:=(a+b+c)/2;{海伦公式}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{海伦公式}
writeln(S:0:10);{输出}
end.这个没有判断过,如果要判断的话就追问吧.
program cfsmj;
vara,b:real;
beginread(a,b);
write(a*b:0:0);
end.program zfsmj;
vara:real;
beginread(a);
write(sqr(a):0:0);
end.