while、repat 循环语句基础练习.docVIP

While、repeat循环练习 1、下列程序输出结果为　（ 　　）。 Var Y:Integer; Begin Y:=2; WHILE(Y=32) DO Y:=Y*Y; Writeln(Y); End. 3、下列程序输出结果为　（　 ）。 Var I:Integer; Begin I:=0; While(I10) Do I:=I+3; Write(I); End. 4、下列程序输出结果为　（　 　）。 Var S,N:Integer; Begin N:=1234; S:=0; While(N0) Do Begin N:=N Div 10; S:=S+1; End; Writeln(S) End. 6、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. 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); end. 12、program f1_305; var n,k:integer; begin n:=15; k:=0; repeat k:=k+1; n:=n-k; until n=0; if k mod 2=0 then writeln(k-n,/,n+1) else writeln(n+1,/,k-n); end. 14、 program dgc1_304; var s,p:longint; n,i,j:integer; begin n:=5; s:=0; for i:=1 to n do begin p:=1; for j:=1 to i do p:=p*j; s:=s+p; 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; 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 n＞8;? writeln(t:3:0)end．20. 阅读程序 , 写出运行结果。 program ex5(input,output); Var t,n,S :integer; begin t:=1; n:=3; s:=0; while S 10 do begin t:=t * n; S:=s+t; end; write(s=’,s); end. 22. 阅读程序 , 写出运行结果。 program ex7(input,output); Var n,a :Integer ; begin n:=6;a:=0; while n1 do begin a:=1; repeat write( * ); a:=a+1; until a=n; writeln; n:=n-1; end end. 二、完善程序 1. 完善程序 , 使其能输出如下图形 : * ** *** **** ***** program extL1(input , output); Var i,j:integer; begin for i:=1 to ① do begin write(‘’: ② ) for j :=1 to ③ do write ( ④ ); writeln; end; end. ? 3、下列程序的功能是：有N个评委打分， 去掉一个最高分和一个