| Re: Расчёт M и D ID:9199 ответ на 9196 |
Ср, 7 июля 2004 06:29 [#] |
|
|
Пример
//каре
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
|
|
|