Изменения
Нет описания правки
Пусть нам известен код Грея для перестановок длиной $n$, записанный в массив pred_perest, состоящий из строк, в которые записаны перестановки, и новый элемент new_elem. При этом pred_perest[i](1) будет обозначать, что в i-той перестановке выделен первый элемент. Тогда:
// Алгоритм в процессе доработки!!!
t := false; {булевая переменная, отвечающая за прямой или обратный порядок перебора}
begin
pred_perest[i](n+1) := new_elem;
for j := n + 1 downto 1 do
begin
smena
write(pred_perest[i]); if pred_perest[i](n+1) <> pred_perest[i+1](n+1) then l := j;
end;
end
