题目描述: 输出P(n,m)的排列(n,m<=10)。
输入输出样例 输入样例#1： 3 2 输出样例#1： 1 2 1 3 2 1 2 3 3 1 3 2
程序如下: 1. const 2. max=9; //按各个题库的数据要求而定 3. var 4. b:array[0..max]of boolean； 5. a:array[0..max]of longint; 6. n,k,m:shortint; 7. procedure px; 8. var 9. i,j:integer; 10. begin 11. if k>n then //如果符合，则打印。 12. begin 13. for i:=1 to n do write(a[i],’ ‘); 14. writeln; 15. exit; 16. end 17. else 18. for i:=1 to m do 19. begin 20. if not b[i] then 21. begin 22. b[i]:=true; 23. a[k]:=i; 24. inc(k); 25. px; 26. dec(k); 27. b[i]:=false; 28. end; 29. end; 30. end; 31. begin 32. readln(m,n); 33. k:=1; 34. px; 35. end.
每个题库的要求都不太一样，要按具体的要求去做！！！
转载请注明原文地址: https://ju.6miu.com/read-968683.html
