ГО С Т Р ИСО 24153— 2012
Seed = 543210; п = 10;
long А1[п];
for(i = 0; i< n; i++) A1[i] = i+1;
рпп11(’Случайная перестановка всех n элементов, см. 8.3. VT);
RandPermN(n. А1);
printf(’n: %d\n“. n);
for(i = 0; i < n; i++) printf("%d \ A1[iJ):
printfCVi");
system(Tlay3a "); printffVi*);
n = 10;
long A2[n];
printf{’Cny4aiiHoe изменение порядка, см. 8.4 \n");
RandDerang(n, A1. A2);
for (i = 0; i < n; i++) printf("%d *. A2(i]);
printfCVi*);
system("riay3a *); printf(*VT);
Seed = 543210; n = 5: m = 20;
long A3(n],
printf(-Случайный отбор без возвращения, см. 8.6 Sn’*);
RSWOR(n. m. A3);
printf(’m. n: %d %d\n*, m. n);
for(i = 0; i < n; i++) printf(“%d \ A3[i]);
printfCVi");
system(Tlay3a *); printff\n*);
Seed = 543210; n = 5; m = 20;
long A4[n). A5(m + 2);
for(i = 0; i < m+2; r++) A5{i] = 0;
for(i = 0; i < m; i++) A5[i] = i+1;
рг^ГЕдиничный случайный отбор выборки из партии неизвестного обьема, см. 8.9 \п");
SRSWORIULS(n. m. А5. А4);
printf(’m. n: %d %d\n*. m. n);
for(i = 0; i < n; i++) pnntf("%d *. A4[i]):
printf(’\n");
system(nriay3a *); printffln*};
Seed = 543210; n = 5; m = 20;
long A6[n].
printffMeToa А: отбор единственной упорядоченной случайной выборки без возвращения, см.8.10 \п*);
OSRSWORA(n.m.A6);
printf(*m. n: %d %d\n*. m. n);
for(i = 0; i < n; i++) printf(”%d *. A6(i]);
printf(*\nH);
system(Tlay3a’); printfCVi");
Seed = 543210; n = 5; m = 20;
long A7(n+1J, b. d;
b = C(m. n); d = RandlntlN(b);
рппЩ’Метод В; отбор единственной упорядоченной случайной выборки без возвращения, см.8.10 \п");
OSRSWORB(n. m. d. А7);
printf(*m. n. d. C(m.n): %d %d %d %dVr". m. n. d. b):
for(i = 1; i <= n; i++) printf("%d \ A7[iJ);
printfCVi-);
system(”nay3a“); printfCVi”);
Seed = 543210; n = 8;
long A8(n+1Hn+1];
printf(*8.15 Случайный латинский квадрат, см. 8.15 \л’);
23