pascal 實現permute

假定輸入一個數字n，定義n 爲從1開始的數組的長度（0<n<10），對該數組進行徹底亂序排序，要求輸出全部該數組的亂序排序而且沒有重複。數組 先給出程序：函數 program YS; var a,b:array[0..26] of integer;     j,k,n:integer; procedure permute(i:integer); var x,y:integer; begin x:=

>>阅读原文<<