计算机初试天大真题：数模结构与程序设计.pdfVIP

table{border-collapse:collapse;}table,th,td{border:1pxsolid#000;}

考试科目：数模结构和程序设计(PASCAL,C低必)

题号：0902

页数：

答题须知：凡程序设计题，必须先进行设计，思想的描述，可以用框图或结构化汉语进行

说明。然后再编程，在程序中用到的数据结构和变量必须加以说明。过程也应适当加以注

释，表面要求书写整齐，字迹清晰，书写共九题。

一（10分）请写出遍历下面的二叉树的三种结果

二（10分）请写出下面图的二种结构，

（1）

2

3

4

5

二.（10分）举例说明拓扑排序的方法

四.（10分）如果用链表作为栈的结构，请写出相应的运算过程（1）初始化（2）进

栈（3）退栈

五（10分）举例说明非的方法

2

六.（10分）基于恒等式1+3+5+…+(2n−1)  n，仅利用加法操作，可以设计出如下

程序，由能计算出平方值不超过给定的非负整数A（A ≤ 10000）的最大整数，即求出

Root(A)，使满足Root²(A)≤A(Root(A)+1)²，其中0 ≤ A ≤ 10000。试填空完成此程序。

(Pascal或C语言任选一题，共五空)

programRootDemo;

var

A.Integ-

functionRootN(W,Integer)Integer.

var

X,Y,Z.Integer;

begin

X=0;

$$Y_{1}=\underline{{\text{①}}}$$

$$Z=\underline{{\quad②\quad}}$$

while(Y    W)do

begin

X  ③

$$Z=\underline{{\quad④}}$$

$$Y=\underline{{\quad⑤}}$$

end:

Root N  X.

B

includestdio.h

inta;

introot(n)

intw;

intx, y, z.

$$x=\overline{{0}}.$$

$$v=\underline{{\quad①}}.$$

$$z=\boxed{2}$$

while(v    w){}

x  ①

$$z=\underline{{\quad④}}.$$

y  …⑤

return (∖).

1

main()

第页

bcein

WriteLn:

WriteLn:

WriteLn(‘Thisisaexample:’);

WriteLn(‘PleaseinputintegerA:’);

Write(‘0=A=10000)A:’);

Read(A);

if(A=0)and(A=10000)then

WriteLn(‘Input’.A.’Root=’.RootN(A));

end.

printf(“”);

printf(“Thisisaexample”);

printf(“PleaseinputintegerA”);

printf((0=A=10000)A“);

scanf(”%d”,a);

if((a=0)a=10000))printf(“Input=%dRoot=%d”,a,rootn(a))

七.（12分）下面的程序是一个改进的冒泡排序程序，其主要改进是每次扫描都要排好两

个元素。假定初始被排序的元素个数是奇数个，试填空完成下面的程序。（Pascal或

C语言任选一题，共六空）

programSortDemo;constMax=9;

varA:Array[1..Max]