[NOIP2011] 计算系数（二项式定理）

题目描述

给定一个多项式(by+ax)^k，请求出多项式展开后x^n*y^m 项的系数。

输入输出格式

输入格式：

输入文件名为factor.in。

共一行，包含5 个整数，分别为 a ，b ，k ，n ，m，每两个整数之间用一个空格隔开。

输出格式：

输出共1 行，包含一个整数，表示所求的系数，这个系数可能很大，输出对10007 取模后的结果。

输入输出样例

输入样例#1：

1 1 3 1 2

输出样例#1：

3

说明

【数据范围】

对于30% 的数据，有 0 ≤k ≤10 ；

对于50% 的数据，有 a = 1，b = 1；

对于100%的数据，有 0 ≤k ≤1,000，0≤n, m ≤k ，且n + m = k ，0 ≤a ，b ≤1,000,000。

noip2011提高组day2第1题

• 数论，广义二项式定理
• 

var 
    a,b,k,n,m,i,j        :longint;
    f                    :array[0..1010,0..1010] of longint;
    
function power(a,b:longint):int64;
var 
    t,s                    :int64;
begin
    t:=1;
    s:=a;
    while b>0 do
    begin
        if b mod 2=1 then t:=(t*s) mod 10007;
        s:=(s*s) mod 10007;
        b:=b div 2;
    end;
    exit(t);
end;

begin
    read(a,b,k,n,m);
    for j:=1 to k+1 do
    for i:=1 to j do
    begin
        if i=j then f[i,j]:=1 else
            f[i,j]:=(f[i,j-1]+f[i-1,j-1]) mod 10007;
    end;
    writeln(((power(a,n) mod 10007)*((power(b,m) mod 10007))*(f[m+1,k+1])) mod 10007);
end.