jzoj 1349. 【2011.12.17普及模拟】连线游戏

1349. 【2011.12.17普及模拟】连线游戏(lines) 
(File IO): input:lines.in output:lines.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

    Farmer John最近发明了一个游戏，来考验自命不凡的贝茜。游戏开始的时候，FJ会给贝茜一块画着N (2 <= N <= 200)个不重合的点的木板，其中第i个点的横、纵坐标分别为X_i和Y_i (-1,000 <= X_i <=1,000；-1,000 <= Y_i <= 1,000)。

    贝茜可以选两个点画一条过它们的直线，当且仅当平面上不存在与画出直线平行的直线。游戏结束时贝茜的得分，就是她画出的直线的总条数。为了在游戏中胜出，贝茜找到了你，希望你帮她计算一下最大可能得分。

输入

第1行: 输入1个正整数：N

第2..N+1行: 第i+1行用2个用空格隔开的整数X_i、Y_i，描述了点i的坐标

输出

第1行: 输出1个整数，表示贝茜的最大得分，即她能画出的互不平行的直线数

样例输入

4
-1 1
-2 0
0 0
1 1

样例输出

4

数据范围限制

提示

【 输出说明】

    贝茜能画出以下4种斜率的直线：-1，0，1/3以及1。

其实这题就是求斜率问题，斜率公式：行差/列差

代码如下：

var
 x,y:array[1..200]of real;
 f:array[1..40000]of real;
 n,t,sum:longint;

procedure init;
var i:longint;
begin
 readln(n);
 for i:=1 to n do
  readln(x[i],y[i]);
end;

procedure qsort(l,r:longint);
var i,j:longint; k,m:real;
begin
 if l>=r then exit;
 i:=l; j:=r;
 k:=f[(l+r)div 2];
 repeat
  while f[i]<k do inc(i);
  while f[j]>k do dec(j);
   if i<=j then
    begin
     m:=f[i]; f[i]:=f[j]; f[j]:=m;
     inc(i); dec(j);
    end;
  until i>j;
 qsort(i,r);
 qsort(l,j);
end;

procedure main;
var i,j:longint;
begin
 for i:=1 to n-1 do
  for j:=i+1 to n do
   begin
    inc(t);
    if (y[i]-y[j]=0) then f[t]:=maxlongint
                     else f[t]:=((x[i]-x[j])/(y[i]-y[j]));
   end;
end;

procedure print;
var i:longint;
begin
 qsort(1,t);
 for i:=1 to  t do
  if f[i]=f[i+1] then continue else inc(sum);
 write(sum);
end;

begin
 assign(input,'lines.in');reset(input);
 assign(output,'lines.out');rewrite(output);
 init;
 main;
 print;
 close(input); close(output);
end.