//Прочее
for i1:=4 to 12 do
for i2:=3 to i1-1 do
for i3:=2 to i2-1 do
for i4:=1 to i3-1 do
for i5:=0 to i4-1 do begin n:=n+1;
p1:=Random(4)+1;
ArShaf[n,1]:=i1*4+p1; ArShaf[n,2]:=i2*4+p1;
ArShaf[n,3]:=i3*4+p1; ArShaf[n,4]:=i4*4+p1;
ArShaf[n,5]:=i5*4+p1; ArShaf[n,0]:=1; n:=n+1;
p2:=p1; p3:=p1; p4:=p1; p5:=p1;
while (p1=p2) and (p1=p3) and (p1=p4) and (p1=p5) do begin
p2:=Random(4)+1; p3:=Random(4)+1; p4:=Random(4)+1; p5:=Random(4)+1;
end;
ArShaf[n,1]:=i1*4+p1; ArShaf[n,2]:=i2*4+p2;
ArShaf[n,3]:=i3*4+p3; ArShaf[n,4]:=i4*4+p4;
ArShaf[n,5]:=i5*4+p5; ArShaf[n,0]:=255;
end;
Отдельно одномастные, отдельно все остальные. Заманухи на стрит описаны полностью, на флеш формируются среднестантистически из за случайной генерации мастей.
Мой цикл не описывает строго сжатие мастей, но практика показала что 30-50 циклов достаточно для оценки МО на любом боксе, а это 200-300 тысяч сдач всего.
|
