资源描述：
《NOIP初赛练习之三(阅读程序写出程序运行结果)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、NOIP初赛练习之三（阅读程序写出程序运行结果）前言：如何做阅读程序题阅读程序题是得分的关键，因为不是让你上机去运行程序，所以要一步步地读程序，记录相关变量的值，最好以画表的形式来记录相关变量值的变化情况。因为程序的运行结果只有输出语句才有输出，所以只写出输出语句的结果。有时要找出规律才能写出结果，特别是循环次数多的情况，另外要注意边界值，不能多算一步也不能少算一步。这几年的初赛题一般是四道阅读程序题，每道题8分总分为32，因此阅读程序题最能拉开分差。{1.1996年初中组基础题第4题}{写出程序运行后变量X的值}x1:=3;
2、x2:=8;fori:=1to5dobeginx:=(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;repeata[k+2]:=1;fori:=kdownto2doa[i]:=a[i]+a[i-1];k:=k+1;untilk>=10;{3.1998年写程序运行结果初中组第1题高中组第1题}programexp1(input,output);vari,
3、s,nax:integer;a:array[1..10]ofinteger;beginfori:=1to10doread(a[i]);max:=a[1];s:=a[1];fori:=2to10dobeginifs<0thens:=0;s:=s+a[i];ifs>maxthenmax:=s;end;writeln('max=',max);end.{初中输入：-213-1478-1-18246}{输出：max=}{高中输入：89-124651115-289}{输出：max=}{4.1998年初中组写程序运行结果第2题}progra
4、mexp2(input,output};constn=5;vari,j,k:integer;a:array[1..2*n,1..2*n]ofinteger;begink:=1;fori:=1to2*n-1doifi<=nthenifodd(i)thenforj:=idownto1dobegina[i-j+1,j]:=k;k:=k+1endelseforj:=1toidobegina[i-j+1,j]:=k;k:=k+1;endelseifodd(i)thenforj:=ndowntoi-n+1dobegina[i-j+1,j]
5、:=k;k:=k+1endelseforj:=i-n+1tondobegina[i-j+1,j]:=k;k:=k+1;end;fori:=1tondobeginforj:=1tondowrite(a[i,j]:3);writeln;end;end.{5.1998年初中组写程序运行结果第3题高中组第2题}programexp3(input,output);constn=10;vars,i:integer;functionco(i:integer):integer;varj1,s1:integer;begins1:=n;forj1
6、:=(n-1)downto(n-i+1)dos1:=s1*j1div(n-j1+1);co:=s1;end;begins:=n+1;fori:=2tondos:=s+co(i);writeln('s=',s);end.{6.1998年初中组写程序运行结果第4题}programexp4(input,output);constn=3;vari,j,s,x:integer;p:array[0..n+1]ofinteger;g:array[0..100]ofinteger;beginfori:=0to100dog[i]:=0;p[0]
7、:=0;p[n+1]:=100;fori:=1tondoread(p[i]);readln;fori:=0tondoforj:=i+1ton+1dog[abs(p[j]-p[i])]:=g[abs(p[j]-p[i])]+1;s:=0;fori:=0to100doifg[i]>0thenbeginwrite(i:4);s:=s+1;end;writeln;writeln('s=',s);writeln('inputdata:');readln(x);writeln(g[x]);end.{输入：102065}{inputdata
8、:10}{输出：}{7.1998年高中组第3题}programexp3(input,output);vari,j:integer;b:array[0..5]ofinteger;begins:=1;fori:=1to5fob[i]:=i;j:=1;whilej>0dobegin
