c语言抛物线弓形图像,[PASCAL]已知凸五边形的5个顶点的坐标，求它的面积？

满意答案

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分享举报