作者DreamYeh (天使)
看板FCK
标题[公告] 星月盃五子棋锦标赛 抽签程式
时间Thu May 3 14:33:04 2007
==================================================================
主旨：
公开抽签系统，让大家都可以在公正数据公开後简单算出自己组别。
并了解此次比赛抽签原理。
本程式作为主办单位抽签使用，可大幅减少人工作业与板主负担，板主
仅需按一个按钮即可完成抽签事宜。
本程式可推广到任何比赛抽签使用。
==================================================================
下载点：
http://tinyurl.com/2kqw66
（感谢叶子提供空间，也徵求棋友提供其他空间）
==================================================================
原始程式码：
int Index[SumOfPeople];
AnsiString strNum = InputBox("给定乐透奖开奖数字","","0");
int Num = strNum.ToIntDef(0),index;
if(Num<1 || Num>42)
{
ShowMessage("不合法的公正数字!请检查是否为1~42的数字!");
return;
}
Label1->Caption = "公正数字为:"+AnsiString(Num);
for(index=0;index<SumOfPeople;index++) Index[index] =
(index*Num)%SumOfPeople;
AnsiString AllSortName[SumOfPeople];
for(index=0;index<SumOfPeople;index++) AllSortName[Index[index]] =
AllName[index];
Memo1->Clear();
for(index=0;index<SumOfPeople;index++)
{
if(index%8==0)
{
Memo1->Lines->Append("=====================================");
Memo1->Lines->Append(GroupM[index/8]);
}
Memo1->Lines->Append(AnsiString(index)+":"+AllSortName[index]);
}
==================================================================
本程式所用时间复杂度为O(n) n为比赛人数，为线性时间，我们可以证明
程式最高效能必大於等於线性时间，足见本演算法之效能。
若对本程式有其他建议，欢迎谘询。
--
天禁魔法团於 telnet://ptt2.cc
DreamYeh2 板 特设天使魔法学院
欢迎对五子棋有兴趣朋友来参观唷!!
想了解更多天使，欢迎来 telnet://bbs.wretch.cc
P_DreamYeh 板灌水^_^
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.202.86.252