#2 lyyztt67@2008-07-05 02:22:00
2144
回复
删除
状态: Accepted
测评机: Virmain[1]
得分: 100分
提交日期: 2008-7-5 17:15:00
有效耗时: 该状态没有记录
测试结果1: 测试结果正确
测试结果2: 测试结果正确
测试结果3: 测试结果正确
测试结果4: 测试结果正确
测试结果5: 测试结果正确
program haocc;
var n,m,i,j,k:integer; ans:qword;
f:array[1..50,0..5]of qword;
begin
fillchar(f,sizeof(f),0);
readln(n,m);
f[1,0]:=1; f[1,1]:=1;
for i:=2 to n do
begin
for k:=0 to m-1 do
inc(f[i,0],f[i-1,k]);
for j:=1 to m-1 do
f[i,j]:=f[i-1,j-1];
end;
ans:=0;
for i:=0 to m-1 do
inc(ans,f[n,i]);
writeln(ans);
end.
(递推,因为数据较大,建议用QWORD类型,避免高精度.)
f[i,j]=f[i-1,j-1] (1<=j<=m-1, f[i,j]表示放到第I个坑,包括第I个坑,与之相连有放核料的坑个数为J)
f[i,0]=f[i-1,0]+f[i-1,1]+....+f[i-1,m-1]
最后结果 ans=f[n,0]+f[n,1]+f[n,2]+....+f[n,m-1]