Pascal复习题(专科)一、选择题1、设有如下的过程说明PROCEDURE wri;BEGINWriteln(‘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程序中,允许使用的最小值是－maxintC)在pascal程序中,分号是语句的一部分，在每个语句中不能省略D)在pascal程序中,符号常数的值可根据需要随时修改（1，2章基本知识）4、以下不符合pascal规定的字符常量是___B_________A)‘2’B)‘pascal’C)’’’’D)‘a’（2章标准数据类型）5、以下属非法的pascal用户自定义标识是_____A____A)CONSTB)FORMATC)MAXD)NEXT（1章保留字）6、下面循环语句仅执行一次的是_____A_____A)I:=0;B)I:=0;Repeat while(I<3)doI:=I+1;I:=I+1;Writeln(i)writeln(i);Until I<3C)for I:=0downto3do D)I:=0I:=I+1;while(I>0)or(I<3)doWriteln(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.5doBeginI:=I+0.5;End;A)1B)3C)4D)5（4章for语句）14、以下pascal程序输出结果是____C______program tea(output);VAR i,j:integer;BeginFor i:=1to4doBeginFor j:=4-i to1doWrite(‘*’);Writelnendend.A)***B)*C)*D)*************（4章for语句,多重循环）15、下面循环语句能构成有限次循环的是____A_______A）I:=5;repeati:=i+1;until I>0B)I:=1;RepeatWriteln(i);Until I>1C)I:=5;While(I>0)doI:=I+1;Writeln(i);D)I:=1;While I<>0doI:=I+2;Writeln;（4章for,while,repeat循环语句）16、设a和b为同一类型枚举变量，以下语句合法的是：__A_______A)a:=b;B)read(a,b);C)a:=ord(b);D)writeln(a,b);（6章枚举类型）17．结构化程序的主要优点是（C）A）程序体积小，节省内存空间B）程序效率高，节省运行时间C）程序结构清晰，可读性高，易维护与修改，可靠性高D）容易实现巧妙的算法（1章概述）18．下列for循环的次数是（A）a:=true;b:=false;for I:=a to b dowrite(i);A）0B）1C）A D）B（4章for语句）19．COS500+e-X的正确表达式为（）A）cos(50.0)+exp(-x)B）cos(pi*50.0/180)+exp(-x)C）cos(3.1416*50.0/180)+exp(-x)D）cos(50.0)+1.0/exp(-x)（2章表达式）20.一个完整的pascal程序由程序首部，说明部分及执行部分组成，其说明部分的次序为（C）A）常量说明，类型说明，变量说明，标号说明，过程说明B）标号说明，类型说明，变量说明，常量说明，过程说明C）标号说明，常量说明，类型说明，变量说明，过程说明D）类型说明，变量说明，标号说明，过程说明，常量说明（1章概述）21、下列表达式中正确的是A)8/2MOD2B)NOT(1=0)AND(3<>2)C)'a'+2D)2+False22、不能作为FOR语句循环控制变量的是下列哪种类型变量（C）A)整型B)布尔型C)实型D)字符型23、对函数的定义和递归调用正确的描述是A)函数可以嵌套定义，也可以递归调用。
B)函数可以嵌套定义，但不能递归调用。
C)函数不能嵌套定义，但可以递归调用。
D)函数不能嵌套定义，也不能递归调用。
24、下列过程中，其功能是创建并打开一个文件的是（A）A)Assign B)Reset C)Rewrite D)Write25、程序段：FOR i:=1TO5DOFOR j:=2TO i DOWriteln(‘A');输出字符Ａ的个数是（B）A)５B)10C)15D)2026、下面关于FOR循环不正确的叙述是（D）A)在循环体中不能改变循环控制变量的值B)在执行过程中初值和终值不会改变C)分为递增型和递减型两种D)循环控制变量不必在程序的说明部分说明27、枚举类型只能进行两种运算，即赋值运算和__Ｃ___。
A)算术运算B)逻辑运算C)关系运算D)字符运算28、枚举类型的值是有序号的，序号从__Ａ___开始，自左到右，从小到大排列。
A)０B)１C)－１D)自由定义29、已知整型变量i，j的值为1，2；布尔型变量m，n的值为true，false，那么表达式NOT(i>j)AND false0R(m＝n)的值为__D___。
A)０B)１C)true D)false30、在循环语句FOR语句中，采用保留字To，则循环变量初值必须__D___终值。
A)大于B)小于C)大于等于D)小于等于31．Pascal程序中无序类型是指（A）A）实型B）字符型C）整型D）布尔型（2章基本类型）32．有一单向链表，已知P，Q两接点，删除P接点的操作是（A）head…….Q PA)Q^.next:=P^.next;B)q^.next^.next:=next;Dispose(p);dispose(p);C)q^.next:=p;D)p:=q^.next;P^.next:=nil;q^:=p^.next;Dispose(P);p^.next:=q^.next;Dispose(p);（11章链表删除）33．Pascal语言中四级运算符的先后次序为（A）A）not B)*/div mod */div mod and+-+-or not and or关系运算符关系运算符C）*/D）*/not div Div mod not mod and or+-or and+-关系运算符关系运算符（1章运算符）34、已知有说明（A）CONST a=1;b=2;c=3;d=4;VAR w,x,y,:Integer;执行语句x:=a;x:=c;y:=a+2;Z:=b;w:=d-a+b;后，其值相等的变量是A)x,y B)x,z C)x,w D)y,z35、数学表达式Sin(60o)的正确PASCAL表达式是（C）A)Sin(60)B)Sin(3.14159*60)C)Sin(3,14159*60/180.0)D)Sin(60*3.14159/360.0)二、填空题１、在下列程序中，当输入一个定数N后，能输出所有不超过N的、其平方由左右对称(1位数也认为是左右对称)的数字组成的数。
例如：若输入23，则应输出：1，2，3，11，22，因为它们的平方依次是：1，4，9，121，484，都是左右对称的数字组成的数。
PROGRAM PALINDROME(INPUT，OUTPUT)；CONST MAX＝1000；VAR M，N，I，J，S：INTEGER；D：ARRAY[0．．MAX]OF INTEGER；BEGINREADlN(N)；FOR M：＝1TO N D0BEGIN_________________；{把组成数S每位数字存放于数组D中}J：＝0；WHILE S＞0D0BEGINJ：=J+1；D[J]：=S MOD10；_________________；END；{判断组成数S的数字是否左右对称}I：=1；WHILE(D[I]＝D[J])AND(1<J)DOBEGINI：=I+1；J：=J-1;END；{若对称则输出}IF I＞＝J THEN WRITELN(_________________)；END；END.(1)S＝M*M；(2)S＝S DIV l0；(3)M。
２、函数F判断整数A是否为素数。
FUNCTION F(A：INTEGER)：B00LEAN；VARK：INTEGER；FLAG：B00LEAN；BEDINFLAG：＝__________K：=2；WHILE(K＜＝A DIV2)AND__________DOIF A MOD K＝0THEN_____________ELSEK：=K+1；F：＝FLAG；END；答案为：(1)FAlSE；(2)FAlSE；(3)TRUE。