题目描述:
输出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.
每个题库的要求都不太一样,要按具体的要求去做!!!