ГО С Т Р ИСО 24153— 2012
for (с = 1; с <= п; C++) {
i = 0.
Rls2:
х = Поог(1Ц) *j + 1);
for (h = 1; h <= r-1; h++) {
if (i >50) goto Rls1;
if(A[h][c]==Blx]){
i = i + 1: goto Rls2;
}
}
A(r][c] = B[x]: j = j -1;
for(к = x; к <=j: k++) B[k] = B[k + 1)
>
}
return;
}
/***
.........
*
......
*
.......
*..........*****.......................................*...................................../
long C{m. n)
long m. n:
<
/*Метод В: вспомогательная функция, см. 8.10 Ь) 7
Г
Вычисление числа сочетаний из m по п. 7
long i. k. х. п1;
п1 = n:k = m-n1;
if (п
1
<k){k = n1;n1 = m-k:}
x = n1 + 1:
if(k = 0) {x = 1:}
И(k >= 2) {
for (i = 2: i <= k; i++)
x = (x*(n1 + i))/i;
}
return x:
>
/
...............*................................................................./
double U(vocd)
Г
{
библиографический источник [12]7
/* RNG основано на: x[i+1] = 16807 *x[i] mod 2147483647 7
/* Приведено только для иллюстрации 7
long k;
k = Seed / kq;
Seed = ka *(Seed - k *kq) - kr *k:
if (Seed < 0) {Seed = Seed + km;}
return (1.0 ’ Seed
I
km);
}
Г
ряд закончен 7
/* колонка закончена 7
27