程序三种基本结构练习(2)答案

1、精选优质文档-倾情为你奉上1、设a,b,c,d均为整型变量，有下程序段a:=0;b:=0;Read(a,b);Readln(c);Readln(d);若从键盘输入：1回车 234回车 567回车则a,b,c,d中的数是（ B ）A）1,0,2,5 B)1,2,3,5 C)1,2,5,6 D)1,2,3,42、设n为整型变量，且已赋值为2034，下面能将n的十位数字（即右边数第2位数字）分离出来的语句是（ D ）A)d:=n MOD 100 B)d:=n DIV 100 MOD 10C)d:=n/100 MOD 10 D)d:=(n MOD 100)DIV 103、表达式8MOD（2*(5-3*

2、(4+6*(5 DIV 2)DIV 10)）的值是（ A ）A）0 B）1 C）2 D）34、语句Writeln(25*4=)正确的输出结果是（ C ）A）100 B）25*4C）25*4= D)25*4=1005、表达式Ord(True)+Round(5.8) DIV 3*4 MOD 3的值是（ A ）A）1B）1C）2D）06、当运行以下程序时，若输入序列为： A B C (注：输入的每个字符或数字间有一个空格) 1 2 3 4 5 6PROGRAM p188(Input,Output);VAR ch1,ch2,ch3:Char; n1,n2,n3:Integer;BEGIN Readln

3、; Read(ch1,ch2,ch3); Readln(n1,n2,n3); Writeln(ch1,ch2,ch3); Writeln(n1:2,n2:2,n3:2)END.则输出结果为（ C ）A）ABC B）123 C）1 2 D）1 2 1 2 3 4 5 6 3 4 5 4 5 67、已知a=10,b=20,c=30,执行以下程序段后a、b、c的值为（ C ）IF a=Ord(6)的值是（ TRUE ）。11、给出以下程序的运行结果。PROGRAMp1127(Output);VAR a,b,c,n,sum:Integer;BEGIN n:=126; a:=n DIV 100; b:=

4、(n-a*100)DIV 10; c:=n-100-b*10; sum:=a+b+c; Writeln(sum=,sum:3)END. Sum=912、给出下面程序的运行结果。PROGRAMp1129(Output);VAR a,b:Char; x,y:Integer;BEGIN a:=8;b:=9; x:=Ord(a)-Ord(0); y:=Ord(b)-Ord(0);IF xy THEN Writeln(x-y)ELSE Writeln(x-y)END. -113、下列程序段执行后能打印两行Very good!的是（ A ）A)i:=0; B)i:=0;REPEAT REPEAT Writ

5、eln(Verygood!); Writeln(Very good!);i:=i+2 i:=i+2UNTILi=4 UNTIL i4C)i:=0; D)i:=0;REPEAT REPEAT Writeln(Verygood!); Writeln(Very good!);i:=i+2 i:=i+2UNTIL i0.1)AND(i5.1Writeln; Writeln;C)i:=0.1; D)FOR i:=0.1 TO 5.1 DOREPEAT Write(i:4:1);Write(i:4:1); Writeln;i:=i+1; UNTIL i5.1Writeln;15、已知下列程序：PROGRA

6、Mp29(Output);VAR i,j:Integer;BEGINFOR i:=1 to 5 DOBEGINFOR j:=5 DOWNTO i DOWrite(+);Writeln ENDEND. 运行后输出的图形应是（ C ）A)+ B)+ C)+ D)+ + + + + + + + + + + + +16、有下面程序段：IF（k0） THEN IF k5 THEN I F k2 THEN x:=3 ELSE x:=4设k为整形变量，当x赋值为3时，k的取值范围是（ B ）A）3，4B）3，4，5C）4，5 D）5,6,717、下面程序段执行循环的次数是（ D ）y:=2;WHILE y1

7、9END.该程序运行后，变量t中的值是下列哪个公式的结果（ C ）A)20! B)19! C)1!+2!+.+19! D)1!+2!+.+20!19、程序FOR i:=1 TO 5 DOFOR j:=2 TO i DOWriteln(*);输出*号的个数是（ B ）A）5B）10C）15D）2520、已知ch1,ch2都是字符型变量，设有程序段如下：（ D ）Read(ch1,ch2); IF ch2A THEN BEGIN CASE ch1 OF A:CASE ch2 OF C:Write(AA); B:Write(AB) END; B:Write(BB) END END ELSE Writ

8、e(BA);若执行此程序段时输入的数据是AB，则输出是A）AAB）BBC）BAD）AB21、设a,b,c,i,j均为整型变量，有下面的程序段：a:=0;b:=1;c:=2; FOR i:=1 TO 3 DO FOR j:=1 TO i DO CASE (i+j)MOD 3) OF 0: a:=a+1; 1: b:=b+1; 2: c:=c+1 END; Writeln(a:3,b:3,c:3);此程序段执行后的输出结果是（ C ）A）243 B）342C）234 D）43222、将以下语句改写成CASE语句，请填空。 IF s60 THEN m:=1 ELSE IF s70 THEN m:=2

9、ELSE IF s80 THEN m:=3ELSE IF s90 THEN m:=4ELSE IF s=1e-6_DO BEGIN e:=e+t;n:=n+1; p:=p*n;t:=_1/p_ END; Writeln(e:10:7)END. 25、下面程序可输出如下结果，请填空完成该程序。11121121231121231234112123123412345PORGRAM p242(Output);VAR i,j,k,s:Integer;BEGIN FOR i:=1 TO 5 DO BEGIN s:=_0_; FOR j:=1 TO _i_ DO BEGIN s:=s*10+j; IF_od

