NOIP2004提高组解题报告.docVIP

Noip2004解题报告 一、津津的储蓄计划 算法：模拟法 程序： program save1; var a:array[1..12] of longint; have,save,x,temp,i:longint; f:text; begin assign(f,save.in);reset(f); for i:=1 to 12 do readln(f,a[i]); close(f); for i:=1 to 12 do begin temp:=have+300-a[i]; if temp0 then begin x:=i; break; end else begin save:=save+temp div 100*100; have:=temp mod 100; end; end; assign(f,save.out);rewrite(f); if x0 then writeln(f,-x) else writeln(f,trunc(save*1.2)+have); close(f); end. 二、合并果子 算法：贪心+堆 分析：显然，每次从现有的数中选取两个最小数的进行合并（将这两个数删除），将合并后的数记录下来，重复n-1次，就能保证值最小。 由于需要不断选取最小的数，数据结构考虑采用堆。首先建堆，每次操作，先选取最小元素O(1)，并从堆中删除最小元素O(logn)，重复两次，再将合并后的数插入堆中O(logn)。 我的程序建堆采取快速排序，时间复杂度O(nlogn)，也可以直接采取堆排序，时间复杂度同样O(nlogn)。这样总的时间复杂度O(nlogn)。 程序： program fruit; uses dos; var a:array[1..20000] of longint; n,n1,ans,min1,min2:longint; f:text; t1,t2,t3,t4,t5,t6,t7,t8:word; t:double; procedure init; var i:longint; begin gettime(t1,t2,t3,t4); assign(f,fruit.in);reset(f); readln(f,n); for i:=1 to n do read(f,a[i]); close(f); end; procedure qsort(l,r:longint); var i,j,x,temp:longint; begin i:=l;j:=r;x:=a[random(r-l+1)+l]; repeat while a[i]x do i:=i+1; while a[j]x do j:=j-1; if i=j then begin temp:=a[i];a[i]:=a[j];a[j]:=temp; i:=i+1;j:=j-1; end; until ij; if lj then qsort(l,j); if ir then qsort(i,r); end; function deletemin:longint; var i,j,temp:longint; begin deletemin:=a[1]; a[1]:=a[n1]; n1:=n1-1; i:=1; while i=n1 div 2 do begin if (a[2*i]a[2*i+1]) or (2*i=n1) then j:=2*i else j:=2*i+1; if a[i]a[j] then begin temp:=a[i]; a[i]:=a[j]; a[j]:=temp; i:=j; end else exit; end; end; procedure insert(x:longint); var i,temp:longint; begin n1:=n1+1; a[n1]:=x; i:=n1; while (i1) and (a[i]a[i div 2]) do begin temp:=a[i];a[i]:=a[i div 2];a[i div 2]:=temp; i:=i div 2; end; end; procedure main; var i,j,k1,k2:longint; begin n1:=n; for i:=1 to n-1 do begin min1:=deletemin; min2:=deletemin; insert(min1+min2); ans:=ans+min1+min2; end; assign(f,fruit.out);rewrite(f); writeln(f,ans); close(f); gettime(t5,t6,t7,t8); t:=((t5-t1)*60+(t6-t2))*60+(t7-t3)+(