全国信息学奥赛1995~2004年分类试题汇编(阅读程序).doc

1请将以下程序段表示的计算公式写出来（假设X的值已给出） E:=1; A:=1; FOR N:=1 TO 10 DO BEGIN A:=A*X/N; E:=E+A; ENDFOR; 写出所表示的公式。 2阅读下列程序段，写出程序段运行后变量X的值。 X1:=3; X2:=8; FOR I:=1 TO 5 DO BEGIN 循环结构，应用数据轮换方式，求两个数和的2倍。 X:=（X1+X2）*2; X1:=X2; X2:=X; END; WRITELN（X=,X）; 3阅读下列程序段，写出程序运行后数组元素A1，A2，A11中的值。 A1:=1; A2:=1; K:=1; REPEAT AK+2:=1; FOR I:=K+1 DOWNTO 2 DO AI:=AI+AI-1; K:=K+1; UNTIL K=10; 4 program exp1 (input,output); var i,s,max:integer; a:array 1.10 of integer; begin for i:=1 to 10 do read(ai); max:=a1; s:=a1; for i:=2 to 10 do begin if smax then max:=s end; writeln(max=,max) end. 输入：-2 13 -1 4 7 8 -1 -18 24 6 输出：max= 输入：8 9 1 24 6 5 11 15 28 9 输出：max= 5program exp2 (input,output); const n=5; var i,j,k:integer; a:array1.2*n, 1.2*n of integer; begin k:=1; for i:=1 to 2*n-1 do if i0 then begin write(i,:4); s:=s+1; end; writeln; writeln(s=,s); writeln(input data:); readln(x); writeln(gx) end. 输入：10 20 65 input data: 10 输出： 8program excpl; var x,y,y1,jk,j1,g,e:integcr; a:array l.20 of 0.9; begin x:=3465; y:=264; jk:=20; for j1:=1 to 20 do aj1:=0; while y0 do begin y1:=y mod 10; y:=y div 10; while y10 do begin g:=x; for e:=jk downto 1 do begin g:=g+ae; ae:=g mod 10; g:=g div 10 end; y1:=y1-1 end; jk:=jk-1 end; j1:=1; while aj1=0 do j1:=j1+1; for jk:=j1 to 20 do write(ajk:4); writeln end. 9program excp2 var i,j:integer; a:array 1.14 of integer; procedure sw(i1,j1:integer); var k1:integer; begin for k1:=1 to (j1-i1+1) div 2 do begin ai1k1-1:=ai1k11aj1k1+1; aj1k11:ai1k11aj1k1+1; ai1+k11:=ai1-k1+1aj1k1+1; end; end; begin j:=211; for i:=1 to 14 do begin ai:=i; j:=j-i end; sw(1,4); sw( 5,10); sw(11,14); sw(1,14); for i:=1 to 14 do begin if j mod i=1 then write (ai:3); j:=jai; end; writeln end. 10program noi_002; var i,j,l,n,k,s,t:integer; b:array 1.10 of 0.9; begin readln(l,n); s:=l; k:=1; t:=l; while ss:=s-t; n:=n-s-1; for i:=1 to 10 do bi:=0; j:=11; while n0 do begin j:=j-1; bj:=n mod l; n:=n div l end; for i:=10-k+1 to 10 do write(chr(ord(a)+bi); end. 输入：4 167 输出： 11program noi_004; vari,j,j1,j2,p,q:integer; p1:boolean; b,c:array 1.100 of integer; begin readln(q,p); j:=1; p1:=true; bj:=q; j1:=0; while (q0) and p1 do begin j1:=j1+1; cj1:=q*10 div p; q:=q*10-cj1*p; if q0 then begin j2:=1; while (bj2q) and (j2ai1then s:=s+1; if(s=x-1)then begin writeln(ai1); p:=false end; end end; begin readln(n,k); for i:=1 to n do read(ai); find(k); find(n-k); end. 输入：10 4 12 34 5 65 67 87 7 90 120 13 输出： 16.program exp1; var i,j,k,n,l0,l1,lk:integer; a:array 0.20 of integer; begin readln(n,k); for i:=0 to n-1 do ai:=i+1; an:=an-1; l0:=n-1; lk:=n-1; for i:=1 to n-1 do begin l1:=l0-k; if (l10) then l1:=l1+n; if (l1=lk) then begin al0:=an; lk:=lk-1; an:=alk; l0:=lk end; else begin al0:=al1;l0:=l1; end; end; al0:=an; for i:=0 to n-1 do write(ai:40); writeln; end. 输入:10 4 输出: 17.program exp2; var n,jr,jw,jb:integer; ch1:char; ch:array 1.20 of char; begin readln(n); for i:=1 to n do read(chi); jr:=1; jw:=n; jb:=n;: while (jr0)do begin j:=j-1;aj:=n mod 10;n:=n div 10; end; s:=0; for i:=j t0 20 do s:=s*p+ai; writeln(s); j:=21; while (so)do begin j:=j-1; aj:=s mod q; s:=s div q; end; for i:=j to 20 do write(ai);readln; end. 输入:7 3051 8 输出: 19program programl; var a,x,y,okl,ok2:integer; begin a:=100; x:=l0; y:=20; okl:=5; ok2:=0; if (xy) or (y20) and (okl=0) and (ok20) then a:=1 else if (okl0) and (ok2=、0) then a:=-1 else a:=0; writeln(a); end 20program Program2; var a,t:string; i,j:integer; begin a:=morning; j:=l; for i:=2 to 7 do if (aj j:=j-1; for i:=1 to j do write(ai); end 21program program3; var a,b,c,d,sum:longint; begin read (a,b,c,d); a:=a mod 23; b:=b mod 28; c:=c mod 33; sum:=a*5544+b* 14421+c*1288-d; sum:=sum+21252; sum:=sum mod 21252; if (sum=0) then sum:=21252; writeln(sum); end 输入：283 102 23 320 输出： 22program program4; var a:array 0.5 of integer; sum,n,max,i,j,k:integer; cover:array 0.22000 of Boolean; begin read(a5,a4,a3,a2,a1,a0); if (a5=0) and (a3=0) and (a1=0) then begin a5:=a4; a4:=a2; a3:=a0; a2:=0; a0:=0; end; for i:=0 to 5 do if (ai10) then ai:=10+(ai mod 2); sum:=0; for i:=0 to 5 do sum:=sum+ai*(6-i); if (sum mod 2)0) then begin writeln(Cant be divided.); exit; end; sum:=sum div 2; max:=0; cover0:=True; for i:=1 to sum*2 do coveri:=False; for i:=0 to 5 do; begin j:=0; while (j begin for k:=max downto 0 do begin if (coverk) then coverk+6-i:=True; end; max:=max+6-I; j:=j+1; end; end; if (coversum) then writeln(Can be divided.) else writeln(cant be divided.)； end 输入：4 7 9 20 56 48 输入：1000 7 101 20 55 1 输入：2000 5 l 1 0 0 输出： 输出： 输出： 23program program1; var a,b,c,d,e:integer; begin a:=79; b:=34; c:=57; d:=0; e:=-1; if (ac) then d:=d+e else if (d+10 else d:=e-a; writeln(d); end. 24program program2; var i,j:integer; str1,str2:string; begin str1:=pig-is-stupid; str2:=clever; str11:=d; str12:=o; i:=8; for j:=1 to 6 do begin str1i:=str2j; inc(i); end; writeln(str1); end. 25program progam3; var u:array 0.3 of integer; a,b,c,x,y,z:integer; begin read(u0, u1, u2, u3); a:=u0+u1+u2+u3-5; b:=u0*(u1-u2 div u3+8); c:=u0*u1 div u2*u3; x:=(a+b+2)*3-u(c+3) mod 4; y:= (c*100-13) div a div (ub mod 3*5); if(x+y) mod 2=0) then z:=(a+b+c+x+y) div 2; z:=(a+b+cx-y)*2; writeln(x+y-z); end. 输入：2 5 7 4 输出： 。 26program program4; var c:array 1.3 of string200; s:array 1.10 of integer; m,n,i:integer; procedure numara; var cod:boolean; i,j,nr:integer; begin for j:=1 to n do begin nr:=0; cod:=true; for i:=1 to m do if ci,j=1 then begin if not cod then begin cod:=true; inc(snr); nr:=0; end end else begin if cod then begin nr:=1; cod:=false; end else inc(nr); end; if not cod then inc(snr); end; end; begin readln(m, n); for i:=1 to m do readln(ci); numara; for i:=1 to m do if si0 then write(i, ,si, ); end. 输入：3 10 1110000111 1100001111 1000000011 输出： 。 27program cup_1; var n,i,j,k,di,dj:integer; a:array 1.20,1.20 of integer; begin n:=7;i:=1;j:=n;k:=1;di:=1;dj:=1; while (k=n*n) do begin ai,j:=k; k:=k+1;i:=i+di;j:=j+dj; if (i=n+1) then begin i:=n;j:=j-2;di:=-1;dj:=-1 end else if (j=n+1) then begin j:=n;di:=-1;dj:=-1 end else if (j=0) then begin i:=i+2;j:=1;di:=1;dj:=1 end else if (i=0) begin j:=1;di:=1;dj:=1 end end; for j:=1 to n do write(an div 2,j:4); writeln end. 28program cup_2; var s:string;i,j,m,w:integer;c:char; a:array 0.127 of integer; begin for i:=0 to 127 do begin c:=chr