pascal 习流题 完善程序.doc

第1题(14分)以下程序是将一组整数按从小到大的顺序排列。排序的方法是将长度为n的数a分为两个长度分别为(n 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 wsh； const maxn=100；． type arr：array[1..maxn] of integer； var a：array[1..maxn] of integer； 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:=(____(1)____); for i:= 1 to n1 do a1[i]:=a[i]; for i:= 1 to n2 do a2[i]:=____(2)____; ____(3)____; sort(n2, a2); p1:=1; p2:=1; n:=0; while (p1 = n1) and (____(4)____) do begin n:=n+1; if ____(5)____ then begin a[n]:=a1[p1] ;inc(p1); end else begin ____(6)____; inc(p2) ;end; end; if p1 = n1 then for i:= ____(7)____ 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. 答案： n-n1 a[n1+i] sort(n1,a1) (p2 =n2) a1[p1] a2[p2] a[n]:=a2[p2] p1 　　第2题(8分)有n(1≤n≤100)个同学种m(1≤n≤m≤100)种小树苗，例如：4个同学（1、2、3、4）每小时种4种树苗（A、B、C、D）的数量估算如下表所示，编程输出每人种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 wsh; 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 ____(1)____ then begin if t1 t then t1:=t; exit; end; for i:= ___(2)___ to ___(3)___ do work(k+1,___(4)___); end; begin readln(n,m); for i:=1 to n do begin for j:=1 to m do read (a[i,j]);