测评机: Xeost[5]
得分: 20分
提交日期: 2010-9-24 15:15:00
有效耗时: 203毫秒
测试结果1: 通过本测试点|有效耗时156ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 运行错误|普通保护错误
测试结果4: 运行错误|普通保护错误
测试结果5: 运行错误|普通保护错误
测试结果6: 运行错误|普通保护错误
测试结果7: 运行错误|普通保护错误
测试结果8: 运行错误|普通保护错误
测试结果9: 运行错误|普通保护错误
测试结果10: 运行错误|普通保护错误
提交代码: view sourceprint?01.var
02.f:array[1..2,0..701] of integer;
03.x,y:array[0..701] of integer;
04.i,j,k,o,max,n,ma:integer;
05.b,k1:real;
06.begin
07.
08.
readln(n);
09.
for i:=1 to n do
10.
begin
11.
readln(x[i],y[i]);
12.
if x[i]>ma then
13.
ma:=x[i];
14.
if y[i]>ma then
15.
ma:=y[i];
16.
inc(f[1,x[i]]);
17.
inc(f[2,y[i]]);
18.
end;
19.
max:=2;
20.
for i:=1 to 2 do
21.
for j:=1 to ma do
22.
if f[i,j]>max then
23.
max:=f[i,j];
24.
for i:=1 to n-1 do
25.
for j:=i+1 to n do
26.
if (x[i]<>x[j]) then
27.
begin
28.
k1:=(y[i]-y[j])/(x[i]-x[j]);
29.
b:=y[i]-k1*x[i];
30.
o:=2;
31.
for k:=1 to n do
32.
if (k<>i) and (k<>j) then
33.
if (k1*x[k]+b=y[k]) then
34.
o:=o+1;
35.
if o>max then
36.
max:=o;
37.
end;
38.
writeln(max);
39.
40.end.
哪错了?
数组开大一点~______~太小数据容纳不下......
AND..下次请不要把行号打出来......~______~