Народ памогите нужно такое условие.
Есть 3 пременных генерирующияся случайным образом от 0 до 1.Нужно чтобы только одна переменная была равна 1 а все остальные 0.
Нужно условие |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Нужно условие |
Mr.Dmitry |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 46 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
Народ памогите нужно такое условие.
Есть 3 пременных генерирующияся случайным образом от 0 до 1.Нужно чтобы только одна переменная была равна 1 а все остальные 0. |
Бравый генерал |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 39 Пол: Мужской Реальное имя: Василий Репутация: -2 |
Объедини эти три переменных в массив:
a: Array [0..2] of Byte; И задать их значения так, как ты хочешь, можно таким образом: a[Random(3)]:=1; Пояснение: только одна из этих трех переменных - причем случайная - станет равной единице, остальные останутся по умолчанию нулями. Если же по умолчанию нулями они не являются, то перед тем присваиванием напиши: fillchar(a,SizeOf(a),0); P.S. Ты наверно хотел сказать: "Народ памогите, есть такое вот условие, нужно решение"? Я правильно тебя понял в этот раз? |
Текстовая версия | 15.05.2024 9:23 |