Изменения
Нет описания правки
== Псевдокод получения следующего кода Грея ==
Пусть нам известен код Грея для длины $n - 1$, записанный в массив permиз строк $s[i]$, где $i$ - номер перестановки (номерация начинается с единицы).При этом переменная $t = true$, $j = 1$,а $k$ является новым элементом:
procedure grey_code(t := trueboolean; {булевская переменная отвечающая за порядок перебора true: от начала к концу false: от конца к началу} for i j:= 1 to (n - 1integer)! do {перебираем все перестановки из предыдущего кода Грея}; beginvar insert(perm[i], t)str: string; {в зависимости от t вставляем элемент либо в начало, либо в конец перестановки} writeln(perm[i]): integer; begin {выводим первую перестановку} for if j :<= 1 to (n - 1 do)! then {условие выхода из рекурсии}
begin
end;
end;