pascal語(yǔ)言用遞歸實(shí)現(xiàn)全排列？Const max=9var m，N:長(zhǎng)a:數(shù)組[1。。Max]long procedure work（J，K:long）//J是枚舉的第J位，K是最后一個(gè)枚舉值，V

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

Const max=9var m，N:長(zhǎng)a:數(shù)組[1。。Max]long procedure work（J，K:long）//J是枚舉的第J位，K是最后一個(gè)枚舉值，VAR I:long begin如果J=m1則開始I:=1到M-1 do write（a[I]，”）//輸出writeln（a[M]）end否則I:=k1到N-M J do//第I位的范圍如下，K很容易理解N-M J是可以證明的在數(shù)學(xué)上。例8 3，那么第一個(gè)最大范圍是1~6，第二個(gè)最大范圍是2~7，3~8，所以開始a[J]：=I work（J 1，I）//回溯end end begin readln（n，m）work（1，0）end