pasal习题阅读程序.docVIP

第1题（6分） program yd; var d, p: integer; begin P： = l； d:=ll; while dl do begin p:=2*(p+l); d:=d-l end; writcln (p) end. 输出： 答案： 3070 第2题(6分) program yd; g, in: integer; k, t: real; begin k::0; g:=0; for m:=l to 49 do begin g:=g+l; k:=k+l/(g*(g+l)) end; writcln ( k: 10: 2 end. 输出： 答案： 0. 98 第3题(6分) program yd; var n, i，t: longint; tem: integer; s: string; begin write (’Input n: ’)； read In (n); s:= f ; repeat i:二 length (s); while s[i] =’ 1’ do begin s[i] := ’ 0’ ;dcc(i); end; if i〉0 then s[i] :=’ 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:=l to 2*i do write， {’’中间是一个空格} for j:=l 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 13 6 0 5 6 8 1 5 第5题（7分） program yd; var a:array[0.. 8] of char; i: integer; begin for i := 1 to 8 do a[i] :=char (i * 2 +ord(’A’))； for i:= 1 to 4 do begin a[0] :=a[i]; a[i] :=a[9-i]; a[9-i]:=a[0]; end; for i := 1 to 8 do writc(a[i]); writeln; end. 输出： 答案： QOMKIGEC 第6题(7分) Program yd; n, i，x: integer; d:array[0.. 10] of integer; begin readln(n); fori:二1 to n do begin read (x); d[x]:=d[x] +1; end; d[0]:=0; for i:=l to 10 do d[i]:=d[i—l]+d[i]; for i:=1 to 10 do if d[i]〈〉d[i—l] then vriteln(i :3, d[i—1] + 1:4); end. 输入: 20 3 4 6 1 7 6 9 4 10 6 6 3 3 8 7 9 10 6 输出: 答案: 1 1 3 2 4 5 6 7 7 12 8 16 9 17 10 19 第7题（7分） program yd; var a, b: array [1.. 32] of integer; i: integer; procedure ssort ( i ,j :integer); var m, k, x: integer; begin if j-il then begin m:=(i+j) div 2; ssort(i, m); ssort(m+1,j); k:=i; for x:=i to m do b[k]:=a[x]; b[k+l]:=a[m+x—i+1]; k:=k+2; end; for x: = i to j do a[x]:=b[x]; end; end; begin for i:=1 to 16 do a[i]:=i; ssort (1, 16); for i:= 1 to 16 do write(a[i]:3); write In; end. 输出： 答案： 1 9 5 13 3 11 7 15 2 10 6 14 4 12 8 16 第8题(6分) program yd; var a, d:array[1. 100] of