问问题。。。

yangff

★问题描述:

小T很喜欢数学,可是现在一个难题难倒了他.现在在他面前有n个彩色的大小相同的球,他从中任意选取了r个彩球出来,他希望知道在这种情况下,他可能能取到几种本质不同的组合。

所谓的本质不同,既在不考虑自身排列的前提下,两种情况的彩球不完全相同。若A,B,C,D表示4个球的颜色,现在从中选取3个球那么ABC和CAB被认为是本质相同的,而ABC,ACD则被认为是本质不同的.

为了简化问题,小T把不同的颜色都做了唯一的编号,例如他把红色编号为1，蓝色编号为2…

★数据输入：

输入数据的第一行为一个整数N，表示小T面前有N个彩球(1≤ N ≤50)。第二行有N个整数C1,…,Cn,表示这N个彩球的颜色编号(1<=Ci<=N,某两个彩球的编号可能相同)。最后一行一个正整数R,代表小T希望选取的彩球的个数。(0<=R<=N)。

写成
组合公式怎么写？

yangff

我是说。。。
快交了 。。。。。。。

tommay

我是说，很难。。。

yangff

所谓的本质不同,既在不考虑自身排列的前提下,两种情况的彩球不完全相同。若A,B,C,D表示4个球的颜色,现在从中选取3个球那么ABC和CAB被认为是本质相同的,而ABC,ACD则被认为是本质不同的.

为了简化问题,小T把不同的颜色都做了唯一的编号,例如他把红色编号为1，蓝色编号为2…


还有
(1<=Ci<=N,某两个彩球的编号可能相同)。
则
彩球
1 2 2 3
一共四个
但 1 2 2 3 = 1 2 2 3
     1 2 3 4   1 3 2 4

yangff

如果这样。。。
var n,n1,j,pp:qword;
    i:integer;
    k:array[1..100] of boolean;
function jc(k:qword):qword;
var i:word;
    p:qword;
begin
  p:=1;
  for i:=1 to k do  p:=p*i;
  exit(p);
end;
begin
  readln(n);
  n1:=n;
  for i := 1 to n do begin read(j); if k[j]=true then dec(n1);k[j]:=false;end;
  readln(j);
//  if n=1 then begin writeln(1);halt; end;
  pp:=jc(n1) div (jc(j)*jc(n1-j));
  writeln(pp);
end.
是不对的