04 2012 档案
摘要:测试代码如下: class Program { static void Main(string[] args) { string strText = "Hello from all the guys at Wrox Press. "; strText += "We do hope you enjoy this book as much as we enjoyed writing it."; Stopwatch time1 = new Stopwatch(); time1.Start(); for (int j = 0; j < ...
阅读全文
摘要:利用委托可以查找满足自定义条件的数值:测试代码:class Program { static void Main(string[] args) { List<int> list = new List<int>(); list.Add(1); list.Add(2); list.Add(3); list.Add(2); List<int> result = list.FindAll(Even); foreach (int number in result) { Console.WriteL...
阅读全文
摘要:输入: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...
阅读全文