:
: TURBO PASCAL 7.1
: ,
: 2 .
:
.. . . . .: , 2008. . 153-162.
:
1. .
2. .
3. .
4. .
5. .
, , :
1. ?
2. ?
3. ? . . , n, - 1:n?
0-1
Bm m . .
, m 2m .
, , , , , , - 02m−1 0-1 . . . 0 0, , 0, , , .
, , . .
1. m - m −1 .
2. m - 0 1. m −1 .
, 4. it , kit , .
, . , , . , .
0-1 . Bm , . ( ) . , n - (, ) , 2 n n - , .
|
|
, .
( ). ( , ) .
, , .
s , t . v l *(v), . l *(v) s v, l (v) s v, . - , .
Q(v) , v .
() . n. , n, . n - , ( ) . B [1], , B [ n ].
Gray-Generation(n)
for i:= 1 to n do B[i]:= 0;
i:= 0;
repeat
write (B[i], , B[n]);
i:= i + 1; p:= 1; j:= i;
while j mod 2 = 0 do
begin
j:= j/2; p:= p + 1;
end;
if p ≤ n then B[p]:= 1 − B[p];
until p > n
(n - ), n , . , . . , .
: .
1, 7, 13 | , n=1, 2, 7, m=12. |
2, 8, 14 | , . |
3, 9, 15 | , n=1, 2, 9, m=14. |
4, 10, 16 | , . |
5, 11, 17 | , n=1, 2, 5, m=11. |
6, 12, 18 | , . |
:
1. .
2. .
3. 0 1.
4. ?
.
|
|