sozdaniie i proverka

← →
spogi (2004-02-27 00:24) [0]

Priver vsem!
Kto v kurse ili xotya bi znaet otkuda mojno vzyat takoy vesh:
- po teleku pokazivayut igru Loto... primerno, kajdiy celovek imeet svoy bilet, tam cifri, popadayut cifri i bilet viiqrivaet (ne vse konecno)... kakie primeri po sozdaniyu takoy programmi mojete pokazat??? ocen nujen...

← →
Defunct © (2004-02-27 02:08) [1]

Просто подумайте как такое реализовать.

Пусть будет X из N шаров.

Ваша задача отобрать случайным образом X шаров.
Создаем массивы

TotalBalls : Array[1..N] of Boolean; // будет показывать имеется ли шар с таким номером или уже нет.
RandomBalls : Array[1..X] of Byte; // Будет накапливать результат
Ну а дальше все просто, говорим, что в исходном состоянии присутствуют все N шаров:

For I:=1 to N Do TotalBalls[i]:=True;

Выбираем X случайных шаров:

For I:=1 to X Do Begin PreferredBall := Random(N); // Выбираем случайный шар While Not TotalBalls[PrefferedBall] Do // Пока шара с таким номером нет PreferredBall := Random(N); // выбираем случйный шар TotalBalls[PrefferedBall] := False; // Забрали шар RandomBalls[i] := PrefferedBall; // добавили к результату End;
вот и все лото.

имхо вопрос не про шары был, а про билеты...

sozdaniie i proverka Найти похожие ветки