满意答案
y为什么j
2014.07.08
采纳率:56% 等级:7
已帮助:458人
var
s,h1,h2,h3,h4,h5,h6,h7:real;
x,y:array[1..5]of integer;
i:integer;
function dis(a1,a2,b1,b2:integer):real;
begin
dis:=sqrt(sqr(a1-b1)+sqr(a2-b2));
end;
function ts(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
ts:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
for i:=1 to 5 do read(x[i],y[i]);
h1:=dis(x[1],y[1],x[5],y[5]);
h2:=dis(x[5],y[5],x[4],y[4]);
h3:=dis(x[3],y[3],x[4],y[4]);
h4:=dis(x[2],y[2],x[3],y[3]);
h5:=dis(x[1],y[1],x[2],y[2]);
h6:=dis(x[2],y[2],x[5],y[5]);
h7:=dis(x[3],y[3],x[5],y[5]);
s:=ts(h1,h6,h5)+ts(h6,h4,h7)+ts(h7,h2,h3);
write(s:0:2);
end.
01分享举报