有誰會用遞歸做全排列??？proc（int step）函數(shù)用于實現(xiàn)遞歸的主過程，step參數(shù)用于指示當(dāng)前proc函數(shù)中放置的置換數(shù)。使用的數(shù)組用于標(biāo)記某個數(shù)字是否出現(xiàn)在上一次完全置換中。如果它出現(xiàn)了，就

有誰會用遞歸做全排列??？

proc（int step）函數(shù)用于實現(xiàn)遞歸的主過程，step參數(shù)用于指示當(dāng)前proc函數(shù)中放置的置換數(shù)。使用的數(shù)組用于標(biāo)記某個數(shù)字是否出現(xiàn)在上一次完全置換中。如果它出現(xiàn)了，就不能再完全排列了。如果它沒有出現(xiàn)，它將被放入完全排列中，并用所用的數(shù)組進行標(biāo)記。并在回溯過程中清除已用標(biāo)志。結(jié)果數(shù)組用于保存n個完全置換。如果proc函數(shù)已經(jīng)完成了n個數(shù)字的輸入，那么print函數(shù)將被調(diào)用以打印出完整的排列。

用遞歸算法編n!的全排列？

Void genpermutation（int k，int n，int*perm）{

if（k>=n）{

for（int i=0，i

cout]}

]cout

}

]for（int i=k i

swap（perm[i]，perm[k]）

genpermutation（k 1，n，perm）

swap（perm[i]，perm[k]）

pascal語言用遞歸實現(xiàn)全排列？

const max=9var m，n:long a:數(shù)組[1。。Max]of long procedure work（J，K:long）//J是枚舉中的數(shù)字J，K表示最后一個枚舉值var I:long begin如果J=m1，那么begin For I:=1 to M-1 do write（a[I]，“）//輸出writeln（a[M]）end else for I:=k1 to N-mj do//第I個范圍使得k1易于理解并且N-mj可以用數(shù)學(xué)方法證明。例8 3，那么第一個最大范圍是1~6，第二個最大范圍是2~7，3~8，所以開始a[J]：=I work（J 1，I）//回溯end end begin readln（n，m）work（1，0）end