|
|
★
感谢参与，应助指数 +1
nono2009: 金币-1, 应助指数-1, 违规存档, 请勿刷应助 2013-10-15 21:51:24
 S5:=0; //初始化S5
for l:=1 to max_k do
begin
for m:=2 to max_k do
begin
if l=m then continue;
parter[l,m]:=sqrt(Power((y[m]-y[l]),2)-
Power((x[m]-x[l]),2));
if parter[l,m]>9.26 then continue
else
S5:=S5+1;
end; |
|
回复此楼
