专项训练（完善程序）.doc

信息学初赛专题训练-----完善程序(1)1(每空2分，共32分)： 1（14分）、以下程序是将一组整数按从小到大的顺序排序。排序的的方法是将长度为n的数a分为两个长度分别为（a div 2）与（ n-n div 2）的子数组a1,a2。然后递归调用排序过程，将a1,a2分别排序，最后将a1,a2归并成数组a。例如 a=(3,1,2,4)，那么 a1=(3,1),a2=(2,4)。调用排序过程将 a1,a2排序，得到 a1=(1,3),a2=(2,4)，然后进行合并排序。 从键盘输入数的长度n以及n个整数，存在数组a中，调用子过程 sort进行排序，最后输出排序结果。 program LM_41; const maxn=100; type arr=array[1..maxn] of integer; var a:arr; n,i:integer; procedure sort(n:integer;var a:arr); var i,p1,p2,n1,n2:integer; a1,a2:arr; begin if n=1 then exit; fillchar(a1,sizeof(a1),0); fillchar(a2,sizeof(a2),0); n1:=0;n2:=0; n1:=n div 2; n2:=（ ① ）; for i:=1 to n1 do a1[i]:=a[i]; for i:=1 to n2 do a2[i]:=（ ② ）; （ ③ ） sort(n2,a2); p1:=1;p2:=1; n:=0; while(p1=n1) and ( ④ ) do begin n:=n+1; if（ ⑤ ）then begin a[n]:=a1[p1];inc(p1);end else begin（ ⑥ ）;inc(p2);end; end; if p1=n1 then for i:=（ ⑦ ） to n1 do begin n:=n+1;a[n]:=a1[i]; end else for i:=p2 to n2 do begin n:=n+1;a[n]:=a2[i];end; end; begin write(n=); readln(n); for i:=1 to n do read(a[i]); readln; sort(n,a); for i:=1 to n do write(a[i], ); writeln; end. 第2题（8分），有n (1≤n≤100)个同学种m（1≤m≤100）种小树苗，例如：4个同学每小时种4种树苗的数量估算如下表所示，编程输出每人种1种苗所用的总时间最少的安排方案和所花费的时间。 苗树 学生 A B C D 1 5 2 4 5 2 4 3 5 3 3 5 2 4 2 4 3 2 3 3 program LM_42; const maxn=100;maxm=100; var a:array[1..maxn,1..maxm] of integer; m,n:integer; i,j,t:integer; procedure work(k,t1:integer); var i:integer; begin if ① then begin if t1t then t:=t1; exit; end; for i:= ② to ③ do work(k+1, ④ ); end; begin readln(n,m); for i:=1 to n do begin for j:=1 to m do read(a[i,j]); readln end; t:=maxint; work(1,0); writeln(t) end. 第3题（10分），程序的的任务是用0··9中的数字填入如下乘法运算的*处，数字可重复使用，且所用的数字至少有一个是素数，要求输出满足下列算式的方案数。 * * * ╳ * * --------------- * * * * * * -----------