("Кости") Играющий называет число в диапазоне от 2 до 12 и ставку, которую он делает в этот ход. Программа с помощью RANDOM ( ) дважды выбирает числа от 1 до 6 ("бросает кубик"). Если сумма выпавших цифр меньше семи и играющий задумал число меньше семи, он выигрывает сделанную ставку, если сумма выпавших цифр больше 7 и играющий задумал число больше семи, он так же выигрывает сделанную ставку. Если играющий угадал сумму цифр, он получает в 4 раза больше очков, чем сделанная ставка. Ставка проиграна, если не имеет место ни одна из описанных ситуаций. В начальный момент у играющего 100 очков.
Вопрос Программа на дельфи
- Автор темы Bortony
- Дата начала
ООООчень приблизительно тебе описываю суть, думаю, ты сам сможешь это собрать в программу а1, а2 и stavka вводятся в Edit-ы, например. a1 - число при первом броске кубика а2 - число при втором броске кубика stavka - число, задуманное пользователем а1 и а2 считываешь с эдитов, кидаешь кнопку, по нажатию на нее суммируешь в переменную sum, не забывая о переводе переменных из одного типа в другой:: sum:= а1+а2 - сумма в двух бросках переменная points – для записи результата игры points:=100; дальше условия: if (sum < 7 and stavka <7) or (sum > 7 и stavka > 7) then points:=points+1; (то есть ставка выиграна) if sum = stavka then points:= points +stavka*4 else points:= points -1; (ставка увеличивается в 4 раза или окончательно проиграна) Проверяем, не достигло ли число баллов 0: If points=0 then showmessage(‘Игра проиграна’);