递归算法c语言 pascal语言用递归实现全排列?
浏览量:1087
时间:2021-03-14 07:17:30
作者:admin
pascal语言用递归实现全排列?
Const max=9var m,N:长a:数组[1。。Max]long procedure work(J,K:long)//J是枚举的第J位,K是最后一个枚举值,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是可以证明的在数学上。例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
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。