while、repeat 循环语句基础练习.doc

While、repeat循环练习2、输入数据：02，下列程序输出结果为（ ）。VarX,Y:Integer;BeginY:=0;X:=1;While x0 DoBeginY:=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(I5;Write(S);End.I:=I+3;Write(I);End.4、下列程序输出结果为（ ）。VarS,N:Integer;BeginN:=1234;S:=0;While(N0) DoBeginN:=N Div 10;S:=S+1;7、program c2_303;var i,x1,x2,x3,x4,y:integer;begin for i:=1980 to 2000 do begin y:=i; x4:=y mod 10; y:=y div 10; x3:=y mod 10; y:=y div 10; x2:=y mod 10; x1:=y div 10; if (x1=x4) and (x2=x3) then write(i, ); end;end.End;Writeln(S)End.6、program c2_302; var x:integer; begin x:=21; repeat write(x, ); x:=x-4; until x10; end.9、program c2_302; var x:integer; begin x:=21; repeat write(x, ); x:=x-4; until x10; end.8、program dgc1_301;var x:integer;begin x:=3; while x100 do begin x:=x+1; x:=x*x; end; writeln(x);end.11. program f1_304;var n,s,j:integer;begin s:=0; n:=3; for j:=1 to n do begin s:=s+j*(j+1); writeln(j,*,j+1,=,j*(j+1); end; writeln(TOTAL=,S)end.10. program f1_302;var a,s,d,t:integer;begin a:=5612; s:=0; repeat t:=a; a:=t div 10; d:=t mod 10; s:=s+d; until a=0; writeln(s);13、program dgc1_301;var x:integer;begin x:=3; while x100 do begin x:=x+1; x:=x*x; end; writeln(x);end.end.12、program f1_305;var n,k:integer;begin n:=15; k:=0; repeat k:=k+1; n:=n-k; until nm-j; end; end. end; writeln(s=,s);end.16. program dgc1_306;var a,b,r,g:integer;begin A：=105；B：=60；write(,a,b,)=);r:=a mod b;while r0 do begin a:=b; b:=r; r:=a mod b; end;19. 阅读程序 , 写出运行结果。program ex9(input ,output);Varr,c,i:Integer ;begini:=20;for r:= 1 to 5 dobeginwrite(:r);for C:= 1 to r*2-1 dowrite(c:1);wrlteln;i:=i-lendend.g:=b;writeln(g);end.18.var n：integer； b，t：real；begin t：1；b：1；n：2； repeat b：b*n； t：t+b； n：n+1 until n8; writeln(t:3:0)end20. 阅读程序 , 写出运行结果。21. 阅读程序 , 写出运行结果。program ex6(input,output);Varp,m:Integer;beginP:=20; M:=2;repeatP:=p-m;m:=m+3;until mp;write(m,p=,m,p);gram ex5(input,output);Vart,n,S :integer;begint:=1; n:=3; s:=0;while S 1 do begina:=1;repeatwrite( * ); a:=a+1; until a=n;writeln;n:=n-1;endend.2. 求出满足下列条件的二位数 :将此二位数的个位数字与十位数字进行交换 , 可以得到一个新的数 , 要求新数与原数之和小于 100( 每行输出 6 个满足要求的数 ) 。begink:= 0;for i := to 99 dobeginX:= Y:= j:=x * 10+y;if then begin K:=k+1; write(i:4); then writelnend;end;end.二、完善程序1. 完善程序 , 使其能输出如下图形 :*program extL1(input , output);Vari,j:integer;beginfor i:=1 to dobeginwrite(: )for j :=1 to do write ( ); writeln;end;end.4、有一数列，第一、第二两个数分别为1、2，其后每个数都为前两个数之和。下面程序的功能是打印出数列中所有小于3000的数，请将程序补充完善。program c2_402;var a,b,c:integer;begin a:=1; b:=2; write(a, );