Форум: "Игры";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

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;
вот и все лото.

---

← →
TButton ©   (2004-02-27 17:31) [2]

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

---

Страницы: 1 вся ветка

Форум: "Игры";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c