くだすれDelphi(超初心者用)その48

くだすれDelphi(超初心者用)その48 at TECH

131:デフォルトの名無しさん
08/11/15 19:18:23
>>127
玉を一つ一つ取り出す随時抽選方式のビンゴ風に改造してみました。
var
Numbers: array[0..74]of Integer;
LotNumber: Integer;　当選番号
LotCount: Integer;　抽選回数 74->0

procedure BingoStart;
var
　i: Integer;
begin
　LotCount := 74;
　for i := 0 to LotCount do
　　Numbers[i] := i;
end;

procedure BingoLot;
var
　n: Integer;
　procedure SwapNumber(var a, b: Integer);
　var
　　c: Integer;
　begin
　　c := a;　a := b;　b := c;
　end;
begin
　n := Random( LotCount );
　LotNumber := Numbers[n];
　SwapNumber( Numbers[n], Numbers[LotCount] );
　Dec( LotCount );
end;

次ページ

続きを表示

1を表示