竞赛阅读程序测试试题及其答案 知识竞赛答案

竞赛阅读程序测试试题及其答案 知识竞赛答案 “竞赛阅读程序测试”及其 第1题(6分) program yd; var d, p: integer; begin p:=1; d:=11; while d1 do begin p:=2*(p+1); d:=d-1 end; writeln (p) end. 输出：_ 答案： 3070 第2题(6分) program yd; var g,m: integer; k,t: real; begin k:=0; g:=0; for m:=1 to 49 do begin g:=g+1; k:=k+1/(g*(g+1) end; writeln ( k: 10: 2 ) end. 输出：_ 答案： 0.98 第3题(6分) program yd; var n, i, t: longint; tem: integer; s: string; begin write(Input n: ); readln(n); s:=1; repeat i:= length(s); while si =1 do begin si:= 0 ;dec(i); end; if i0 then si:=1 else s:= 1 +s; val(s,t,tem); until t mod n = 0; writeln(n,*,t div n,=,s); end. 输入：6 输出：_ 答案： 6*185=1110 第4题(6分) program yd; const n = 5; var i,j,m,s:integer; begin m:=0; for i:=1 to n do begin m:=m+i; s:=m; for j:=1 to 2*i do write(); for j:=1 to n do begin write(s mod 10:2); s:=s+j; end; writeln; end; end. 输出：_ 答案： 1 2 4 7 1 3 4 6 9 3 6 7 9 2 6 0 1 3 6 0 5 6 8 1 5 第5题(7分) program yd; 中间是一个空格 var a:array0.8 of char; i: integer; begin for i:= 1 to 8 do ai:=char(i * 2 +ord(A); for i:= 1 to 4 do begin a0:=ai; ai:=a9-i; a9-i:=a0; end; for i:= 1 to 8 do write(ai); writeln; end. 输出：_ 答案： QOMKIGEC 第6题(7分) Program yd; var n, i, x: integer; d:array0.10 of integer; begin readln(n); fori:=1 to n do begin read(x); dx:=dx +1; end; d0:=0; for i:=1 to 10 do di:=di-1+di; for i:=1 to 10 do if di di-1 then writeln(i:3,di-1+1:4); end. 输入: 20 3 4 6 1 7 6 9 4 10 7 6 6 3 3 8 7 9 10 6 7 输出：_ 答案： 1 1 3 2 4 5 6 7 7 12 8 16 9 17 10 19 第7题(7分) program yd; var a,b:array1.32 of integer; i: integer; procedure ssort( i ,j: integer); var m, k, x: integer; begin if j-i1 then begin m:=(i+j) div 2; ssort(i,m); ssort(m+1,j); k:=i; for x:=i to m do begin bk:=ax; bk+1:=am+x-i+1; k:=k+2; end; for x:=i to j do ax:=bx; end; end; begin for i:=1 to 16 do ai:=i; ssort(1,16); for i:= 1 to 16 do write(ai:3); writeln; end. 输出：_ 答案： 1 9 5 13 3 11 7 15 2 10 6 14 4 12 8 16 第8题(6分) program yd; var a,d:array1.100 of integer; n ,i ,j ,k,x ,s :integer; begin n:=5;a1:=1;d1:=1; for i:=1 to n do begin s:=i+1;x:=0; for j:=1 to n+1-i do begin k:=s+x;x:=x+1;aj+1:=aj+k; write(aj, ); end; writeln(.);di+1:=di+i;a1:=di+1; end; end. 输出：_ 答案： 1 3 6 10 15 . 2 5 9 14 . 4 8 13 . 7 12 . 11 . 第9题(7分) program yd; const d: array 0.3,1.4 of integer =(4,7,10,13),(1,8,11,14),(2,5,12,15),(3,6,9,16); var i ,j ,a,x,k ,bj :integer; y,u,v:real; begin for i:=1 to 4 do begin a:=3-i;bj:=0; for j:=0 to 3 do for k:=1 to 4 do begin x:=dj,k;u:=(x+a)/4;v:=(x+trunc(u)/4; y:=4*(v-trunc(v); if yj then begin k:=4;j:=3;bj:=1;end; end; if bj=0 then begin write(U = (X); if a0 then write(+); writeln(a,)/4); end; end; end. 输出：_ 答案： U = (X-1)/4 第10题(7分) program yd; const a:array1.10 of integer = (8 ,2,7,4,6,9,3,5,3,8); type point = nod; nod = record w: integer; right,left: point end; var first,head :point; j,i,k:integer; procedure hyt ( d: integer; var p: point); begin if p = nil then begin new(p); if k = 1 then begin first:=p;k:=2;end; with p do begin w:=d; right:=nil; left:=nil end; end else with p do if d = w then hyt(d,right) else hyt(d,left); end; procedure hyt1(p: point); begin with p do begin if left nil then hyt1(left); write(w:4); if right nil then hyt1(right); end; end; begin i:=10; first:=nil;k:=1; for j:=1 to i do hyt(aj ,first); hyt1(first);writeln end. 输出：_ 答案： 2 3 3 4 5 6 7 8 8 9 第11题(7分) program yd; var m,n,i,p,k:integer; r:array1.200 of integer; b: boolean; begin m:=6;n:=2; for i:=1 to m-1 do ri:=i+1; rm:=1;i:=0;p:=1;b:=true; while b do begin i:=i+1;k:=p;p:=rp; if k=p then begin writeln(p) ;b:=false end else if i=n+1 then begin write(p, );i:=0;p:=rp;rk:=p; end end end. 输出：_ 答案： 4 2 1 3 6 5 第12题(7分) program yd； var n，k，s：longint； begin n:=1000000000； k:=0； s:=1； while s begin k:=k+1; n:=n-s; s:=s+6*k end; writeln (k) end. 输出：_ 答案： 1000 第13题(7分) program yd; const a: array1.14 of longint =(94,32,40,90,99,80,46,21,69,28,64,73,85,54); var i, j, k, m,left, right, temp: longint; begin m:=8; left:= 1; right:= 14; while left begin k:=am; i:=left; j:=right; repeat while k while k ai do i:=i+1; if i begin temp:=ai; ai:=aj; aj:=temp; i:=i+1; j:=j -1 end until i j; if j if i m then right:=j end; writeln(am) end. 输出：_ 答案： 69 第14题(7分) program yd; var m ,n,s: longint; procedure pl(n: longint); begin if n0 then begin pl(n div 2); s:=(s*2+n mod 2 *m) mod 1023 end end; begin m:=xx; n:=5871; s:=0; pl(n); writeln(s); end. 输出：_ 答案： 495 第15题(7分) program yd; const maxn =10000; var i,j,k ,n,r,p,g:longint; a:array 1.maxn of longint; function gcd(m, n: longint): longint; var r: longint; begin while n0 do begin r:=m mod n; m:=n; n:=r end; gcd:=m end; begin n:= 1000; r:=202; for i:=1 to n-r do ai:=n-i+1; for i:=2 to r do begin k:=i; for j:=1 to n-r do if