Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Чет про программирование / практика / 5) Генерация всех сочетаний из n по k в лексикографическом порядке
.docxГенерация всех сочетаний из n по k в лексикографическом порядке (ПОМЕНЯТЬ ИМЕНА)
program sochets; var i, j, n, m: integer; a: array[0 .. 100] of integer; { процедура вывода текущего сочетания } procedure use; var i: integer; begin writeln; for i:=1 to m do write(a[i]:3) end; begin write('ввод N и M: '); read(n, m); { формирование первого сочетания } for i:=0 to m do a[i]:=i; repeat use; i:=m; while a[i]=n-m+i do dec(i); { поиск элемента для изменения } inc(a[i]); for j:=i+1 to m do a[j]:=a[j-1]+1; { изменение правой части сочетания } until i=0; end.
Соседние файлы в папке практика