pascal的一些经典题型
发布网友
发布时间：2022-05-09 19:04
共6个回答
热心网友
时间：2023-10-14 03:30
(提高组PASCAL语言 二小时完成) 参*
一、选择一个正确答案代码(A/B/C/D)，填入每题的括号内(每题1.5分，多选无分，共30分)
1、*处理器CPU能访问的最大存储器容量取决于( )
A)地址总线 B)数据总线 C)控制总线 D)内存容量
2、计算机软件保*是用来保护软件( )的。
A)编写权 B)复制权 C)使用权 D)著作权
3、64KB的存储器用十六进制表示，它的最大的地址码是( )
A)10000 B)FFFF C)1FFFF D)EFFFF
4、在树型目录结构中，不允许两个文件名相同主要指的是( )
A)同一个磁盘的不同目录下 B)不同磁盘的同一个目录下
C)不同磁盘的不同目录下 C)同一个磁盘的同一个目录下
5、下列设备哪一项不是计算机输入设备( )
A)鼠标 B)扫描仪 C)数字化仪 D)绘图仪
6、在计算机硬件系统中，cache是( )存储器
A)只读 B)可编程只读 C)可擦除可编程只读 D)高速缓冲
7、若我们说一个微机的CPU是用的PII300，此处的300确切指的是( )
A)CPU的主时钟频率 B)CPU产品的系列号
C)每秒执行300百万条指令 D)此种CPU允许最大内存容量
8、Email邮件本质上是一个( )
A)文件 B)电报 C)电话 D)传真
9、2KB的内存能存储( )个汉字的机内码
A)1024 B)516 C)2048 D)218
10、以下对Windows的叙述中，正确的是( )
A)从软盘上删除的文件和文件夹，不送到回收站
B)在同一个文件夹中，可以创建两个同类、同名的文件
C)删除了某个应用程序的快捷方式，将删除该应用程序对应的文件
D)不能打开两个写字板应用程序
11、运算式(2047)10—(3FF)16+(2000)8的结果是( )
A)(2048)10 B)(2049)10 C)(3746)8 D)(1AF7)16
12、TCP/IP协议共有( )层协议
A)3 B)4 C)5 D)6
13.若已知一个栈的入栈顺序是1，2，3，…，n，其输出序列为P1，P2，P3，…，Pn，若P1是n，则Pi是( )
A)i B)n-1 C)n-i+1 D)不确定
14.计算机病毒是( )
A)通过计算机传播的危害人体健康的一种病毒
B)人为制造的能够侵入计算机系统并给计算机带来故障的程序或指令集合
C)一种由于计算机元器件老化而产生的对生态环境有害的物质
D)利用计算机的海量高速运算能力而研制出来的用于疾病预防的新型病毒
15.下面关于算法的错误说法是( )
A)算法必须有输出 B)算法必须在计算机上用某种语言实现
C)算法不一定有输入 D)算法必须在有限步执行后能结束
16.[x]补码=10011000，其原码为( )
A)011001111 B)11101000 C)11100110 D)01100101
17.以下哪一个不是栈的基本运算( )
A)删除栈顶元素 B)删除栈底的元素
C)判断栈是否为空 D)将栈置为空栈
18.在顺序表(2，5，7，10，14，15，18，23，35，41，52)中，用二分法查找12，所需的关键码比较的次数为( )
A)2 B)3 C)4 D)5
19.一棵二叉树的高度为h，所有结点的度为0，或为2，则此树最少有( )个结点
A)2h-1 B)2h-1 C)2h+1 D)h+1
20.无向图G=(V，E)，其中V={a,b,c,d,e,f} E={(a,b),(a,e),(a,c),(b,e),(c,f),(f,d),(e,d)}
对该图进行深度优先遍历,得到的顶点序列正确的是( )
A)a,b,e,c,d,f B)a,c,f,e,b,d C)a,e,b,c,f,d D)a,b,e,d,f,c
二、问题求解(5+7=12分)
1.已知一棵二叉树的结点名为大写英文字母，其中序与后序遍历的顺序分别为：CBGEAFHDIJ与CGEBHFJIDA则该二叉树的先序遍历的顺序为：
2.平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同四边形？
三、阅读程序，写出程序正确的运行结果(4+7+8+9=28分)
1.PROGRAM GAO7_1：
FUNCTION ACK(M，N：INTEGER)：INTEGER；
BEGIN
IF M=0 THEN ACK：=N+1
ELSE IF N=0 THEN ACK:=ACK(M-1，1)
ELSE ACK:=ACK(M-1，ACK(M，N-1))
END；
BEGIN WRITELN(ACK(3，4))； READLN； END.
输出
2.PROGRAM GAO7_2；
VAR P，Q，S，T：INTEGER；
BEGIN
READLN(P)；
FOR Q：=P+1 TO 2*P DO
BEGIN
T:=0；S:=(P*Q)MOD(Q-P)；
IF S=0 THEN BEGIN T:=P+Q+(P*Q)DIV(Q-P)；WRITE(T：4)；END；
END；
END.
输入12 输出
3.PROGRAM GAO7_3；
VAR I，J，H，M，N，K：INTEGER；
B ：ARRAY[1..10]OF INTEGER；
BEGIN
READLN(N)；
FOR I:=1 TO 10 DO
BEGIN
M：=N；J：=11；
WHILE M>0 DO
BEGIN J:=J-1；B[J]：=M MOD 10；M:=M DIV 10 END；
FOR H:=J TO 10 DO N:=N+B[H]；
END；
WRITELN(N)；
END.
输入1234 输出：
4.PROGRAM GAO7_4；
VAR X，Y1，Y2，Y3：INTEGER；
BEGIN
READLN(X)；Y1：=0；Y2：=1；Y3：=1；
WHILE Y2<=X DO
BEGIN
Y1：=Y1+1；Y3：=Y3+2；Y2：=Y2+Y3
END；
WRITELN(Y1)；
END.
输入：23420 输出：
四、完善程序(每空3分，共30分)
1.存储空间的回收算法。设在内存中已经存放了若干个作业A，B，C，D。其余的空间为可用的(如图一中(a))。
此时，可用空间可用一个二维数组dk[1..100，1..2 ]表示，(如下表一中(a))，其中：dk[i，1]对应第i个可用空间首址，dk[i，2]对应第i个可用空间长度如上图中，dk：
100 50
300 100
50 100
0 0
100 50
300 100
500 100
10000 0
表一(a) 表一(b)
现某个作业释放一个区域，其首址为d，长度为L，此时将释放区域加入到可用空间表中。要求在加入时，若可用空间相邻时，则必须进行合并。因此出现下面的4种情况(如上图一(b)所示)。
(1)下靠，即回收区域和下面可用空间相邻，例如，d=80，L=20，此时成为表二中的(a)。
(2)上靠，例如，d=600，L=50，此时表成为表二中的(b)。
(3)上、下靠，例如，d=150，L=150，此时表成为表二中的(c)。
(4)上、下不靠，例如，d=430，L=20，此时表成为表二中的(d)。
80 70
300 100
50 100
100 50
300 100
500 150
100 300
500 100
100 50
300 100
430 20
500 100
表二(a)(下靠) 表二(b)(上靠) 表二(c)(上，下靠) 表二(d)(上，下不靠)
程序说明：对数组dk预置2个标志，即头和尾标志，成为表二中(b)，这样可使算法简单，sp为dk表末地址。
程序清单：
PROGRAM GAO7_5；
VAR I，J，SP，D，L：INTEGER；
DK ：ARRAY[0..100，1..2]OF INTEGER；
BEGIN
READLN(SP)；
FOR I:=1 TO SP DO
READLN(DK[I，1]，DK[I，2])；
DK[0，1]:=0；DK[0，2]:=0； ① ；
DK[SP，1]:=10000；DK[SP，2]:=0；READLN(D，L)；I:=1；
WHILE DK[I，1]<D DO I:=I+1； ② ；
IF(DK[I，1]+DK[I，2]=D)THEN
IF(D+L=DK[I+1，1])THEN
BEGIN
DK[I，2]:= ③ ；
FOR J:=I+1 TO SP-1 DO
DK[J]:=DK[J+1]；
SP：=SP-1；
END
ELSE DK[I，2]:=DK[I，2]+L
ELSE IF(D+L=DK[I+1，1])THEN
BEGIN
DK[I+1，1]::= ④ ；DK[I+1，2]:=DK[I+1，2]+L
END
ELSE BEGIN
FOR J:=SP DOWNTO I+1 DO DK[J+1]:=DK[J]；
⑤ :=D； DK[I+1，2]:=L；SP:=SP+1；
END；
FOR I:=1 TO SP-1 DO WRITELN(DK[I，1]:4，DK[I，2]:4)；READLN；
END.
2.求关键路径
设有一个工程网络如下图表示(无环路的有向图)：
其中，顶点表示活动，①表示工程开始，⑤表示工程结束(可变，用N表示)，边上的数字表示活动延续的时间。
如上图中，活动①开始5天后活动②才能开始工作，而活动③则要等①、②完成之后才能开始，即最早也要7天后才能工作。
在工程网络中，延续时间最长的路径称为关键路径。上图中的关键路径为：①—②—③—④—⑤共18天完成。
关键路径的算法如下：
1.数据结构：
R[1..N，1..N]OF INTEGER； 表示活动的延续时间，若无连线，则用-1表示；
EET[1..N] 表示活动最早可以开始的时间
ET[1..N] 表示活动最迟应该开始的时间
关键路径通过点J，具有如下的性质：EET[J]=ET[J]
2.约定：
结点的排列已经过拓扑排序，即序号前面的结点会影响序号后面结点的活动。
程序清单：
PROGRAM GAO7_6；
VAR I，J，N，MAX，MIN，W，X，Y：INTEGER；
R：ARRAY[1..20，1..20] OF INTEGER；
EET，ET：ARRAY[1..20] OF INTEGER；
BEGIN
READLN(N)
FOR I:=1 TO N DO
FOR J:=1 TO N DO
R[I，J]:=-1；
READLN(X，Y，W)；{输入从活动X到活动Y的延续时间，以0为结束}
WHILE X<>0 DO
BEGIN
R[X，Y]:=W； ①
END；
EET[1]：=0；{认为工程从0天开始}
FOR I：=2 TO N DO
BEGIN
MAX:=0；
FOR J:=1 TO N DO
IF R[J，I]<>-1 THEN
IF ② THEN MAX:=R[J，I]+EET[J]；
EET[I]:=MAX；
END；
③
FOR I：=N-1 DOWNTO 1 DO
BEGIN
MIN：=10000；
FOR J：=1 TO N DO
IF R[I，J]<>-1 THEN
IF ④ THEN MIN：=ET[J] - R[I，J]；
ET[I]：=MIN；
END；
WRITELN(EET[N])；
FOR I：=1 TO N -1 DO
IF ⑤ THEN WRITE(I，'→')；
WRITE(N)；READLN
END.
热心网友
时间：2023-10-14 03:31
已知一个含有个整数的数组，其中相同的元素集中在一起形成一个平台。以下程序用于对输入的数组求出中最大平台长度。例如，中元素个数为20，它们依次为
2 2 2 2 3 3 3 3 3 1 1 1 1 1 1 1 1 1 4 4
则它的最大平台长度为9。
program PLATFORM;
const maxlength=100;
var
a:array[1..maxlength] of integer;
i,maxi,n,s,t:integer;
begin
write('n=');readln(n);
for i:=1 to n do read(a[i]);
readln;
maxi:=0;
t:= [6]
s:=1;
for i:=2 to n do
if a[i]=t then [7]
else
begin
if s>maxi then maxi:=s;
t:=a[i];
[8]
end;
[9]
writeln('maxi=',maxi);
end.
参考资料：PASCAL试卷
热心网友
时间：2023-10-14 03:31
www.vijos.cn
热心网友
时间：2023-10-14 03:32
1描述 Description
明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
输入格式 Input Format
输入有2行，第1行为1个正整数，表示所生成的随机数的个数：
N
第2行有N个用空格隔开的正整数，为所产生的随机数。
输出格式 Output Format
输出也是2行，第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小到大排好序的不相同的随机数。
样例输入 Sample Input
10
20 40 32 67 40 20 89 300 400 15
样例输出 Sample Output
8
15 20 32 40 67 89 300 400
时间* Time Limitation
全部点1s
2描述 Description
金明今天很开心，家里购置的新房就要领钥匙了，新房里有一间他自己专用的很宽敞的房间。更让他高兴的是，妈妈昨天对他说：“你的房间需要购买哪些物品，怎么布置，你说了算，只要不超过N 元钱就行”。今天一早金明就开始做预算，但是他想买的东西太多了，肯定会超过妈妈限定的N 元。于是，他把每件物品规定了一个重要度，分为5 等：用整数1~5 表示，第5 等最重要。他还从因特网上查到了每件物品的价格（都是整数元）。他希望在不超过N 元（可以等于N 元）的前提下，使每件物品的价格与重要度的乘积的总和最大。设第j 件物品的价格为v[j]，重要度为w[j]，共选中了k 件物品，编号依次为j1...jk，则所求的总和为：v[j1]*w[j1]+..+v[jk]*w[jk]请你帮助金明设计一个满足要求的购物单.
输入格式 Input Format
输入的第1 行，为两个正整数，用一个空格隔开：
N m
（其中N（<30000）表示总钱数，m(<25)为希望购买物品的个数。）
从第2 行到第m+1 行，第j 行给出了编号为j-1
的物品的基本数据，每行有2 个非负整数
v p
（其中v 表示该物品的价格（v≤10000），p 表示该物品的重要度（1~5））
输出格式 Output Format
输出只有一个正整数，为不超过总钱数的物品的价格与重要度乘积的总和的
最大值（<100000000）
样例输入 Sample Input
1000 5
800 2
400 5
300 5
400 3
200 2
样例输出 Sample Output
3900
时间* Time Limitation
各个测试点1s
3 描述 Description
Jam是个喜欢标新立异的科学怪人。他不使用阿拉伯数字计数，而是使用小写英文字母计数，他觉得这样做，会使世界更加丰富多彩。在他的计数法中，每个数字的位数都是相同的（使用相同个数的字母），英文字母按原先的顺序，排在前面的字母小于排在它后面的字母。我们把这样的“数字”称为Jam数字。在Jam数字中，每个字母互不相同，而且从左到右是严格递增的。每次，Jam还指定使用字母的范围，例如，从2到10，表示只能使用{b,c,d,e,f,g,h,i,j}这些字母。如果再规定位数为5，那么，紧接在Jam数字“bdfij”之后的数字应该是“bdghi”。（如果我们用U、V依次表示Jam数字“bdfij”与“bdghi”，则U<V，且不存在Jam数字P，使U<P<V）。你的任务是：对于从文件读入的一个Jam数字，按顺序输出紧接在后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。
输入格式 Input Format
输入有2行，第1行为3个正整数，用一个空格隔开：
s t w
（其中s为所使用的最小的字母的序号，t为所使用的最大的字母的序号。w为数字的位数，这3个数满足：1≤s<t≤26, 2≤w≤t-s ）
第2行为具有w个小写字母的字符串，为一个符合要求的Jam数字。
所给的数据都是正确的，不必验证。
输出格式 Output Format
输出最多为5行，为紧接在输入的Jam数字后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。每行只输出一个Jam数字，是由w个小写字母组成的字符串，不要有多余的空格。
样例输入 Sample Input
2 10 5
bdfij
样例输出 Sample Output
bdghi
bdghj
bdgij
bdhij
befgh
时间* Time Limitation
各个测试点1s
热心网友
时间：2023-10-14 03:33
热心网友
时间：2023-10-14 03:33
