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

鲁迅中学柯桥校区信息学竞赛小组程序三种基本结构练习(2)姓名:得分:11、设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,5B)1,2,3,5C)1,2,5,6D)1,2,3,42、设n为整型变量，且已赋值为2034，下面能将n的十位数字（即右边数第2位数字）分离出来的语句是（D）A)d:=nMOD100B)d:=nDIV100MOD10C)d:=n/100MOD10D)d:=(nMOD100)DIV103、表达式8MOD（2*(5-3*(4+6*(5DIV2))DIV10)）的值是（A）A）0B）1C）2D）34、语句Writeln(‘25*4=’)正确的输出结果是（C）A）100B）‘25*4’C）25*4=D)25*4=1005、表达式－Ord(True)+Round(5.8)DIV3*4MOD3的值是（A）A）1B）－1C）－2D）06、当运行以下程序时，若输入序列为：ABC回车(注：输入的每个字符或数字间有一个空格)123回车456回车PROGRAMp188(Input,Output);VARch1,ch2,ch3:Char;n1,n2,n3:Integer;BEGINReadln;Read(ch1,ch2,ch3);Readln(n1,n2,n3);Writeln(ch1,ch2,ch3);Writeln(n1:2,n2:2,n3:2)END.则输出结果为（C）A）ABCB）123C）12D）121234563454567、已知a=10,b=20,c=30,执行以下程序段后a、b、c的值为（C）IFa=cTHENa:=b;b:=c;c:=aA)a=10,b=20,c=30B)a=20,b=30,c=10C)a=20,b=30,c=20D)a=20,b=30,c=308、表达式Chr(Ord(Succ(‘4’))+2)的值是（‘7’）。9、表达式Round(4.5)MODTrunc(2.8)的值是（1）。10、表达式Ord(‘6’)=Ord(6)的值是（TRUE）。11、给出以下程序的运行结果。PROGRAMp1127(Output);VARa,b,c,n,sum:Integer;BEGINn:=126;a:=nDIV100;b:=(n-a*100)DIV10;c:=n-100-b*10;sum:=a+b+c;Writeln(‘sum=’,sum:3)END.Sum=912、给出下面程序的运行结果。PROGRAMp1129(Output);VARa,b:Char;x,y:Integer;BEGINa:=’8’;b:=’9’;x:=Ord(a)-Ord(‘0’);y:=Ord(b)-Ord(‘0’);IFxyTHENWriteln(x-y)ELSEWriteln(x-y)END.-113、下列程序段执行后能打印两行Verygood!的是（A）A)i:=0;B)i:=0;REPEATREPEATWriteln(‘Verygood!’);Writeln(‘Verygood!’);i:=i+2i:=i+2UNTILi=4UNTILi4C)i:=0;D)i:=0;REPEATREPEATWriteln(‘Verygood!’);Writeln(‘Verygood!’);i:=i+2i:=i+2UNTILi4UNTILi=514、能正确输出0.1,1.1,2.1,3.1,4.1,5.1的循环是（C）A)WHILE(i0.1)AND(i=5.1)DOB)REPEATBEGINi:=0.1;Write(i:4:1);Write(i:4:1);i:=i+1i:=i+1;ENDUNTILi5.1Writeln;Writeln;鲁迅中学柯桥校区信息学竞赛小组程序三种基本结构练习(2)姓名:得分:2C)i:=0.1;D)FORi:=0.1TO5.1DOREPEATWrite(i:4:1);Write(i:4:1);Writeln;i:=i+1;UNTILi5.1Writeln;15、已知下列程序：PROGRAMp29(Output);VARi,j:Integer;BEGINFORi:=1to5DOBEGINFORj:=5DOWNTOiDOWrite(‘+’);WritelnENDEND.运行后输出的图形应是（C）A)+B)+++++C)+++++D)+++++++++++++++++++++++++++++++++++++++++++++++++16、有下面程序段：IF（k=10）AND（k0）THENIFk5THENIFk8THENx:=0ELSEx:=1ELSEIFk2THENx:=3ELSEx:=4设k为整形变量，当x赋值为3时，k的取值范围是（B）A）3，4B）3，4，5C）4，5D）5,6,717、下面程序段执行循环的次数是（D）y:=2;WHILEy=32DOy:=y+y;A)2B)3C)4D)518、有下列程序：PROGRAMp213;VARn:Integer;b,t:Real;BEGINt:=1;b:=1;n:=2;REPEATb:=b*n;t:=t+b;n:=n+1UNTILn19END.该程序运行后，变量t中的值是下列哪个公式的结果（C）A)20!B)19!C)1!+2!+.......+19!D)1!+2!+....+20!19、程序FORi:=1TO5DOFORj:=2TOiDOWriteln(‘*’);输出‘*’号的个数是（B）A）5B）10C）15D）2520、已知ch1,ch2都是字符型变量，设有程序段如下：（D）Read(ch1,ch2);IFch2’A’THENBEGINCASEch1OF‘A’:CASEch2OF‘C’:Write(‘AA’);‘B’:Write(‘AB’)END;‘B’:Write(‘BB’)ENDENDELSEWrite(‘BA’);若执行此程序段时输入的数据是AB，则输出是A）AAB）BBC）BAD）AB21、设a,b,c,i,j均为整型变量，有下面的程序段：a:=0;b:=1;c:=2;FORi:=1TO3DOFORj:=1TOiDOCASE((i+j)MOD3)OF0:a:=a+1;1:b:=b+1;2:c:=c+1END;Writeln(a:3,b:3,c:3);此程序段执行后的输出结果是（C）A）243B）342C）234D）43222、将以下语句改写成CASE语句，请填空。IFs60THENm:=1ELSEIFs70THENm:=2ELSEIFs80THENm:=3ELSEIFs90THENm:=4ELSEIFs＝100THENm:=5；改为{S为实型}CASE＿＿trunc(s)div10＿OF鲁迅中学柯桥校区信息学竞赛小组程序三种基本结构练习(2)姓名:得分:3＿＿8＿＿＿＿＿：m:=4;_____7_________:m:=3;____0..5___________:m:=1;____9,10___________:m:=5;____else___________:m:=2;END;23、填空完成输出下面图形（每行之间无空行，每个‘*’之间无空格）的程序。****************PROGRAMp240(Output);VARi,j:Integer;BEGINFORi:=1TO4DOBEGINFORj:=1TO_____4-i________DOWrite(‘’:1);FORj:=1TO＿i＿＿＿＿DOWrite(‘*’,1);WritelnEND;FORi:=1TO3DOBEGINFORj:=1TOiDOWrite(‘’:1);FORj:=1TO__4-i_________DOWrite(‘*’:1);WritelnENDEND.24、已知e≈1+!11+!21+!31+...+!1n用上述公式求e的近似值，要求累加所有不小于10－6的项值。PROGRAMp241(Input,Output);VARp,t,e:Real;n:Integer;BEGINe:=1;n:=1;t:=1;____p:=1________________;WHILE__t=1e-6_______DOBEGINe:=e+t;n:=n+1;p:=p*n;t:=____1/p_____END;Writeln(e:10:7)END.25、下面程序可输出如下结果，请填空完成该程序。1－1－12112123－1－12－123－1234112123123412345PORGRAMp242(Output);VARi,j,k,s:Integer;BEGINFORi:=1TO5DOBEGINs:=_____0_______;FORj:=1TO____i______DOBEGINs:=s*10+j;IF___odd(i)_______THENWrite(s:6)ELSEWrite(-s:6)END;WritelnENDEND.26、下面程序可从键盘输入一个大于0的整数，然后输出此数的所有整数因子。例如：输入12，则输出：quotientOF12:1234612PROGRAMp243(Input,Output);VARa,k:Integer;BEGINReadln(a);IFa0THENBEGINWrite(‘quotientof’,a:3,’:’);FORk:=1TO___a______DOIF__amodk=0_______THENWrite(k:3)END;WritelnEND.27、下面程序实现检查输入的算术表达式中圆括号是否匹配，并输出相应检查结果（为简化运算，假设表达式中无空格，且以空格作为表达式的结束标志）。PROGRAMp244(Input,Output);鲁迅中学柯桥校区信息学竞赛小组程序三种基本结构练习(2)姓名:得分:4VARsum:Integer;ch:Char;b:Boolean;BEGINRead(ch);b:=True;sum:=0;WHILE(ch’‘)ANDbDOBEGINIFch=’(‘THENsum:=sum+1;IFch=’)‘THENsum:=sum-1;IFsum0THENb:=False;Read(ch)END;IF______notfalse___THENWrite(‘右括号先于左括号出现’)ELSEIF____sum0_____THENWrite(‘左括号多于右括号’)ELSEWrite(‘表达式括号匹配’)END.28、以下程序实现从键盘读入10个无序数，去掉一个最大数和一个最小数，求平均值。请在＿＿处填入正确内容。PROGRAMp245(Input,Output);VARi,max,min,x,sum:Integer;ave:Real;BEGINReadln(x);max:=x;min:=x;sum:=x;FORi:=1TO9DOBEGINReadln(x);sum:=sum+x;IFxminTHEN_____min:=x______ELSEIFxmaxTHEN__max:=x_____END;sum:=sum-max-min;ave:=sum/8.0;Writeln(‘theaverageis:’,ave:5:1)END.29、π的近似值可用以下公式求得：6*≈1*11＋2*21＋3*31＋...＋nn*1由此公式可知，若n取值1000，最后一项的值已为10e－6，认可达到精度要求。以下程序求π的近似值，请填空完成。PROGRAMp246(Output);VARi:Integer;pi:___real;__________begin______________pi:=0.0;FORi:=1TO1000DOpi:=pi+1/(i*i)_____;pi:=Sqr(6*pi);Writeln(‘pi