小小程序员测试试题.docVIP

循环结构程序 1、有下列程序： PROGRAM p213; VAR n : Integer; b, t : Real; BEGIN t:=1;b:=1;n:=2; REPEAT b:=b*n; t:=t+b; n:=n+1 UNTLE n19 END. 该程序运行后，变量t中的值是下列哪个公式的结果 A) 20！ B) 19! C) 1! + 2! …+19! D) 1! + 2! + … 20! 答案：C) 2、程序 FOR I:= 1 to 5 DO FOR j:=2 TO I DO Writeln(‘*’); 输出‘*’个数是 A） 5 B）10 C）15 D）25 答案：B) 3、下面程序段执行循环体的次数是 y=2; WRITE y=32 DO y:=y+y; A) 2 B）3 C）4 D）5 答案 D) 程序写结果(每题6分) 1. var i,j,k:integer;begin read(n); i:=3; while i=n do begin i:=i+3; k:=k+i; t:=t+k; end; write(k, ,t);end.输入：10输出： 2. var i,j,n,t,k:integer;begin for i:=-1 to 3 do for j:=4 downto i do begin t:=t+1; k:=k+t; end; write(t, ,k);end.输出： 3. var n,i,j,k,t:integer;begin read(n); i:=-2; t:=1; while i=n do begin i:=i+3; t:=t*2; k:=k+i+t; end; write(t, ,k);end.输入：8输出: 4. var i,j,k,n,t:integer;begin read(n); for i:=n downto -2 do for j:=0 to i-1 do begin t:=t+2; k:=k+i+j; end; write(t, ,k);end.输入：3输出： 5. var i,j,n,k,t:integer;begin read(n); for i:=2 to n do begin t:=t+2; j:=1; while j=n do begin j:=j+1; k:=k+t; end; end; write(k, ,t);end.输入：5输出： PASCAL语言练习 (4’*10=40) 1．以下函数首部或过程首部正确的是（ ） （A）FUNCTION KEE:boolean; （B）PROCEDURE S:real; （C）FUNCTION MMN(i,j:integer); （D）PROCEDURE TT(i;j:char); 2．设有过程首部： PROCEDURE f(VAR x:integer;y:real); 若a,b:integer; c:real; 则合法的调用语句是（ ） （A） f(2,3) （B）f(2,3.0) （C） f(a+b,c) （D）f(b,2) 3．设有一函数定义如下： FUNCTION high(x,y:integer):integer; BEGIN high:=x-(x+y) DIV (x-y) END; 执行语句t:=high(4,high(6,high(4,1)))后，变量t的值是（ ） （A）3 （B）-3 （C）1 （D）0 4．一个函数或过程调用另一个函数或过程，这种调用称为函数或过程的（ ），函数或过程调用它本身，称为递归。 （A）嵌套 （B）递归 （C）直接递归