正方形计数 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.