资源描述：
《while、repeat 循环语句基础练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、While、repeat循环练习2、输入数据：0 2，下列程序输出结果为（ ）。VarX,Y:Integer;BeginY:=0;X:=1;Whilex<>0DoBeginY:=Y+X;Read(x);End;Write(Y);End.1、下列程序输出结果为 （ ）。VarY:Integer;BeginY:=2;WHILE(Y<=32)DOY:=Y*Y;Writeln(Y);End.3、下列程序输出结果为 （ ）。VarI:Integer;BeginI:=0;While(I<10)Do5、下列程序输出结果为 （ ）。VarS,I:Integer;BeginI:=1;S:=0;Re
2、peatS:=S+I;I:=I+1;UntilI>5;Write(S);End.I:=I+3;Write(I);End.4、下列程序输出结果为 （ ）。VarS,N:Integer;BeginN:=1234;S:=0;While(N<>0)DoBeginN:=NDiv10;S:=S+1;7、programc2_303;vari,x1,x2,x3,x4,y:integer;beginfori:=1980to2000dobeginy:=i;x4:=ymod10;y:=ydiv10;x3:=ymod10;y:=ydiv10;x2:=ymod10;x1:=ydiv10;if(x1=x4)an
3、d(x2=x3)thenwrite(i,'');end;end.End;Writeln(S)End.6、programc2_302;varx:integer;beginx:=21;repeatwrite(x,'');x:=x-4;untilx<10;end.69、programc2_302;varx:integer;beginx:=21;repeatwrite(x,'');x:=x-4;untilx<10;end.8、programdgc1_301;varx:integer;beginx:=3;whilex<100dobeginx:=x+1;x:=x*x;end;writeln(x);
4、end.11.programf1_304;varn,s,j:integer;begins:=0;n:=3;forj:=1tondobegins:=s+j*(j+1);writeln(j,'*',j+1,'=',j*(j+1));end;writeln('TOTAL=',S)end.10.programf1_302;vara,s,d,t:integer;begina:=5612;s:=0;repeatt:=a;a:=tdiv10;d:=tmod10;s:=s+d;untila=0;writeln(s);13、programdgc1_301;varx:integer;beginx:=3;w
5、hilex<100dobeginx:=x+1;x:=x*x;end;writeln(x);end.end.12、programf1_305;varn,k:integer;beginn:=15;k:=0;repeatk:=k+1;n:=n-k;untiln<=0;ifkmod2=0thenwriteln(k-n,'/',n+1)elsewriteln(n+1,'/',k-n);end.615、programdgc1_305;vars,a,b,k:integer;begins:=0;a:=1;b:=1;fork:=1to3dobegins:=s+a*b;a:=a+b;s:=s+b*a;b:
6、=a+b;end;writeln(s);end.14、programdgc1_304;vars,p:longint;n,i,j:integer;beginn:=5;s:=0;fori:=1tondobeginp:=1;forj:=1toidop:=p*j;s:=s+p;17.programc2_305;varm,n,s,i,j:integer;beginm:=4;s:=1;forj:=0tom-1dobegins:=s+j;n:=1;i:=s;repeatwrite(chr(64+i),'');n:=n+1;i:=i+n+j;untiln>m-j;end;end.end;writeln
7、('s=',s);end.16.programdgc1_306;vara,b,r,g:integer;beginA：=105；B：=60；write('(',a,',',b,')=');r:=amodb;whiler<>0dobegina:=b;b:=r;r:=amodb;end;19.阅读程序,写出运行结果。programex9(input,output);Varr,c,i:Integer;begini:=20;forr:=1to5dobeg
