Комп в помощь => Генератор калод БД [#24163]

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

Базар вокруг игры / Комп в помощь / Генератор калод БД

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

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

Плоский

Re: Генератор калод БД ID:24163 ответ на 24159

Вт, 15 ноября 2005 11:58 («] [#] [»)

korovin

(иконки IM) Форумы CasinoGames

Вот нашел в своих архивах:

procedure ShaflNew(); //Замес шафла
var i,j,k,s: Integer;
begin
for i:=1 to 9 do Koloda[i]:=NumKol*4;
Koloda[10]:=NumKol*16; NumKar:=NumKol*52;
for i:= 1 to NumKol*52 do begin
k:=Random(NumKar); s:=NumKar; j:=11;
while k<s do begin j:=j-1;
s:=s-Koloda[j];
end;
Koloda[j]:=Koloda[j]-1;
NumKar:=NumKar-1;
Massiv[i]:=j;
end;
end;

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

	Генератор калод БД От: AlexZ вкл Пн, 14 ноября 2005 11:39
	Re: Генератор калод БД От: grey вкл Пн, 14 ноября 2005 15:02
	Re: Генератор калод БД От: AlexZ вкл Пн, 14 ноября 2005 15:37
	Re: Генератор калод БД От: AlexZ вкл Вт, 15 ноября 2005 10:18
	Re: Генератор калод БД От: korovin вкл Вт, 15 ноября 2005 11:58
	Re: Генератор калод БД От: AlexZ вкл Вт, 15 ноября 2005 12:23

Предыдущая тема:	Roulette Professional 2 - анализатор рулетки, проектировщик систем.
Следующая тема:	Где купить, и подскажите что лучше (покер)

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

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

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

Текущее время: Вт, 13 мая 21:21:52 2025

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