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

NOIP训练专题二（阅读程序写结果） NOIP2008 1．var i,a,b,c,d:integer; f:array[0..3] of integer; begin for i:=0 to 3 do read(f[i]); a:=f[0]+f[1]+f[2]+f[3]; a:=a div f[0]; b:=f[0]+f[2]+f[3]; c:=(b*f[1]+a) div f[2]; d:=f[(b div c) mod 4]; if (f[(a+b+c+d) mod 4]f[2]) then begin a:=a+b; writeln(a) end else begin c:=c+d; writeln(c); end; end. 输入： 9 19 29 39 输出：_______________________________ 2．procedure foo(a,b,c:integer); begin if ab then foo(c,a,b) else writeln(a,,,b,,,c) end; var a,b,c:integer; begin readln(a,b,c); foo(a,b,c); end. 输入：2 1 3 输出：_________________ 3．procedure f(a,b,c:integer); begin write(a,b,c,/); if (a=3)and(b=2)and(c=1) then exit; if (bc) then f(a,c,b) else if ab then if ac then f(c,a,b) else f(b,c,a); end; var a,b,c:integer; begin readln(a,b,c); f(a,b,c); end. 输入：1 3 2 输出：____________________ 4．var s:string; i,j,len,k:integer; begin readln(s); len:=length(s); for i:=1 to len do if (ord(s[i])=ord(A)) and (ord(s[i])=ord(Z)) then s:=chr(ord(s[i])-ord(A)+ord(a)); for i:=1 to len do if (ord(s[i])ord(X)) then s:=chr(ord(s[i])+3) else s:=chr(ord(s[i])-23); write(s); write(/); for j:=1 to 3 do begin i:=1; while i=len-j do begin s[i]:=s[i+j]; i:=i+j; end; end; writeln(s); end. 输入：ABCDEFGuvwxyz 输出：________________________________ NOIP2007 1. program s401; var p,q:array[0..5] of integer; i,x,y:integer; begin y:=20; for i:=0 to 4 do read(p[i]); readln; q[0]:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7; q[1]:=p[0]+p[1] div ((p[2]+p[3]) div p[4]); q[2]:=p[0]*p[1] div p[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) mod 4]; if (x10) then y:=y+(q[1]*100-q[3]) div (p[p[4] mod 3]*5) else y:=y+20+(q[2]*100-q[3]) div (p[p[4] mod 3]*5); writeln(x,,,y); end. /*注：本例中，给定的输入数据可以避免分母为?0 或下标越界。由X2Studio.Net收集?*/ 输入：6 6 5 5 3 输出：???????