Help!!! 为什么 只有40分?

编译通过...

├ 测试数据 01:答案正确... 0ms

├ 测试数据 02:答案正确... 0ms

├ 测试数据 03:答案错误... ├ 标准行输出

 ├ 错误行输出

├ 测试数据 04:答案错误... ├ 标准行输出

 ├ 错误行输出

├ 测试数据 05:答案正确... 0ms

├ 测试数据 06:答案正确... 0ms

├ 测试数据 07:答案错误... ├ 标准行输出

 ├ 错误行输出

├ 测试数据 08:答案错误... ├ 标准行输出

 ├ 错误行输出

├ 测试数据 09:答案错误... ├ 标准行输出

 ├ 错误行输出

├ 测试数据 10:答案错误... ├ 标准行输出

 ├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分:40 有效耗时:0ms

源程序如下:

Program ex1;

var flag,m,n,k,l,d,i,j,x,y,x1,y1:longint;

tmp,col,row:array[1..1000]of longint;

function min(a,b:longint):longint;

begin

if ab then exit(b);

end;

function notsame(a,b:longint):longint;

var t:longint;

begin

if ab then

begin

t:=a;

a:=b;

b:=t;

end;

notsame:=a;

end;

procedure quicksort(s,t:longint);

var i,j,k,x,t1:integer;

begin

i:=s;j:=t;

k:=random(t-s)+1;

x:=notsame(tmp[i],tmp[k]);

repeat

while (j>i)and(tmp[j]i) then

begin

t1:=tmp[i];tmp[i]:=tmp[j];tmp[j]:=t1;

end;

while (j>i)and(tmp[i]>=x) do inc(i);

if (j>i) then

begin

t1:=tmp[i];tmp[i]:=tmp[j];tmp[j]:=t1;

end;

until(i=j);

inc(i);dec(j);

if (m

1 条评论

  • 1

信息

ID
1498
难度
5
分类
贪心 点击显示
标签
递交数
4079
已通过
1539
通过率
38%
被复制
20
上传者