国家集训队作业解题报告.pdfVIP

题目来源 Ural 1588 Jamaica 问题描述 给出平面上的 n 个点，要用直线将他们两两相连。（三点共线就只用连一条）。求这些直 线总长度。 算法 枚举所有三点组，判是否三点共线。 算法证明 无需证明。 算法实现 作表示整数没有精度问题。 源代码 const maxn=300; var n,i,j,k:long ; x,y:array[1..maxn]of long ; m:array[1..maxn,1..maxn]of ; f:array[1..maxn]of ; s:extended; begin readln(n); for i:=1 to n do readln(x[i],y[i]); for i:=1 to n do for j:=i+1 to n f (x[i]=x[j])and(y[i]=y[j]) th ]:=true; for i:=1 to n f not f[i] then for j:=1 to n f ji then if not f[j] then for k:=1 to n