Изменения
→Пример генерации сочетаний из N элементов по M в лексикографическом порядке
Пусть <tex>gen(k, l)</tex> {{---}} процедура генерирования, где <tex>a</tex> {{---}} текущее сочетание, <tex>k</tex> {{---}} следующий элемент в сочетании, <tex>l</tex> {{---}} глубина рекурсии.
procedure gen(k, l : longint); var i : longint;
begin
a[l] := k; if l = m then {объект имеет требуемый размер}
begin
for j := 1 to m do write(a[j], ' '); {выводим текущее сочетание}
writeln;
end else for i := k+1 to n do rec(i, l+1); {перебираем подходящий префикс}
end;
