如果发现广告等破坏行为，请尽量将条目恢复到较早的版本而不是把相应内容直接删除，谢谢合作。

URAL/1052

来自"NOCOW"

跳转到: 导航, 搜索

枚举，枚举2个点，再枚举每个点判断3点是否共线，累加更新答案。 

program t1052;
var
  x,y:array [1..256] of longint;
  n,max,a,b,c,i,j,h,t:longint;
begin
  readln(n);
  for i:=1 to n do
  readln(x[i],y[i]);
    for i:=1 to n-1 do
    begin
      for j:=i+1 to n do
      begin
        a:=y[j]-y[i];
        b:=x[j]-x[i];
        c:=x[i]*a-y[i]*b;
        t:=0;
        for h:=1 to n do
        if ((a*x[h])-(b*y[h]))=c then inc(t);
        if t>max then max:=t;
      end;
    end;
  writeln(max);
end.
来自"http://www.nocow.cn/index.php/URAL/1052"
个人工具