正方形计数 count

【问题描述】

给定平面上N个点，你需要计算以其中4个点为顶点的正方形的个数。

注意：这里的正方形边不一定需要和坐标轴平行。

 

【输入格式】

输入文件中仅一行为一个整数N。

接下来的N行，每行有两个整数xi，yi，分别表示N个点的坐标。

 

【输出格式】

输出文件中仅一行为一个整数，即正方形的个数。

 

【输入输出样例】

输入：

7

0 0

0 1

1 0

1 1

1 2

2 1

2 2

 

输出：

3

 

【数据范围】

对于20%的数据，满足：1<=N<=20；

对于100%的数据，满足：1<=N<=500，-50<=X[i]，Y[i]<=50，点不会重叠。

这道题是一道纯的模拟。

我们可以枚举 2个点，然后组成2个正方形

然后判断点是否读入过。

注意判断重复！详见下面的程序

var  ans,n,i,j,dx,dy,x3,x4,y3,y4:longint;  m:array[-200..200,-200..200] of longint;  x,y:array[0..515] of longint;begin  read(n);ans:=0;  fillchar(m,sizeof(m),0);  for i:=1 to n do    begin  read(x[i],y[i]);  m[x[i],y[i]]:=i;end;    for i:=1 to n-3 do    for j:=i+1 to n-1 do  begin    dx:=x[j]-x[i];dy:=y[j]-y[i];x3:=x[j]+dy;y3:=y[j]-dx;x4:=x[i]+dy;y4:=y[i]-dx;if (m[x3,y3]>i) and (m[x4,y4]>j) then ans:=ans+1;x3:=x[j]-dy;y3:=y[j]+dx;x4:=x[i]-dy;y4:=y[i]+dx;if (m[x3,y3]>i) and (m[x4,y4]>j) then ans:=ans+1;  end;  writeln(ans);end.