NOIP初赛练习之三(阅读程序写出程序运行结果).docVIP

NOIP初赛练习之三（阅读程序写出程序运行结果） 前言： 如何做阅读程序题 阅读程序题是得分的关键，因为不是让你上机去运行程序，所以要一步步地读程序，记录相关变量的值，最好以画表的形式来记录相关变量值的变化情况。因为程序的运行结果只有输出语句才有输出，所以只写出输出语句的结果。 有时要找出规律才能写出结果，特别是循环次数多的情况，另外要注意边界值，不能多算一步也不能少算一步。 这几年的初赛题一般是四道阅读程序题，每道题8分总分为32，因此阅读程序题最能拉开分差。 {1.1996年 初中组基础题 第4题}{写出程序运行后变量X的值} x1:=3;x2:=8; for i:=1 to 5 do begin x:=(x1+x2)*2; x1:=x2;x2:=x; end; writeln(x=,x); {2.1996年 初中组第5题 高中组第3题}{写出程序段运行后数组元素a1,a2...,a11的值} a[1]:=1;a[2]:=1;k:=1; repeat a[k+2]:=1; for i:=k downto 2 do a[i]:=a[i]+a[i-1]; k:=k+1; until k=10; {3.1998年 写程序运行结果 初中组第1题 高中组第1题} program exp1(input,output); var i,s,nax:integer; a:array[1..10] of integer; begin for i:=1 to 10 do read(a[i]); max:=a[1];s:=a[1]; for i:=2 to 10 do begin if s0 then s:=0; s:=s+a[i]; 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= } {4.1998年 初中组写程序运行结果 第2题} program exp2(input,output}; const n=5; var i,j,k:integer; a:array[1..2*n,1..2*n] of integer; begin k:=1; for i:=1 to 2*n-1 do if i=n then if odd(i) then for j:=i downto 1 do begin a[i-j+1,j]:=k;k:=k+1 end else for j:=1 to i do begin a[i-j+1,j]:=k;k:=k+1; end else if odd(i) then for j:=n downto i-n+1 do begin a[i-j+1,j]:=k;k:=k+1 end else for j:=i-n+1 to n do begin a[i-j+1,j]:=k;k:=k+1; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; end. {5.1998年 初中组写程序运行结果第3题 高中组第2题} program exp3(input,output); const n=10; var s,i:integer; function co(i:integer):integer; var j1,s1:integer; begin s1:=n; for j1:=(n-1) downto (n-i+1) do s1:=s1*j1 div (n-j1+1); co:=s1; end; begin s:=n+1; for i:=2 to n do s:=s+co(i); writeln(s=,s); end. {6.1998年 初中组写程序运行结果第4题} program exp4(input,output); const n=3; var i,j,s,x:integer; p:array[0..n+1] of integer; g:array[0..100] of integer; begin for i:=0 to 100 do g[i]:=0; p[0]:=0;p[n+1]:=100;