04 2012 档案

摘要: 阅读全文
posted @ 2012-04-21 22:12 wouldguan 阅读(306) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2012-04-21 21:23 wouldguan 阅读(184) 评论(0) 推荐(0) 编辑
摘要:测试代码如下: 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 < ... 阅读全文
posted @ 2012-04-21 20:46 wouldguan 阅读(271) 评论(0) 推荐(0) 编辑
摘要:利用委托可以查找满足自定义条件的数值:测试代码: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... 阅读全文
posted @ 2012-04-08 14:43 wouldguan 阅读(800) 评论(0) 推荐(0) 编辑
摘要:输入: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... 阅读全文
posted @ 2012-04-06 20:22 wouldguan 阅读(431) 评论(0) 推荐(0) 编辑
摘要:输入: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... 阅读全文
posted @ 2012-04-06 20:20 wouldguan 阅读(1527) 评论(0) 推荐(0) 编辑
摘要:输入: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... 阅读全文
posted @ 2012-04-06 20:15 wouldguan 阅读(497) 评论(0) 推荐(0) 编辑
摘要:输入: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], ' '); ... 阅读全文
posted @ 2012-04-06 20:12 wouldguan 阅读(424) 评论(0) 推荐(0) 编辑
摘要:输入: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], ' ')... 阅读全文
posted @ 2012-04-06 20:08 wouldguan 阅读(1834) 评论(0) 推荐(0) 编辑
摘要:输入样例: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... 阅读全文
posted @ 2012-04-06 19:52 wouldguan 阅读(340) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示