| Генератор калод БД ID:24159 |
Пн, 14 ноября 2005 11:39 [#] [») |
|
|
Такой вопрос, может у кого нибудь есть генератор любого числа колод БД.
Что бы результаты в текстовом виде выдавал, а то если честно сказать, лень писать!
|
|
|
| Re: Генератор калод БД ID:24160 ответ на 24159 |
Пн, 14 ноября 2005 15:02 («] [#] [») |
|
|
|
Встречный вопрос: а что ты с этими колодами собрался делать?
|
|
|
| Re: Генератор калод БД ID:24161 ответ на 24159 |
Пн, 14 ноября 2005 15:37 («] [#] [») |
|
|
|
Сначала систему потестить хочу, а потом если результаты не устроят то анализатор писать !
|
|
|
| Re: Генератор калод БД ID:24162 ответ на 24159 |
Вт, 15 ноября 2005 10:18 («] [#] [») |
|
|
Неужели этим вопросом никто не занимался ?
ЗЫ Да получается хочешь что то сделать, сделай это сам!
|
|
|
| Re: Генератор калод БД ID:24163 ответ на 24159 |
Вт, 15 ноября 2005 11:58 («] [#] [») |
|
|
Вот нашел в своих архивах:
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;
|
|
|
| Re: Генератор калод БД ID:24164 ответ на 24159 |
Вт, 15 ноября 2005 12:23 («] [#] |
|
|
|
Спасибо!
|
|
|
