1樓：123456我i擬
const mix=21; //題意如此，暫且限定到這。
varn,m,d,r,i,z,c:integer;
q:array[0..mix] of 0..1;
a:array[0..mix] of integer;
procedure print;
var i,j:integer;
begin
for i:=1 to r do
write(a[i]:3); // 題意如此往往容易忽視.
writeln;
end;
function panding(l,m:integer):boolean;
vari,j:integer;
begin
panding:=true;
for i:=1 to m-1 do
begin
if a[i]=l then begin panding:=false; exit; end;
if a[i]>l then begin panding:=false; exit; end;
end;
end;
procedure try (k:integer);
var i,j,l:integer;
begin
for j:=a[k-1] （1）to n doif (panding(j,k))and (q[j]=0) thenbegin
a[k]:=j;
q[j]:=1;
if k=r then begin print endelse try(k+1);
q[j]:=0;
end;
end;
begin
assign(input,'compage.in');
reset(input);
assign(output,'compage.out');
rewrite(output);
read(n,r);
if (n=0) or (r=0) thenhalt; //注意邊界.
for i:=1 to n do
begin
q[i]:=0;
a[i]:=0;
end;
a[0]:=1;
try(1);
close(input);
close(output);
end.
2樓：
啊哈，此乃全排列是也！遞推遞迴都可以
高中排列與組合問題，緊急，高中排列與組合問題！
任取2位代表都要握一次手，那麼即求20個人中取2個人的取法數，即c 20,2 20 19 2 190 一位數 a 3,1 3個 兩位數 a 3,2 3 2 6個 三位數 a 3,3 3 2 1 6個 共3 6 6 15個 1 首先第一個人跟剩下的19個人握手，握了19次，沒他什麼事兒了，他可以走了 ...
c語言如何實現任意數排列組合新手求助急
求排列組合沒有簡單方法。方法只有一個，列舉。有幾個位置需要列舉，就需要幾個迴圈。如果迴圈數量太多，可以用函式遞迴來列舉。例程 include int main 第一個位置int b 4 第二個位置int c 4 第三個位置int i,j,k for i 0 i 4 i for j 0 j 4 j f...
誰能幫我詳細總結一下高中數學 解排列與組合問題的常用方法急
2 集合表示方法 列舉法 描述法 韋恩圖 數軸法 3 集合的運算 a b c a b a c cu a b cua cub cu a b cua cub 4 集合的性質 n元集合的子集數 2n 真子集數 2n 1 非空真子集數 2n 2 高中數學概念總結 一 函式 1 若集合a中有n 個元素，則集合...