exer2-4.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program e2_4(input,output);
var
s,p,a,b,c:real;
begin
  write('input a,b,c');
  readln(a,b,c);
  writeln('a=',a,'b=',b,'c=',c);
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('s=',s)

end.