10、d(i)_THEN Write(s:6) ELSE Write(-s:6) END; Writeln ENDEND.26、下面程序可从键盘输入一个大于0的整数，然后输出此数的所有整数因子。例如：输入12，则输出：quotient OF 12:1 2 3 4 6 12PROGRAM p243(Input,Output);VAR a,k:Integer;BEGIN Readln(a); IF a0 THEN BEGIN Write(quotient of,a:3,:); FOR k:=1 TO _a_ DO IF _a mod k=0_ THEN Write(k:3) END; WritelnEN

11、D.27、下面程序实现检查输入的算术表达式中圆括号是否匹配，并输出相应检查结果（为简化运算，假设表达式中无空格，且以空格作为表达式的结束标志）。PROGRAM p244(Input,Output);VAR sum:Integer;ch:Char; b:Boolean;BEGIN Read(ch); b:=True;sum:=0; WHILE(ch )AND b DO BEGIN IF ch=( THEN sum:=sum+1; IF ch=) THEN sum:=sum-1; IF sum0_THEN Write(左括号多于右括号) ELSE Write(表达式括号匹配)END.28、以下程序

12、实现从键盘读入10个无序数，去掉一个最大数和一个最小数，求平均值。请在处填入正确内容。PROGRAM p245(Input,Output);VAR i,max,min,x,sum:Integer; ave:Real;BEGIN Readln(x); max:=x;min:=x;sum:=x; FOR i:=1 TO 9 DO BEGIN Readln(x); sum:=sum+x; IF xmax THEN _max:=x_ END; sum:=sum-max-min; ave:=sum/8.0; Writeln(the average is:,ave:5:1)END.29、的近似值可用以下公

13、式求得：.由此公式可知，若n取值1000，最后一项的值已为10e6，认可达到精度要求。以下程序求的近似值，请填空完成。PROGRAM p246(Output);VAR i:Integer; pi:_real;_begin_pi:=0.0;FOR i:= 1 TO 1000 DO pi:=pi+1/(i*i)_; pi:=Sqr(6*pi); Writeln(pi=,pi:10:6) End._30、斐波纳契数列中的头两个数是0和1，从第三个数开始，每个数等于前两个数的和，即：0，1，1，2，3，5，8，13，21.等。下列程序计算斐波纳契数列的前20个数，并且每行输入5个数，请填空完成。PRO

14、GRAM p247(Input,Output);VAR f,f1,f2,i:Integer;BEGIN Writeln(Fionacci series:); f1:=0; f2:=_1_; Writeln(f1:10,f2:10,); FOR i:=3 TO 20 DO BEGIN f:=_f1+f2_; Writeln(f:10,); IF i MOD 5=0 THEN _writeln;_ f1:=f2; f2:=_f_ END; WritelnEND.31、以下程序求n!,n的值由终端输入，请填空完成。PROGRAM p248(Input,Output);VAR _n,i:integer

15、;s:real_;BEGIN Write(Enter n:):Readln(n); s:=_1_;FOR i:=1 TO n DO s:=_s*i_; Writeln(n,!=,s:5) END.32、有下列程序： PROGRAM p249(Input,Output); VAR k,x:Integer; BEGIN Readln(k); CASE k OF 6,7: x:=0; 8,9,10: x:=1; 3,4,5: x:=3; 1,2: x:=4; ELSE x:=2 END; Writeln(k=,k:1, x=,x:1)END.现将程序中的CASE语句用IF语句代替。PROGRAM p

16、249(Input,Output); VAR k,x:Integer; BEGIN Readln(k); IF (k0) THEN IF _k5_ THEN IF k2_ THEN x:=3 ELSE x:=4 ELSE x:=2Writeln(k=,k:1, x=,x:1) END.33、在下列程序中的处填入正确内容。该程序能输出下面右侧的图形，行数由输入确定。 * * * * * * * * * * * * * * * * * * * * * * * *PORGRAM p250 (Input,Output); VAR k1,k2,i,j,n:Integer; BEGIN Readln(n)

17、; k1:=(n+1)_div_2; k2:=n-k1; FOR i:=1 TO k1 DO BEGIN Write(:10-i); FOR j:=1 TO _i_DO Write(*); Writeln END; FOR i:=k2 DOWNTO 1 DO BEGIN Write(:_10-i_); FOR j:=i DOWNTO 1 DO Write(*); Writeln END; END.34、某数列的前3个数为0，0，1。从第4个数开始，每个数是它的前3个数之和。下面程序可求出并输出此数列的前10个数，请在处填入正确的内容。PROGRAM p251(Output); VAR a,b,

18、c,x,n:Integer; BEGIN a:=0; b:=0; c:=_1_; n:=3; Write(a:3,b:3,c:3); WHILE n=10 DO BEGIN x:=a+b+c; a:=b; b:=c; c:=x_; Write(x:3) N:=n+1_; END; Writeln END.35、下面程序实现输出如下图形（在屏幕最左边输出），请填空完成。 AAA BBB CCC BBB AAAProgram P252(input,output);Var I,j,k:integer; Ch:char;Begin Ch:= A; For I:=1 to 5 do Begin If I

19、=3 then For j:=1 to I-1 do write();Else For j:=1 to _5-i_do write( );For k:=1 to 3 do write(ch);Writeln;If i=2then ch:=succ(ch) Else ch:=pred(ch);End;End.36、阅读并给出下面程序的输出结果和实现功能PROGRAM p265(Output);var a,b,i:Integer;BEGIN a:=0;b:=1; FOR i:=1 TO 3 DO BEGIN Write(a:4,b:4); a:=a*a+b*b; b:=a*a+b*b END;Writeln(a:4)END. 0 1 1 2 5 29 86637、给出下面程序的运行结果。PROGRAM p266(Input,Output);VAR i,p,q,roll:Integer;BEGIN p:=