Напечатать все перестановки чисел - Pascal ABC (19085)

Формулировка задачи:

Здравствуйте, помогите написать работу. Дано N различных натуральных чисел. Напечатать все перестановки этих чисел.

Решение задачи: «Напечатать все перестановки чисел»

Листинг программы

{ генерация перестановок }
uses crt;
const n = 6; { количество элементов в перестановке}
var a:array[1..n] of integer;
    j:integer;{счетчик}
    kol : integer;{количество перестановок}
procedure generate (l,r:integer;var k:integer);
var i,v:integer;
begin
if (l=r) then
 begin
  for i:=1 to n do write(a[i],' ');
  writeln;
  k:=k+1;
  if k mod 20=0 then
   begin
    writeln('k=',k);
    readln
   end
 end
else
 begin
  for i := l to r do
   begin
    v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
    generate(l+1,r,k); {вызов новой генерации}
    v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
   end;
 end;
end;
begin
randomize;
for j := 1 to n do
a[j]:=random(20);
generate(1,n,kol);
write('kol=',kol)
end.

Объяснение кода листинга программы

В этом коде реализована функция генерации всех перестановок чисел от 1 до 6 с помощью рекурсивного алгоритма. Алгоритм работает следующим образом:

Перебираем все возможные пары элементов для разделения на две части.
Для каждой пары вызываем рекурсивно функцию генерации для левой и правой части.
После завершения рекурсии возвращаем результат в обратном порядке.
Печатаем все полученные перестановки. Код содержит следующие переменные:
n — количество элементов в перестановке (в данном случае 6).
a — массив для хранения перестановок.
j — счётчик для заполнения массива случайными числами.
kol — счётчик количества перестановок. Процедура generate генерирует перестановки. Она принимает три параметра: l,r — текущие границы для генерации перестановок, а также переменную k для отслеживания количества перестановок. Внутри процедуры используется два вложенных цикла: внешний для перебора всех возможных пар элементов и внутренний для рекурсивного вызова функции генерации. В основной части кода происходит следующее:
Инициализация генератора случайных чисел.
Заполнение массива a случайными числами от 1 до 6.
Вызов функции генерации с начальными границами 1 и n, а также со значением kol равным 0.
Печать значения kol.