PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1052
发信站: 哈工大紫丁香 (2002年03月23日11:09:31 星期六)
来  源: mtlab4.hit.edu.cn 

171134 03:12:25 23 Mar 2002
Bozhang,HIT,P.R.China 1052 Pascal Accepted 0.16 sec 53K

var
    a:array[1..200,1..2] of integer;
    i,j,k,n,sum,best,t1,t2:integer;
begin
    readln(n); for i:=1 to n do readln(a[i,1],a[i,2]);
    best:=1;
    for i:=1 to n-1 do
        for j:=i+1 to n do begin
            if a[i,1]=a[j,1] then begin
                sum:=0;
                for k:=1 to n do if a[k,1]=a[i,1] then inc(sum);
            end else if a[i,2]=a[j,2] then begin
                sum:=0;
                for k:=1 to n do if a[k,2]=a[i,2] then inc(sum);
            end else begin
                sum:=2;
                for k:=1 to n do if (k<>i) and (k<>j) then begin
                    t1:=a[j,2]-a[i,2];
                    t2:=a[j,1]-a[i,1];
                    if t1*(a[k,1]-a[i,1])=t2*(a[k,2]-a[i,2]) then inc(sum);
                end;
            end;
            if sum>best then best:=sum;
        end;
    writeln(best);
end.
--
千 但 此 月 人 别 何 不 照 低 转 何 起 高 又 我 今 不 把 明 
里 愿 事 有 有 时 事 应 无 绮 朱 似 舞 处 恐 欲 夕 知 酒 月 
共 人 古 阴 悲 圆 长 有 眠 户 阁 在 弄 不 琼 乘 是 天 问 几 
婵 长 难 晴 欢    向 恨          人 清 胜 楼 风 何 上 青 时 
娟 久 全 圆 离                   间 影 寒 玉 归 年 宫 天 有 
         缺 合                            宇 去    阙       

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]