程序三種基本結(jié)構(gòu)練習(xí)(2)答案

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1、設(shè)a,b,c,d均為整型變量，有下程序段a:=0;b:=0;Read(a,b);Readln(c);Readln(d);若從鍵盤輸入：1回車 234回車 567回車則a,b,c,d中的數(shù)是（ B ）A）1,0,2,5 B)1,2,3,5 C)1,2,5,6 D)1,2,3,42、設(shè)n為整型變量，且已賦值為2034，下面能將n的十位數(shù)字（即右邊數(shù)第2位數(shù)字）分離出來的語句是（ 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、表達(dá)式8MOD（2*(5-3*

2、(4+6*(5 DIV 2)DIV 10)）的值是（ A ）A）0 B）1 C）2 D）34、語句Writeln(25*4=)正確的輸出結(jié)果是（ C ）A）100 B）25*4C）25*4= D)25*4=1005、表達(dá)式Ord(True)+Round(5.8) DIV 3*4 MOD 3的值是（ A ）A）1B）1C）2D）06、當(dāng)運(yùn)行以下程序時(shí)，若輸入序列為： A B C (注：輸入的每個(gè)字符或數(shù)字間有一個(gè)空格) 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.則輸出結(jié)果為（ 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,執(zhí)行以下程序段后a、b、c的值為（ C ）IF a=Ord(6)的值是（ TRUE ）。11、給出以下程序的運(yùn)行結(jié)果。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、給出下面程序的運(yùn)行結(jié)果。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、下列程序段執(zhí)行后能打印兩行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. 運(yùn)行后輸出的圖形應(yīng)是（ C ）A)+ B)+ C)+ D)+ + + + + + + + + + + + +16、有下面程序段：IF（k0） THEN IF k5 THEN I F k2 THEN x:=3 ELSE x:=4設(shè)k為整形變量，當(dāng)x賦值為3時(shí)，k的取值范圍是（ B ）A）3，4B）3，4，5C）4，5 D）5,6,717、下面程序段執(zhí)行循環(huán)的次數(shù)是（ D ）y:=2;WHILE y1

7、9END.該程序運(yùn)行后，變量t中的值是下列哪個(gè)公式的結(jié)果（ 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(*);輸出*號的個(gè)數(shù)是（ B ）A）5B）10C）15D）2520、已知ch1,ch2都是字符型變量，設(shè)有程序段如下：（ 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);若執(zhí)行此程序段時(shí)輸入的數(shù)據(jù)是AB，則輸出是A）AAB）BBC）BAD）AB21、設(shè)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);此程序段執(zhí)行后的輸出結(jié)果是（ C ）A）243 B）342C）234 D）43222、將以下語句改寫成CASE語句，請?zhí)羁铡?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、下面程序可輸出如下結(jié)果，請?zhí)羁胀瓿稍摮绦颉?1121121231121231234112123123412345PORGRAM 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、下面程序可從鍵盤輸入一個(gè)大于0的整數(shù)，然后輸出此數(shù)的所有整數(shù)因子。例如：輸入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、下面程序?qū)崿F(xiàn)檢查輸入的算術(shù)表達(dá)式中圓括號是否匹配，并輸出相應(yīng)檢查結(jié)果（為簡化運(yùn)算，假設(shè)表達(dá)式中無空格，且以空格作為表達(dá)式的結(jié)束標(biāo)志）。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(表達(dá)式括號匹配)END.28、以下程序

12、實(shí)現(xiàn)從鍵盤讀入10個(gè)無序數(shù)，去掉一個(gè)最大數(shù)和一個(gè)最小數(shù)，求平均值。請?jiān)谔幪钊胝_內(nèi)容。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，最后一項(xiàng)的值已為10e6，認(rèn)可達(dá)到精度要求。以下程序求的近似值，請?zhí)羁胀瓿伞ROGRAM 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、斐波納契數(shù)列中的頭兩個(gè)數(shù)是0和1，從第三個(gè)數(shù)開始，每個(gè)數(shù)等于前兩個(gè)數(shù)的和，即：0，1，1，2，3，5，8，13，21.等。下列程序計(jì)算斐波納契數(shù)列的前20個(gè)數(shù)，并且每行輸入5個(gè)數(shù)，請?zhí)羁胀瓿?。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的值由終端輸入，請?zhí)羁胀瓿?。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.現(xiàn)將程序中的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、在下列程序中的處填入正確內(nèi)容。該程序能輸出下面右側(cè)的圖形，行數(shù)由輸入確定。 * * * * * * * * * * * * * * * * * * * * * * * *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、某數(shù)列的前3個(gè)數(shù)為0，0，1。從第4個(gè)數(shù)開始，每個(gè)數(shù)是它的前3個(gè)數(shù)之和。下面程序可求出并輸出此數(shù)列的前10個(gè)數(shù)，請?jiān)谔幪钊胝_的內(nèi)容。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、下面程序?qū)崿F(xiàn)輸出如下圖形（在屏幕最左邊輸出），請?zhí)羁胀瓿伞?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、閱讀并給出下面程序的輸出結(jié)果和實(shí)現(xiàn)功能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、給出下面程序的運(yùn)行結(jié)果。PROGRAM p266(Input,Output);VAR i,p,q,roll:Integer;BEGIN p:=