Консультация № 109741
16.11.2007, 19:26
0.00 руб.
0 1 1
Пожайлуста помогите решить задачу на паскале! Спасибо зарание!
Игра в кости ""Крепс" Предпологает, что игрок бросает две кости. Каждая кость имеет две шесть граней. Эти грани помечены как 1,2,3,4,5 и 6. После бросания вычесляется сумма цифр двух верхних граний. Если сумма после первого броска равна 7 или 11, игрок выиграл. Если сумма после первого броска равна 2,3 или 12, (это называется "Крепс"), игроки проиграли (выиграл банк). Если после первого броска сумма равна 4,5,6,8,9, или 10, то эта сумма становится "очками" игрока. Чтобы выиграть, игрок должен продолжить бросать кости до тех пор, пока не выподет сумма, равная его очкам. Игрок проигрывает, если во время этих бросков ему выподает сумма 7.

Обсуждение

Неизвестный
16.11.2007, 22:16
общий
это ответ
Здравствуйте, Басаргина!
примерно так будет работать программа:
Этот код учитывает только выпадание костей и реагирование на сумму. Нужно еще дописать ведение очков игроков и добавить проверку последнего условия
randomize;
c1 := random(5)+1;
c2 := random(5)+1;
sum := c1+c2;
case sum of
7, 11: Win();
2,3,12: Loser();
else: Points();
end;
Форма ответа