94
правки
Изменения
Нет описания правки
perm[j](1) := n;
for l := 1 to n do
writeln(perm[j](1l), ' '); {выводим перестановку}
for i := 1 to n - 1 do
begin
perm[j](i + 1) := c;
for l := 1 to n do
writeln(perm[j](1l), ' '); {выводим перестановку}
end;
grey_code(not t, j + 1); {повторяем процедуру}
perm[j](n) := n; {записываем элемент n в конец строки}
for l := 1 to n do
writeln(perm[j](1l), ' '); {выводим перестановку}
for i := n - 1 downto 1 do
begin
perm[j](i + 1) := c;
for l := 1 to n do
writeln(perm[j](1l), ' '); {выводим перестановку}
end;
grey_code(not t, j + 1); {повторяем процедуру}
