NOIP训练专题二(阅读程序写结果).doc

《NOIP训练专题二(阅读程序写结果).doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、NOIP训练专题二（阅读程序写结果）NOIP20081．vari,a,b,c,d:integer;f:array[0..3]ofinteger;beginfori:=0to3doread(f[i]);a:=f[0]+f[1]+f[2]+f[3];a:=adivf[0];b:=f[0]+f[2]+f[3];c:=(b*f[1]+a)divf[2];d:=f[(bdivc)mod4];if(f[(a+b+c+d)mod4]>f[2])thenbegina:=a+b;writeln(a)endelsebeginc:=

2、c+d;writeln(c);end;end.输入：9192939输出：_______________________________2．procedurefoo(a,b,c:integer);beginifa>bthenfoo(c,a,b)elsewriteln(a,',',b,',',c)end;vara,b,c:integer;beginreadln(a,b,c);foo(a,b,c);end.输入：213输出：_________________3．proceduref(a,b,c:integer);be

3、ginwrite(a,b,c,'/');if(a=3)and(b=2)and(c=1)thenexit;if(b

4、fori:=1tolendoif(ord(s[i])>=ord('A'))and(ord(s[i])<=ord('Z'))thens:=chr(ord(s[i])-ord('A')+ord('a'));fori:=1tolendoif(ord(s[i])

5、];i:=i+j;end;end;writeln(s);end.输入：ABCDEFGuvwxyz输出：________________________________NOIP20071.programs401;varp,q:array[0..5]ofinteger;i,x,y:integer;beginy:=20;fori:=0to4doread(p[i]);readln;q[0]:=(p[0]+p[1])+(p[2]+p[3]+p[4])div7;q[1]:=p[0]+p[1]div((p[2]+p[3])d

6、ivp[4]);q[2]:=p[0]*p[1]divp[2];q[3]:=q[0]*q[1];q[4]:=q[1]+q[2]+q[3];x:=(q[0]+q[4]+2)-p[(q[3]+3)mod4];if(x>10)theny:=y+(q[1]*100-q[3])div(p[p[4]mod3]*5)elsey:=y+20+(q[2]*100-q[3])div(p[p[4]mod3]*5);writeln(x,',',y);end./*注：本例中，给定的输入数据可以避免分母为 0或下标越界。由X2Studio.

7、Net收集 */输入：66553输出：                 2.programs402;vara,b:integer;x,y:^integer;procedurefun(a,b:integer);vark:integer;begink:=a;a:=b;b:=k;end;begina:=3;b:=6;x:=@a;y:=@b;fun(x^,y^);write('No.1:',a,',',b,'');fun(a,b);writeln('No.2:',a,',',b);end.输出:   3.program

8、S403;vara1:array[1..50]ofinteger;vari,j,t,t2,n,n2:integer;beginn:=50;fori:=1tondoa1[i]:=0;n2:=round(sqrt(n));fori:=2ton2doif(a1[i]=0)thenbegint2:=ndivi;forj:=2tot2doa1[i*j]:=1;end;t:=0;fori:=2to