pascal习题阅读程序.doc

第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 13 4 6 9 36 7 9 2 60 1 3 6 05 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);writelnend.输出：_答案： 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 endend.输出：_答案：4 2 1 3 6 5第12题(7分)program yd；var n，k，s：longint；begin n:=1000000000； k:=0； s:=1； while s = n do 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 right do begin k:=am; i:=left; j:=right; repeat while k ai do i:=i+1; if i j; if j 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:=2002; 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 gcd(k,aj) 1 then begin g:= gcd(k,aj); k:=k div g; aj:=aj div g; if k = 1 then break end end; p:= 1 ;g:=0; for i:=1 to n-r do begin p:=p*ai; while p mod 5 = 0 do begin p:=p div 5; g:=g+1 end; p:= p mod 5 end; writeln(g)end. 输出：_答案：1511 program t1；var n，k，s：longint；begin readln(n); k:=0； s:=1； while s = n do begin k:=k+1; n:=n-s; s:=s+6*k end; writeln (k)end.输入:1000000 输出:2. program t2;var x,y1,y2,y3:integer; begin readln(x); y1:=0;y2:=1;y3:=1; while y20) then am：= pi-pi-1 else am：= pi； m：= m+1： while (m1) and (arn-1=0) do begin m ；= m-1； bm ：= l； end； if (m0) then wi：=bm-1 else wi：=b0； am-1 ：= am-1-1； for j ：= 0 to m-1 do bj ；= bj+1； while (m1) and (am-1=0) do begin m ：= m-1； bm ：=1； end;end;for i ：= 0 to n-1 do begin write(wi)； write( ); end；writeln( )；end 输入：44 6 6 6输出：4. program t4； const u：array14 of integer = (0，5，3，1)； v：array14 0f integer = (0，7，6，5)； var a，b，c，d，e，f，x，y，z： integer； begin read (a，b，c，d，e，f)； z ：= f + e + d + (c+3) div 4； y ：= 5 * d + u c mod 4 ； if (by) thenbeginz ：= z+ (b-y+8) div 9；x ：= (b-y+8) div 9 * 9- (b-y) * 4+11*e+Vc mod 4；endelsex ：= (y-b) *4+11*e+vc mod 4；if (ax) thenz ：= z + (a-x+35) div 36； writeln(z)； end输入: 4 7 9 20 56 47输出: 三1100 220 31 1 2 4 4126三、阅读程序（8一题，共32）1、- program program1;Vara,b,c,d,e:integer;begina