其实这道题有一种比递推更巧妙的算法,就是排列组合(其实我是小学生)。用排列组合来写的话答案应是C(n+m,n)。但为什么结果就是C(n+m,n)呢,因为从左上角必须要走n+m步才能到达右下角。而且还必须要有n步是往下走的,往下走的n步是可以任何时候走的。因此,方法数就是在n+m的步数中,挑n步的方法数(不允许重复)。也就是C(n+m,n)。
最后献上华丽丽的代码。
var
n,m,i:longint;
function C(a,b:longint):extended;//求C(n+m,n)的函数
begin
C:=1;//应赋为1
for i:=a downto b+1 do
C:=C*i/(i-n);//套用公式
exit(C);
end;
begin
read(n,m);//读入n,m
writeln(C(n+m,n):0:0);//输出C(n+m,n),注意要保留0位小数哦,因为返回的是extended(实型)。
end.