NOIP历年初赛阅读程序题

《NOIP历年初赛阅读程序题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、NOIP2006:1.Programex401;varu,v:array[0..3]ofinteger;i,x,y:integer;beginx:=10;y:=10;fori:=0to3doread(u[i]);v[0]:=(u[0]+u[1]+u[2]+u[3])div7;v[1]:=u[0]div((u[1]-u[2])divu[3]);v[2]:=u[0]*u[1]divu[2]*u[3];v[3]:=v[0]*v[1];x:=(v[0]+v[1]+2)-u[(v[3]+3)mod4];if(x>10)th

2、eny:=y+(v[2]*100-v[3])div(u[u[0]mod3]*5)elsey:=y+20+(v[2]*100-v[3])div(u[v[0]mod3]*5);writeln(x,',',y);end.{*注：本例中，给定的输入数据可以避免分母为0或下标越界。)输入：9394输出：_______________2.Programex402;constm:array[0..4]ofinteger=(2,3,5,7,13);vari,j:integer;t:longint;beginfori:=0to4d

3、obegint:=1;forj:=1tom[i]-1dot:=t*2;t:=(t*2-1)*t;write(t,'');end;writeln;end.输出:____________________3.Programex403;ConstNN=7;TypeArr1=array[0..30]ofchar;vars:arr1;k,p:integer;functionfun1(s:arr1;a:char;n:integer):integer;varj:integer;7beginj:=n;while(a

4、d(j>0)dodec(j);fun1:=j;end;Functionfun2(s:arr1;a:char;n:integer):integer;varj:integer;beginj:=1;while(a>s[j])and(j

5、4;varx,x2:longint;proceduredigit(n,m:longint);varn2:integer;beginif(m>0)thenbeginn2:=nmod10;write(n2:2);if(m>1)thendigit(ndiv10,mdiv10);n2:=nmod10;write(n2:2);end;end;beginwriteln('Inputanumber:');readln(x);x2:=1;while(x2

6、;writeln;end.输入：9734526输出：______________________________NOIP2005:1．vara,b,c,p,q:integer;7r:array[0..2]ofinteger;beginread(a,b,c);p:=adivbdivc;q:=b-c+a+p;r[0]:=a*pdivq*q;r[1]:=r[0]*(r[0]-300);if(3*q-pmod3<=r[0])and(r[2]=r[2])thenr[1]:=r[r[0]divpmod2]elser[1]:=

7、qmodp;writeln(r[0]-r[1]);end.输入：10073输出：2．vara:array[1..50]ofinteger;n,i,sum:integer;procedurework(p,r:integer);vari,j,temp:integer;beginifp=a[r]thenbegininc(i);temp:=a[i];a[i]:=a[j];a[j]:=temp;end;temp:=a[i+1];a[i+1]:=a

8、[r];a[r]:=temp;work(p,i);work(i+2,r);end;end;beginread(n);fori:=1tondoread(a[i]);work(1,n);fori:=1ton-1dosum:=sum+abs(a[i+1]-a[i]);writeln(sum);end.输入：1023435123453123434561232-100输出：3．va