[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[..,..] of longint;

 function power(a,b:longint):int64;
 var
     t,s                    :int64;
 begin
     t:=;
     s:=a;
     while b> do
     begin
         if b mod = then t:=(t*s) mod ;
         s:=(s*s) mod ;
         b:=b div ;
     end;
     exit(t);
 end;

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