Не хотелось бы огорчать г-на Коровина, но я тут исправил ошибки у себя в программе и вот результаты:
<img src="[пїЅпїЅпїЅпїЅпїЅпїЅ пїЅпїЅпїЅпїЅпїЅпїЅ пїЅпїЅпїЅ пїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅ]" border="0" alt="Название: PT.jpg
Просмотров: 327
Размер: 167.4 Кб" style="margin: 2px" />
При полной колоде я отстаю от Grey, а при не полной - почему-то опережаю, не могу объяснить этот феномен.
<img src="[пїЅпїЅпїЅпїЅпїЅпїЅ пїЅпїЅпїЅпїЅпїЅпїЅ пїЅпїЅпїЅ пїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅпїЅ]" border="0" alt="Название: PT1.jpg
Просмотров: 327
Размер: 73.0 Кб" style="margin: 2px" />
Кстати, выделил процедуру подсчета (<,>,=,нет игры) в отдельный unit для Delphi, могу отправить интересующимся. Тока надо написать help нему с параметрами всех процедур, которые можно из него вызвать. В главной процедуре на входе 5-ка карт игрока, карта дилера, отсутствующие карты - на выходе 3 числа - >, <, =. Дальше в зависимости от параметров оплаты можно все посчитать. Начал делать для русского с двойными комбинациями, но пока не доделал.
 |
Вложение:
[ссылка на файл скрыта для незарегистрированных]
|
|