/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Algorithms/Recursion/Permutations.pas
19 строк
438 B
Mikhalkovich Stanislav
Правки некоторых примеров
01 янв 2019, 14:15
01 янв 2019, 14:15
43adc0a
Код
Авторство
О чём код?
// Все перестановки const n = 4; procedure Perm(a: array of integer; m: integer); begin if m=1 then a.Println; for var i:=0 to m-1 do begin Swap(a[i],a[m-1]); // ставим каждый на место последнего Perm(a,m-1); Swap(a[i],a[m-1]); end; end; begin var a := Range(1,n).ToArray; // заполнение массива a числами от 1 до n Perm(a,n); end.