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

* * 阅读程序写结果专题三分析 练习1 var i, s, max: 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. 输入：8 9 -1 24 6 5 11 15 -28 9 输出：max= 77 输入：2 3 -6 -1 1 2 3 -9 4 6 输出：max= 10 本质是求一个n长的整数数列的连续子序列的和最大！ 练习2 const n=10; var s,i : integer; function co(i1:integer) : integer; var j1,s1 : integer; begin s1:=n; for j1:= (n-1) downto (n-i1+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. 输出：_____________ 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(r≤n)个元素的所有组合的个数。 例： 从A、B、C、D、E五个球中任取2个有多少种方案？ 5! 2!*(5-2)! =10 练习3 var i,j,s:integer; b :array[0..5] of integer; begin s:=1; for i:=1 to 5 do b[i]:=i; j:=1; while j0 do begin j:=5; while (j0) and (b[j]=10+j-5) do j:=j-1; if j0 then begin s:=s+1; b[j]:=b[j]+1; for i:=j+1 to 5 do b[i]:=b[j]+i-j end; end; writeln(s=,s); end. 输出：___________ 252 5 4 3 2 1 0 5 4 3 2 1 0 10 9 8 7 6 6 7 8 9 10 5 6 7 8 9 10 5 4 3 2 1 10 9 8 7 6 for i:=0 to k do a[i]:=i; while a[0] do begin j:=k; while a[j]=n-(k-j) do j:=j-1； a[j]:=a[j]+1; for i:=j+1 to k do a[i]