wouldguan - 博客园

2012年4月8日

摘要：利用委托可以查找满足自定义条件的数值：测试代码：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 阅读(803) 评论(0) 推荐(0)

2012年4月6日

【递归】n个数的集合的所有子集，去掉重复的项

摘要：输入：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 阅读(440) 评论(0) 推荐(0)

【递归】n个数的集合的所有子集

摘要：输入: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 阅读(1540) 评论(0) 推荐(0)

【递归】n个数中m个数的组合

摘要：输入：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 阅读(506) 评论(0) 推荐(0)

【递归】n个数的不重复排列

摘要：输入：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 阅读(436) 评论(0) 推荐(0)

【递归】n个数的全排列

摘要：输入：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 阅读(1864) 评论(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 阅读(350) 评论(0) 推荐(0)

2012年3月30日

C# ?? 的运用

摘要：一些简单的测试代码： static int? GetNullableInt() { return null; } static string GetStringValue() { return null; } static void Main() { int? x = null; int y = x ?? -1; Console.WriteLine("y={0}", y);//y=-1 int i = GetNullableInt() ?? default(int); Cons... 阅读全文

posted @ 2012-03-30 09:27 wouldguan 阅读(179) 评论(0) 推荐(0)

2012年3月29日

小问题【7】

摘要： C# 类的成员的默认修饰符是： private类是： internalstruct是值类型 class是引用类型这是一个简单的测试：using System;using System.Collections.Generic;using System.Linq;using System.Text;namespace StructTypeDemo{ public struct TheStruct { public int x; } public class TheClass { public int x; } class StructType { public s... 阅读全文

posted @ 2012-03-29 22:12 wouldguan 阅读(145) 评论(0) 推荐(0)

2012年3月19日

【转】delphi播放背景音乐

摘要： //播放.MP3文件: uses mmsystem;//開始播放: procedure TForm1.Button1Click(Sender: TObject); begin MCISendString('OPEN e:\1.mp3 TYPE mpegvideo alias ww',nil, 0, 0); MCISendString('PLAY WW', nil, 0, 0); MCISendString('CLOSE ANIMATION', nil, 0, 0); end; //停止播放 procedure TForm1.Button2Clic 阅读全文

posted @ 2012-03-19 23:59 wouldguan 阅读(1086) 评论(0) 推荐(0)

公告