IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> покер на костях, распознавание комбинаций?
blackhard
сообщение 15.05.2008 13:49
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 151
Пол: Мужской
Реальное имя: иван

Репутация: -  0  +


Задали написать игру на delphi, мне попался покер на костях.Для хранения результатов броска костей я сделал массив в который после каждого броска собственно помещаются значения выпавших костей(например получается такой массив (2,5,5,2,6)).Вопрос такой как потом эти результаты проанализировать и узнать какая там комбинация(в преведенном выше примере например комбинация "две пары").Нужно сделать чтото типо иерархии команд?от самой простой("покер"когда все кости одинаковые)до самой сложной(ничего)?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Michael_Rybak
сообщение 15.05.2008 14:18
Сообщение #2


Michael_Rybak
*****

Группа: Модераторы
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


в первую очередь - отсортировать массив по возрастанию.

а дальше просто куча if'ов и else'ов. удобно будет заранее посчитать значения вроде "количество пар" и "количество троек".
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
blackhard
сообщение 15.05.2008 15:31
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 151
Пол: Мужской
Реальное имя: иван

Репутация: -  0  +


Цитата(Michael_Rybak @ 15.05.2008 15:18) *

в первую очередь - отсортировать массив по возрастанию.

Блин вот чего мне не хватало.Спасибо буду пробовать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
blackhard
сообщение 15.05.2008 15:31
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 151
Пол: Мужской
Реальное имя: иван

Репутация: -  0  +


Цитата(Michael_Rybak @ 15.05.2008 15:18) *

в первую очередь - отсортировать массив по возрастанию.

Блин вот чего мне не хватало.Спасибо буду пробовать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.04.2024 14:07
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"