Блэкджек => "Набор карт дилером". Исходник для програмеров. [#48319]

Панель режима настройки вида форума
Что это? Выключить режим Сбросить настройки по умолчанию Установить цвет категорий на Цветное или Ч/Б

Офлайн-казино / Блэкджек / "Набор карт дилером". Исходник для програмеров.

Правила форумов

Подписка на тему Перейти вниз

Плоский

И я рискну вставить словечко... ID:48319 ответ на 48306

Вт, 28 августа 2001 00:00 («] [#] [»)

Гриша

(иконки IM) Форумы Покер.ру

В отличие от других участников дискусии в "витке" Пана я нахожусь в наиболее "облегченной"
весовой категории по отношению к программированию. Вспоминаю 1-й курс, когда на
протяжении одного семестра нам преподавали эту науку - язык BASIC. Я кстати тогда впервые
увидел мышь у компьютера - настоящее чудо!!! В принципе этот язык наверняка уже устарел.
Причем от своего друга, занимающегося программированием, я слышал, что зачастую инновация
в этой области устаревает еще не дойдя до внедрения. Однако в одном из ранних
изданий "Теория БД" (конец 80-х) Питера Гриффина, который до сих пор считается наивысшим
авторитетом в области математической базы БД, я нашел программку на том же бородатом
бэйзике, которая также решает необходимую задачку:
10 FOR I= 1 TO 10
20 IF W(I)=0 THEN 270
30 B = B*W(I)/A
40 W(I)=W(I)-1
50 T =T+I
60 IF T >16 THEN 130
70 IF (T-11)*(T-7)>0 THEN 170
80 IF (I-1)*(J-1)=0 THEN 150
90 FOR L= 1 TO K
100 IF A(L)= 1 THEN 150
110 NEXT TO L
120 GO TO 170
130 F(T)=F(T)+B
140 GO TO 240
150 F(T+10)=F(T+10)+B
160 GO TO 240
170 A=A-1
180 K=K+1
190 A(K)=I
200 GO SUB 10
210 I=A(K)
220 K=K-1
230 A=A+1
240 W(I)=W(I)+1
250 T=T-I
260 B=B*A/W(I)
270 NEXT I
280 RETURN

где А = кол-во карт в колоде,
T=J=1-ая карта дилера,
W(I)=кол-во карт номиналом I,
К=0
В=1
F(X)=вероятность достижения общего кол-ва Х очков.

Возможно в/у программа уже не актуальна, но я хочу дать Саше шанс перепроверить свои
вычисления разными способами. Саша, кстати, одно из неписанных правил счетчика - не лишать
лоха его иллюзий относительно игры, так как если вообще не останется лохов, то не останется и
БД, так как эта игра станет уже невыгодна для казино. (Если для тебя слово лох является
обидным, можешь его заменить на любой другой, удобный для твоего ЭГО термин.) В этой связи
я в принципе уже сам не вижу мотивации для дальнейшего спасения тебя от тебя же самого (хотя
мне и импонирует твой подход к благотворительности).

Список сообщений

	"Набор карт дилером". Исходник для програмеров. От: Pan Votruba вкл Вт, 28 августа 2001 00:00
	Сорри за форматирование кода... (Не виноватая я!) [NT] От: Pan Votruba вкл Вт, 28 августа 2001 00:00
	АНДРЕЙ!!! - Глюки? От: Pan Votruba вкл Ср, 29 августа 2001 00:00
	Да да, уже заметили - скоро поправим (БТ) От: Андрей вкл Ср, 29 августа 2001 00:00
	Приаттаченый файл с кодом От: Pan Votruba вкл Ср, 29 августа 2001 00:00
	Re: "Набор карт дилером". Исходник для програмеров. От: alexpoker вкл Вт, 28 августа 2001 00:00
	Re: "Набор карт дилером". Исходник для програмеров. От: Саша вкл Ср, 29 августа 2001 00:00
	Ложка дегтя ;) От: KOHb вкл Вт, 28 августа 2001 00:00
	Геть! От: Pan Votruba вкл Ср, 29 августа 2001 00:00
	Не в моих интересах, конечно, ... От: Менеджер вкл Ср, 29 августа 2001 00:00
	Менеджер! Точно. Бывает еще хуже ... От: Андрей вкл Ср, 29 августа 2001 00:00
	Re: Не в моих интересах, конечно, ... От: Саша вкл Ср, 29 августа 2001 00:00
	Ты о чем??? От: Garry Baldy вкл Ср, 29 августа 2001 00:00
	Отчетность От: Гриша вкл Ср, 29 августа 2001 00:00
	Re: Ты о чем??? От: Саша вкл Чт, 30 августа 2001 00:00
	Re: Ты о чем??? От: Garry Baldy вкл Чт, 30 августа 2001 00:00
	Re: Ты о чем??? От: Саша вкл Пт, 31 августа 2001 00:00
	Re: Геть! От: KOHb вкл Ср, 29 августа 2001 00:00
	И я рискну вставить словечко... От: Гриша вкл Вт, 28 августа 2001 00:00
	Well done, Grisha! От: Garry Baldy вкл Ср, 29 августа 2001 00:01
	Re: И я рискну вставить словечко... От: Саша вкл Ср, 29 августа 2001 00:01
	Re: И я рискну вставить словечко... От: Garry Baldy вкл Чт, 30 августа 2001 00:01
	Re: И я рискну вставить словечко... От: Саша вкл Чт, 30 августа 2001 00:01
	Настроил против себя? От: Garry Baldy вкл Чт, 30 августа 2001 00:01
	Ничто не потеряно для того, кто жив... От: Менеджер вкл Пт, 31 августа 2001 00:01
	Ответ одной из сторон ...... От: Саша вкл Сб, 1 сентября 2001 00:01
	Вопрос другой из сторон От: Гриша вкл Пн, 3 сентября 2001 00:01
	Re: Филология и 10x От: KOHb вкл Сб, 1 сентября 2001 00:01

Предыдущая тема:	Кусочки из закона
Следующая тема:	авг01

Быстрый переход к форуму

Текстовая версия RSS лента

Вернуться вверх

Текущее время: Сб, 5 апреля 16:02:13 2025

Время, затраченное на генерацию страницы: 0.00732 секунд