PASCAL语言 复习题

Pascal复习题(专科)

一、选择题

1、设有如下的过程说明

PROCEDURE wri;

BEGIN

Writeln(‘Welcome to use pascal!!!’);

End;

则下面有关过程wri的叙述中正确的是____D_____

A)过程说明有错，因为没有形式参数

B)过程说明有错，因未说明过程的类型

C)过程说明有错，因为在过程体内没有给过程名赋值的语句

D)过程说明正确

（2章赋值语句）

2、已知变量ch是字符型变量，下面PASCAL赋值语句正确的是___D_____

A)ch:=’ab cd’;

B)ch:=chr(ord(succ(‘c’)+1));

C)ch:=ord(‘b’)+ord(‘a’);

D)ch:=pred(succ(succ(‘f’)));

（2章赋值语句）

3、判断以下叙述，其中正确的是___A_______

A)在pascal程序中所用到的变量必须先说明后使用

B)在pascal程序中,允许使用的最小值是－maxint

C)在pascal程序中,分号是语句的一部分，在每个语句中不能省略

D)在pascal程序中,符号常数的值可根据需要随时修改

（1，2章基本知识）

4、以下不符合pascal规定的字符常量是___B_________

A)‘2’

B)‘pascal’

C)’’’’

D)‘a’

（2章标准数据类型）

5、以下属非法的pascal用户自定义标识是_____A____

A)CONST

B)FORMAT

C)MAX

D)NEXT

（1章保留字）

6、下面循环语句仅执行一次的是_____A_____

A)I:=0;B)I:=0;

Repeat while(I<3)do

I:=I+1;I:=I+1;

Writeln(i)writeln(i);

Until I<3

C)for I:=0downto3do D)I:=0

I:=I+1;while(I>0)or(I<3)do

Writeln(i);I:=I+1;

writeln(i);

（4章循环结构）

7、下面函数首部或过程首部合法的是__B_______

A)function sum;

B)procedure next;

C)function s(VAR s:real):integer;

D)procedure f(a,b:real):char;

（5章函数与过程）

8、以下叙述不正确的是____D__________

A)Pascal提供了一些标准函数和过程，用户使用时可直接调用，无需

定义

B)使用标准函数sin时，每调用一次都能得到唯一的一个值

C)标准函数只能出现在表达式中，不能以一个调用语句的形式单独调

用

D)调用标准函数或标准过程均能通过一个函数名或过程名带回一个结

果

（5章函数与过程）

9、设有过程首部procedure f(VAR x:integer;y:real);

若a,b为整型变量，c为实型变量，则合法的过程调用语句是____D_____

A)f(2,3)

B)f(2,3.0)

C)f(a+b,c)

D)f(b,2)

（4章过程调用语法）

10、每个pascal程序都必须包括___D_____

A)常量说明

B）类型定义

C）变量说明

D）程序首部

（1章基本知识）

11、已知实型变量r的值为32.635，若要求按32.635的形式输出，应使用的写语句是___B__

A)writeln(r);

B)writeln(r:6:3);

C)write(r:5:3);

D)writeln(r:5);

（2章write语句）

12、以下标准数据类型中，____D______不能用读语句赋值

A）整型

B）实型

C）字符型

D）布尔型

（2章基本类型）

13、以下程序段共执行_____C______次循环

I:=0.5;

While I<2.5do

Begin

I:=I+0.5;

End;

A)1

B)3

C)4

D)5

（4章for语句）

14、以下pascal程序输出结果是____C______

program tea(output);

VAR i,j:integer;

Begin

For i:=1to4do

Begin

For j:=4-i to1do

Write(‘*’);

Writeln

end

end.

A)***B)*C)*D)**

*******

****

（4章for语句,多重循环）

15、下面循环语句能构成有限次循环的是____A_______

A）I:=5;

repeat

i:=i+1;

until I>0

B)I:=1;

Repeat

Writeln(i);

Until I>1

C)I:=5;

While(I>0)do

I:=I+1;

Writeln(i);