pascal 习题 完善程序

第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 1 2 3 4

5 4 5 3

B 2 3 2 2

C 4 5 4 3

D 5 3 2 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]); readln

end; t:= maxint; work(1,0); writeln(t) end.

答案：

k>n 1 m

t1+t[k,i]

第3题(10分)程序的任务是用0?9中的数字填入如下乘法运算的*处，数字可重复使用，且所用的数字至少有一个是素数，要求输出满足下列算式的方案数。

* * * x * * ---------------- * * * * * * ---------------- * * * program wsh;

const p:set of 0...9 = [2,3,5,7]; var

s:set of 0..9; n: integer; ans: longint; f: text; procedure init;

var

i: integer; t:byte; begin readln(n); s:=[];

for i:=1 to n do begin read(t); s:=s+[t]; end; close(f); end;

function ok(x,l:integer):boolean; {此函数判断x是否符合条件} var t: byte; begin ok:=false;

if ___(1)___< > l then exit; while x< >0 do begin

t:=x mod 10;

if not ( t in s) then exit; x:=x div 10; end; ok:=true; end;

function inset(x:integer):boolean; {此函数判断x中是否包含素数字} var t: byte; begin

inset:= false;

本文来源：https://www.bwwdw.com/article/3d2d.html