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;