noip讲义4-递推法.ppt(小学程度).pptVIP

Begin Readln(n); While n0 do //采用倒推思想求最大的奇数因数和 Begin If odd(n) then Ans:=ans+ (1+n)*(n div 2+1)div 2 else Ans:=ans+(n)*(n div 2)div 2; N:=n div 2; End; Writeln(ans); End. * 分析 :设第n次传球后，球又回到甲手中的传球方式有an种。可以想象前n-1次传球，如果每一次传球都任选其他三人中的一人进行接球，则每次传球都有3种可能，由乘法原理，共有 3×3×……×3=3 n-1 种传球方法。这些传球方式可以分为两类: 一类是第n-1次恰好传到甲手中，这有an-1种传法，它们不符合要求，因为这样第n次无法再把球传给甲； 另一类是第n-1次传球，球不在甲手中，第n次持球人再将球传给甲，有an种传法。 根据加法原理，有an-1+an=3 n-1 。 由于甲是发球者，一次传球后球又回到甲手中的传球方式是不存在的，所以a1=0。 利用递推关系可以得到 a2=3-0=3， a3=3×3-3=6， a4=3×3×3-6=21， a5=3×3×3×3-21=60。 这说明经过5次传球后，球仍回到甲手中的传球方法有60种。 var a:array[1..100] of longint; n,m,i,j:longint; begin readln(n,m); a[1]:=0; j:=1; for i:= 2 to m do begin j:=j*(n-1); {先求出(n-1)i-1} a[i]:=j-a[i-1]; end; writeln(a[m]); end. var {加入高精度运算} a:array[1..100,1..100] of integer; s:array[1..100] of integer; i,j,t,k,n,m:longint; begin readln(n,m); a[1,100]:=0 ; s[100]:=1; for i:= 2 to m do begin for j:= 100 downto 1 do s[j]:=s[j]*(n-1); for j:= 100 downto 1 do if s[j]9 then begin s[j-1]:=s[j-1]+s[j] div 10; s[j]:= s[j] mod 10; end; for j:= 100 downto 1 do a[i,j]:=s[j]-a[i-1,j]; for j:= 100 downto 1 do if a[i,j]0 then begin a[i,j-1]:=a[i,j-1]-1; a[i,j]:=a[i,j]+10; end; end; j:=1; while a[m,j]=0 do j:=j+1; for i:= j to 100 do write(a[m,i]); end. 凸多边形划分 在一个凸多边形中，通过若干条互不相交的对角线，把这个凸多边形剖分成了若干个三角形。现在的任务是根据输入的凸多边形的边数，求不同剖分的方案数Cn。比如当n=5时，有如下5种不同的方案，所以C5=5。 输入文件14.in：一个正整数，表示凸多边形的边数。(n=21) 输出文件14.out：一个正整数，表示方案总数。 如图所示，我们以p1pn这条边为基准边，再找pk来构成三角形，