摘要：
输入：31 1 3输出：11 11 1 31 33Delphi代码：unit unrepeat_combination;const max_n = 10;var n, m: integer; rcd, num, used: array[0..max_n] of integer;procedure unrepeat_combination(index, p: integer);var i: integer;begin if index > 0 then begin for i := 0 to index - 2 do Write(rcd[i], ' '); wr... 阅读全文
摘要：
输入:31 2 3输出:11 21 2 31 322 33Delphi代码：program full_combination;const max_n = 10;var n: integer; rcd, num: array[0..max_n] of integer;procedure full_combination(index, p: integer);var i: integer;begin //每次都输出 if index > 0 then begin for i := 0 to index - 2 do Write(rcd[i], ' '); wri... 阅读全文
摘要：
输入：4 31 2 3 4输出：1 2 31 2 41 3 42 3 4Delphi代码：program select_combination;const max_n = 10;var n, m: integer; rcd, num: array[0..max_n] of integer;procedure select_combination(index, p: integer);var i: integer;begin if index = m then begin for i := 0 to m - 2 do Write(rcd[i], ' '); wr... 阅读全文
摘要：
输入：31 1 2输出:1 1 21 2 12 1 1Delphi代码：program unrepeat_permutation;//不重复排列const max_n = 10;var n, m: integer; rcd, used, num: array[0..max_n] of integer;procedure unrepeat_permutation(index: integer);var i: integer;begin if index = n then begin for i := 0 to n - 2 do Write(rcd[i], ' '); ... 阅读全文
摘要：
输入：31 2 3输出：1 2 31 3 22 1 32 3 13 1 23 2 1Delphi代码：program full_permutation;//全排列const max_n = 10;var n: integer; rcd, used, num: array[0..max_n] of integer;procedure full_permutation(index: integer);var i: integer;begin if index = n then begin for i := 0 to n - 2 do Write(rcd[i], ' ')... 阅读全文
摘要：
输入样例：3 2输出样例：0 0 00 0 10 1 00 1 11 0 01 0 11 1 01 1 1Delphi 代码：program loop_permutation;//类循环排列const max_n = 10;var n,m: integer; rcd: array[0..max_n] of integer;procedure loop_permutation(index: integer);var i: integer;begin if index=n then begin for i := 0 to index - 1 do begin wr... 阅读全文