Question

pascal 题目

一、 填充题（5*10=50分）
1、设有集合a:=[8,10,12…14]; b:=[7…9,11,14…18], 则a*b= [8,14] ,a-b= [10,12,13] 。
2、设有语句：IF ((a=1) OR (a=3) OR (a=5) OR (a=7) OR (a=9)
THEN x:=a ELSE x:=a+1
利用集合运算将条件简化为：
IF THEN x:=a ELSE x:=a+1
3．指出下面子界类型定义中哪些是有效的；哪些是无效的,若无效请说出理由。
TYPE A1=10..10;
A2=2..Sqr(2);
A3=2.0..2.8;
A4=c..g;
4、有下列函数说明：
FUNCTION fib(n:Integer):Integer;
BEGIN
IF n=1 THEN fib:=0;
ELSE IF n=2 THEN fib:=1
ELSE fib:=fib(n-1)+fib(n-2)
END;
表达式fib(fib(5))的值是 。

二、 选择题（6*5=30分）
（ ）1、设类型定义与变量说明如下：
TYPE
digit=SET OF 1..9;
alph=SET OF ‘a’..’z’;
VAR
i,num:digit;
ch:alph;
A) num:=[‘a’..’i’]+[‘a’..’m’];
B) i:=[1..4]+[2,4];
C) ch:=[1,3,5]*[2,3,4];
D) i:=[1..10]-[5,10];

（ ）2、若用∪和∩分别表示集全的并和交，已知X∈（A∪B-A∩C），以下算式的正确PASCAL表达式是：
A) x IN A+B-A*C
B) x <=[A+B-A*C]
C) x IN ([A+B]-[A*C])
D) x IN ([A+B] and x not IN [A*C]

（ ）3、已知变量说明VAR letters (E,F,D,C,B,A);,下列函数中函数值为布尔类型的是：
A.) Succ(C);
B.) Trunc(2.8*4)
C.) Chr(Ord(‘a’)+2)
D.) Odd(7)

（ ）4、设4个字节存放一个实型数若有说明：
VAR A：ARRAY[1..10] OF ARRAY [BOOLEAN] OF Real;
则数组A需占用的存储区域性是
A.) 10字节
B.) 20字节
C.) 80字节
D.) 90 字节

（ ）5、设有过程p1的说明如下（仅组出过程的主要部分）：
PROCEDURE p1;
VAR a,b:Integer;
C,d:Char;
PROCEDURE p2(VAR e: Integer);
Var b,f: Real;
BEGIN

END;
BEGIN

END.
A) e是个局部变量
B) e是个全局变量
C) e是个形式参数
D) e是个实际参数

三、 下面的程序从键盘接收任意6个数放入数组a中，设这6个数为：8，1，4，2，5，6，则可输出一个具有如下内容的方阵。（4*5=20分）
8 1 4 2 5 6
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
能做几道做几道 对得最多的最佳 一道5分另外加
第三大题修改一下
:三、 下面的程序从键盘接收任意6个数放入数组a中，设这6个数为：8，1，4，2，5，6，则可输出一个具有如下内容的方阵。（4*5=20分）
8 1 4 2 5 6
6 8 1 4 2 5
5 6 8 1 4 2
2 5 6 8 1 4
4 2 5 6 8 1
1 4 2 5 6 8
请填空完成该程序
PROGRAM p429(Input,output);
VAR A:ARRAY[1..6] OF Integer;
I,j,k:Ingeter;
BEGIN
FOR i:=1 to 6 DO
Read( )
Readln;
FOR I:=1 TO 6 DO
BEGIN
IF i=1 THEN k:=1
ELSE K:=( )
FOR j:=1 to ( ) DO
Begin
Write(a[k]:2);
If k=6 then k:=1
Else k:=( )
End;
Writeln
End.

Answer 1

回答之前说一句..此答案并不是标准答案，只是本人自己认为的答案，请作为参考。
一、
2.If a*[1,3,5,7,9]<>[] then x:=a else x:=a+1；
3.a1有效 a2有效 a3无效 子界类型必须是有序类型，小数不是有序类型 a4无效 上界下界必须是常量。
4.flib（flib(5)）=flib(flib(4)+flib(3))=flib(flib(3)+1+1+0)=flib(1+0+1+1+0)=flib(3)=1+0=1
二、
1.i,num=[1..9]; ch=['a'..'z'] A)错误，num的集合是整数集合。 B）正确 C）错误，ch是字符类型集合 D）正确
答案：B,D
2.B
3.D
4.10*2*4=80个，C
5.C
三、
这道题很乱，不填空了，填了也运行不出结果.
自己写程序：
Program p429(input,output);
Var
a:array[1..6]of integer;
i,j,k:integer;
Begin
For i:=1 to 6 do
Read(a[i]);
Readln;
For i:=1 to 6 do
Begin
If i<1 then
k:=6
Else
k:=k-1;
For j:=1 to 6 do
Begin
If k<1 then
k:=6;
If k=6 then
k:=1
Else
k:=k+1;
Write(a[k]:2);
End;
Writeln;
End;
End.
调试成功了，望采纳

Answer 2

PROGRAM p429(Input,output);
VAR A:ARRAY[1..6] OF Integer;
I,j,k:Ingeter;
BEGIN
FOR i:=1 to 6 DO
Read( )
Readln;
FOR I:=1 TO 6 DO
BEGIN
IF i=1 THEN k:=1
ELSE K:=( )
FOR j:=1 to ( ) DO
Begin
Write(a[k]:2);
If k=6 then k:=1
Else k:=( )
End;
Writeln
End.

Answer 3

第4题没法做