NOIP历年初赛阅读程序题.doc

NOIP2006: 1. Program ex401; var u,v:array[0..3] of integer; i,x,y:integer; begin x:=10; y:=10; for i:=0 to 3 do read(u[i]); v[0]:=(u[0]+u[1]+u[2]+u[3]) div 7; v[1]:=u[0] div ((u[1]-u[2]) div u[3]); v[2]:=u[0]*u[1] div u[2]*u[3]; v[3]:=v[0]*v[1]; x:=(v[0]+v[1]+2)-u[(v[3]+3) mod 4]; if (x10) then y:=y+(v[2]*100-v[3]) div (u[u[0] mod 3]*5) else y:=y+20+(v[2]*100-v[3]) div (u[v[0] mod 3]*5); writeln (x,,,y); end. {*注：本例中，给定的输入数据可以避免分母为0或下标越界。 ) 输入：9 3 9 4 输出：_______________ 2.Program ex402; const m:array[0..4] of integer=(2,3,5,7,13); var i,j:integer; t: longint; begin for i:=0 to 4 do begin t:=1; for j:=1 to m[i]-1 do t:=t*2; t:=(t*2-1)*t; write (t, ); end; writeln; end. 输出:____________________ 3. Program ex403; Const NN=7; Type Arr1=array[0..30] of char; var s:arr1; k,p:integer; function fun1(s:arr1; a:char;n:integer):integer; var j:integer; begin j:=n; while (as[j])and(j0) do dec(j); fun1:=j; end; Function fun2(s:arr1; a:char; n:integer):integer; var j:integer; begin j:=1; while (as[j])and(jn) do inc(j); fun2:=j; end; begin for k:=1 to NN do s[k]:=chr(ord(A)+2*k+1); k:=fun1(s,M,NN)+fun2(s,M,NN); writeln(k); end. 输出：_____________ 4. program ex404; var x,x2:longint; procedure digit(n,m:longint); var n2:integer; begin if(m0) then begin n2:=n mod 10; write(n2:2); if(m1) then digit(n div 10,m div 10); n2:=n mod 10; write(n2:2); end; end; begin writeln(Input a number:); readln(x); x2:=1; while(x2x) do x2:=x2*10; x2:=x2 div 10; digit(x,x2); writeln; end. 输入：9734526 输出：______________________________ NOIP2005: 1． var a, b, c, p, q : integer; r : array[0..2] of integer; begin read(a, b, c); p := a div b div c; q := b - c + a + p; r[0] := a * p div q * q; r[1] := r[0] * (r[0] - 300); if (3 * q - p mod 3 = r[0]) and (r[2] = r[2]) then r[1] := r[r[0] div p mod 2] else r[1] := q mod p; writeln(r[0] - r[1]); end. 输入：100 7 3 输出： 2． var a : array [1..50] of integer; n, i, sum : integer; proc