堆排代码：
program t1;
var
n:array [1..200] of integer;
k,i,j,total,t,ans:integer;
procedure swap(var i,j:integer);
var
t:integer;
begin
t:=i;
i:=j;
j:=t;
end;
procedure down(i:integer);
var
j,k:integer;
begin
while i>n;
for (i=1;i>a[i];
while (n>1)
{
m1=m2=0x7fffffff;
for (i=1;i
3 条评论
-
williamx LV 8 @ 2012-08-30 21:51:05
这道题应该用动规吧？
-
@ 2009-07-30 18:33:06
THANX
谢谢~1个bug已订正~
但是时间太ws了，有那位牛能解释一下：编译通过...
├ 测试数据 01：答案正确... 416ms
├ 测试数据 02：答案正确... 0ms
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 41ms
├ 测试数据 06：答案正确... 88ms
├ 测试数据 07：答案正确... 416ms
├ 测试数据 08：答案正确... 416ms
├ 测试数据 09：答案正确... 416ms
├ 测试数据 10：答案正确... 416ms
---|---|---|---|---|---|---|---|-
Accepted 有效得分：100 有效耗时：2209ms -
@ 2009-07-24 09:39:22
.
写错了可能
- 1
