杭州交通信息网尤金妮娅.沃洛丁娜:数的划分(Pascal)
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 18:37:17
数的划分 (Pascal)
[问题描述]
将整数n分成k份，且每份不能为空，任意两分不能相同（不考虑顺序）。
例如：n=7,k=3,下面三种分法被认为是相同的。
1，1，5； 1，5，1； 5，1，1；
问有多少种不同的分法。
输入：n,k (6<n≤200,2≤k≤6)
输出：一个整数，即不同的分法。
[样例]：
输入：7 3
输出：4
[说明]：（此部分不用输出）
样例中的4种分法为：1,1,5; 1,2,4; 1,3,3; 2,2,3;
[问题描述]
将整数n分成k份，且每份不能为空，任意两分不能相同（不考虑顺序）。
例如：n=7,k=3,下面三种分法被认为是相同的。
1，1，5； 1，5，1； 5，1，1；
问有多少种不同的分法。
输入：n,k (6<n≤200,2≤k≤6)
输出：一个整数，即不同的分法。
[样例]：
输入：7 3
输出：4
[说明]：（此部分不用输出）
样例中的4种分法为：1,1,5; 1,2,4; 1,3,3; 2,2,3;
这是我的源程
program zsfj;
const maxn=200;
var a:array[1..maxn,1..6,1..maxn]of longint;n,i,j,k,l,t,re:integer;
begin
readln(n,re);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
a[i,1,i]:=1;
for j:=i downto 1 do a[i,1,j]:=1;
a[i,i,1]:=1;
for j:=2 to re do
begin
t:=i div j;
for k:=1 to t do
if i-k>=j-1 then
begin
a[i,j,k]:=a[i-k,j-1,k]+a[i,j,k];
for l:=k-1 downto 1 do
a[i,j,l]:=a[i,j,l]+a[i,j,k];
end;
end;
end;
{ total:=0;
for i:=1 to n do
total:=total+a[n,i,1];
writeln(total);}
writeln(a[n,re,1]);
end.
把一个整数分为若干个整数的和，有无数种可能性。