free pascal编写三角形面积公式.
顺便把正方形和长方形的写出.
program sjxmj;
var
这些简单的用语,就是begin,writeln这些
program sjxmj;
var
a,b,c,p,s:real;
begin
read(a,b,c);{读入边长}
P:=(a+b+c)/2;{海伦公式}
s:=sqrt(p*(p-a)*(p-b)*(p-c));{海伦公式}
writeln(S:0:10);{输出}
end.
这个没有判断过,如果要判断的话就追问吧.
program cfsmj;
var
a,b:real;
begin
read(a,b);
write(a*b:0:0);
end.
program zfsmj;
var
a:real;
begin
read(a);
write(sqr(a):0:0);
end.
再问： 顺便传授写简单计算方法，就是计算什么长方形面积什么的。
再答： program cfsmj;{长方形} var a,b:real; begin read(a,b); write(a*b:0:0); end. program zfsmj;{正方形} var a:real; begin read(a); write(sqr(a):0:0); end. 已经写了呀
