全国青少年信息学奥林匹克联赛阅读程序训练及答案.ppt

阅读程序写结果专题三分析,练习1,vari,s,max:integer;a：array1.10ofinteger;beginfori:=1to10doread(ai);max:=a1；s:=a1;fori：=2to10dobeginifsmaxthenmax：=send;writeln(max=,MAX)end.输入：89-124651115-289输出：max=,77,输入：23-6-1123-946输出：max=,10,本质是求一个n长的整数数列的连续子序列的和最大！,练习2,constn=10;vars,i:integer;functionco(i1:integer):integer;varj1,s1:integer;begins1:=n;forj1:=(n-1)downto(n-i1+1)dos1:=s1*j1div(n-j1+1);co:=s1end;begins:=n+1;fori:=2tondos:=s+co(i);writeln(s=,s);end.输出：_,1024,co(2),s1:=10*9/2,co(3),s1:=10*9/2*8/3,co(4),s1:=10*9/2*8/3*7/4,S1=45,S1=120,S1=210,co(5),S1:=,10*9*8*7*6,2*3*4*5,S1=252,co(6),S1:=,10*9*8*7*6*5,2*3*4*5*6,S1=210,co(7),S1:=,10*9*8*7*6*5*4,2*3*4*5*6*7,S1=120,co(8),S1:=,10*9*8*7*6*5*4*3,2*3*4*5*6*7*8,S1=45,co(9),S1:=,10*9*8*7*6*5*4*3*2,2*3*4*5*6*7*8*9,S1=10,co(10),S1:=,10*9*8*7*6*5*4*3*2*1,2*3*4*5*6*7*8*9*10,S1=1,组合数定义：从n个不同元素中取出r(rn)个元素的所有组合的个数。,例：从A、B、C、D、E五个球中任取2个有多少种方案？,练习3,vari,j,s:integer;b:array0.5ofinteger;begins:=1;fori:=1to5dobi:=i;j:=1;whilej0dobeginj:=5;while(j0)and(bj=10+j-5)doj:=j-1;ifj0thenbegins:=s+1;bj:=bj+1;fori:=j+1to5dobi:=bj+i-jend;end;writeln(s=,s);end.输出：_,252,10,9,8,7,6,6,7,8,9,10,5,6,7,8,9,10,fori:=0tokdoai:=i;whilea0dobeginj:=k;whileaj=n-(k-j)doj:=j-1；aj:=aj+1;fori:=j+1tokdoai:=ai-1+1;end;,最大值4-(3-j)1234,3,2,1,3,4,0,1,2,第二种枚举(利用while循环产生排列串),例6选数（NOIP2002初中组复赛第二题）问题描述：已知n（1=n=20）个整数x1,x2,xn（1=xi=5000000），以及一个整数k（k0)and(bj=10+j-5)doj:=j-1;ifj0thenbegins:=s+1;bj:=bj+1;fori:=j+1to5dobi:=bj+i-jend;end;writeln(s=,s);end.输出：_,252,10,9,8,7,6,6,7,8,9,10,5,6,7,8,9,10,从10个不同的球中任取5个有多少种方案？,练习4,vari,j,n:longint;procedurem(s:longint);vari:longint;beginfori:=1tosdiv2dom(i);j:=j+1;end;beginreadln(n);m(n);writeln(j);end.输入：8输出：_,m(8),1,2,3,4,m(1)j=1,m(2),m(1)j=2,j=3,m(3),m(1)j=4,j=5,m(4),m(1),m(1)j=6,m(2),m(1)j=7,j=8,j=9,j=10,练习5,constn=4;typese=array1.n*2ofchar;vari,j,i1,j1,k,s,t,s1,l,swap:integer;temp:char;a:se;beginfori:=1ton*2doread(ai);readln;s:=0;t:=0;fori:=1ton*2doifai=1thens:=s+1elseifai=0thent:=t+1;if(sn)or(tn)thenwriteln(error)elsebeginend;end.输入：10101100输出：_,s1:=0;fori:=1to2*n-1doifaiai+1thens1:=s1+1;writeln(jamp=,s1);swap:=0;fori:=1to2*n-1doforj:=i+1to2*ndoifaiajthenbegintemp:=ai;ai:=aj;aj:=temp;s:=0;forl:=1to2*n-1doifalal+1thens:=s+1;ifsswapthenbeginswap:=s;i1:=i;j1:=j;end;temp:=ai;ai:=aj;aj:=tempend;ifswap0thenwriteln(maxswap=,swap-s1,i=,i1,j=,j1),输入：10101100,jamp=5,10101010,maxswap=2i=6j=7,练习6,vara，t：string；i，j：integer；begina：=morning；j：=1；fori：=2to7doif(ajaj+1thenbeginaj:=aj+aj+1;aj+1:=aj-aj+1;aj:=aj-aj+1;end;end;j:=1;while(aj=0)and(j0)dobeginj:=j-1;aj:=smodq;s:=sdivq;end;fori:=jto20dowrite(ai);readln;end.输入:730518输出:,1065,2051,1,5,0,3,练习10,vara,x,y,ok1,ok2:integ