Просмотреть всю тему "Расчёт M и D" »»
Re: Расчёт M и D   ID:9199   ответ на 9196 Ср, 7 июля 2004 06:29 [#]
korovin Форумы CasinoGames
Пример

//каре
for i1:=0 to 12 do
for i5:=0 to 12 do if i5<>i1 then begin n:=n+1;
ArShaf[n,1]:=i1*4+1; ArShaf[n,2]:=i1*4+2;
ArShaf[n,3]:=i1*4+3; ArShaf[n,4]:=i1*4+4;
ArShaf[n,5]:=i5*4+Random(4)+1;
ArShaf[n,0]:=1;
end;

//фулл
for i1:=0 to 12 do
for i4:=0 to 12 do if i4<>i1 then begin n:=n+1;
p3:=Random(4)+1; p2:=Random(6)+1;
ArShaf[n,1]:=i1*4+ArMst3[p3,1]; ArShaf[n,2]:=i1*4+ArMst3[p3,2];
ArShaf[n,3]:=i1*4+ArMst3[p3,3]; ArShaf[n,4]:=i4*4+ArMst2[p2,1];
ArShaf[n,5]:=i4*4+ArMst2[p2,2]; ArShaf[n,0]:=6;
end;

...

ArShaf[n,0] это вес комбинации/4