pascal 习题 完善程序

《pascal 习题 完善程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第1题(14分)以下程序是将一组整数按从小到大的顺序排列。排序的方法是将长度为n的数a分为两个长度分别为(ndiv2)与(n-ndiv2)的子数组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进行排序，最后输出排序结果。programwsh；constmaxn=1

2、00；．typearr：array[1..maxn]ofinteger；vara：array[1..maxn]ofinteger；n，i：integer；proceduresort(n:integer;vara:arr);vari,p1,p2,n1,n2:integer;a1,a2:arr;beginifn=1thenexit;fillchar(a1,sizeof(a1),0);fillchar(a2,sizeof(a2),0);n1:=0;n2:=0;n1:=ndiv2;n2:=(____(1)____);fori:=

3、1ton1doa1[i]:=a[i];fori:=1ton2doa2[i]:=____(2)____;____(3)____;sort(n2,a2);p1:=1;p2:=1;n:=0;while(p1<=n1)and(____(4)____)dobeginn:=n+1;if____(5)____thenbegina[n]:=a1[p1];inc(p1);endelsebegin____(6)____;inc(p2);end;end;ifp1<=n1thenfori:=____(7)____ton1dobeginn:=n+

4、1;a[n]:=a1[i]endelsefori:=p2ton2dobeginn:=n+1;a[n]:=a2[i];end;end;beginwrite('n=');readln(n);fori:=1tondoread(a[i]);readln;sort(n,a);fori:=1tondowrite(a[i],'');writeln;end.答案：n-n1a[n1+i]sort(n1,a1)(p2<=n2)a1[p1]

5、≤100)种小树苗，例如：4个同学（1、2、3、4）每小时种4种树苗（A、B、C、D）的数量估算如下表所示，编程输出每人种1种苗所用的总时间最少的安排方案和所花费的时间。学生ABCD15245243533524243233programwsh;constmaxn=100;maxm=100;vara:array[1..maxn,1..maxm]ofinteger;m,n:integer;i,j,t:integer;procedurework(k,t1:integer);vari:integer;beginif____(1)

6、____thenbeginift1n1mt1+t[k,i]　　第3题(10分)程序的任务是用0…9中的数字填入如下乘法运算的*处，数字可重复使用，且所用的数字至少有

7、一个是素数，要求输出满足下列算式的方案数。***x**----------------******----------------***programwsh;constp:setof0...9=[2,3,5,7];vars:setof0..9;n:integer;ans:longint;f:text;procedureinit;vari:integer;t:byte;beginreadln(n);s:=[];fori:=1tondobeginread(t);s:=s+[t];end;close(f);end;functi

8、onok(x,l:integer):boolean;{此函数判断x是否符合条件}vart:byte;beginok:=false;if___(1)___<>lthenexit;whilex<>0dobegint:=xmod10;ifnot(tins)thenexit;x:=xdiv10;end;ok:=true;en