//模拟六种排弹情形
AnsiString Array[] = {"000011",
"000110",
"001100",
"011000",
"110000",
"100001",
};
AnsiString lShoot;
int a= 0, b=0, c=0; //a为第一枪无子弹次数，b为不重新转动，连续射击仍无子弹的次数，c为第一次无子弹，第二次重转后仍无子弹的次数
Randomize();
for(int i=0; i<10000; i++)//一万次测试
{
//模拟一次射击
lShoot = RandomFrom(Array, 5);
if(lShoot[1] == '0')
{
//第一枪无子弹的情况（概率在2/3，与计算数据相符)
a++;
if(lShoot[2] == '0')
{
//如果不重新轮动，下一枪仍无子弹的情况（概率为3/4，累计为2/3 * 3/4 = 1/2，与计算数据相符
b++;
}
//重转
lShoot = RandomFrom(Array, 5);
if(lShoot[1]=='0')
{
//重轮后无子弹的情况（概率仍为2/3,累计为2/3 * 2/3 = 4/9,与计算数据相符）
c++;
}
}
}
mmo1->Lines->Add(AnsiString(a) + "," + AnsiString(b)+ "," + AnsiString(c));



数据如下：
66573,49944,44562
66522,49960,44279
66564,50000,44413
66634,50082,44366
66623,49946,44242
66676,50123,44346
66606,50048,44311
66471,49823,44261
66630,49952,44227
66646,49986,44465
66757,49911,44357
66512,50058,44222
66596,49818,44563
66480,49897,44282
66570,49960,44265
66651,49815,44316
66463,49883,44077
66616,49921,44499
66690,50109,44546
66832,50154,44666
66721,50197,44623
66757,50027,44452
66651,49908,44586
66615,49943,44538
66774,50060,44336
66730,49904,44238
66669,50158,44582