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

鲁迅中学柯桥校区信息学竞赛小组程序三种基本结构练习(1)姓名:得分:1一、选择题：1、已知x=10,y=20,z=30,以下程序段执行后x,y,z的值应是……………………(B)IFxyTHENz:=x;x:=y;y:=zA)x=10,y=20,z=30B)x=20,y=30,z=30C)x=20,y=30,z=10D)x=20,y=30,z=202、有下列程序段：X：=3；Y：=5；FORI：=XTOYDOBEGINX：=3；Y：=6；WRITE(I)END则FOR循环体的执行次数是……(B)A)0B)3C)4D)63、表达式TrueANDNOTOdd(-202)AND(7-3=4)的值是…………………………(A)A)TrueB)FalseC)0D)14、有下面程序段：A：=FALSE；B：=FALSE；C：=TRUE；X：=10；IFATHENX：=X-5ELSEIFBTHENIFCTHENX：=36ELSEX：=45；假设所有变量均已说明，程序运行后X的值是………(B)A）5B）10C）36D）45二、根据程序写结果：1、PROGRAMex1；VARI，N，K：INTEGER；BEGINN：=15469；K：=2；FORI：=1TOK-1DON：=NDIV10；N：=NMOD10；WRITELN（N）END.输出：_____6_________2、Programex2;VarA,B,C:Boolean;X,D:integer;beginA:=FALSE;B:=TRUE;C:=FALSE;D:=20;x:=0;IFATHEND：=D-10ELSEIFNOTBTHENIFNOTCTHENX：=15ELSEX：=25；Writeln（D,X）;End.输出：____200___________3、PROGRAMp268(Output);VARi,j,k,sum1,sum2:Integer;BEGINsum1:=0;sum2:=0;k:=1;WHILEk=10DOBEGINIF(kMOD2=0)THENFOFi:=1TO5DOsum1:=sum1+iELSEFORj:=1TO5DOsum2:=sum2+j;k:=k+1END;Writeln(sum1,sum2)END.7575三、完成程序:1、读入三个整数，找出并输出其中最大数。Vara,b,c,max:integer;BeginRead(a,b,c);Ifabthen___MAX:=A___else__max:=b_____;Ifcmaxthen____max:=c______;Writeln(‘thelargestnumberis’,max:8);End.2、下列程序段计算1~20中既不能被3整除，也不能被4整除的所有整数之积。Varp,i:longint;BeginP：=1；fori：=1to20doIF（IMOD30）AND(IMOD40)THEN_______p:=p*i________;Writeln(p);End.3、输入年、月，输出该月天数。varyear,month,days:integer;beginreadln(year,month);casemonthof1,3,5,7,8,10,12:days:=31;4,6,9,11:days:=30;2:if(yearmod400=0)or((yearmod4=0)and(yearmod1000))thendays:=29elsedays:=28;end;writeln(days);end.