Нужно сгенерировать сочетания из n элементов по m элементов. У меня получилось сгенерировать сочетания из n элементов по 3. Но для произвольного m - не получается. Объясните пожалуста, как поступить.
uses crt; type mas=array[1..30] of integer; var i,j,k,n:integer; a:mas; begin clrscr; writeln('enter n:'); read(n); writeln('Enter matrix: '); for i:=1 to n do read(a[i]); clrscr; for i:=1 to n do write(' ', a[i]); writeln(' '); for i:=1 to n do begin for j:=i+1 to n do begin for k:=j+1 to n do begin writeln(a[i], ' ', a[j], ' ', a[k]); end; end; end; readkey; end.
спасибо, с этим я разобралась. Но а как быть, если нам нужны сочетания произвольных элементов, т.е. например, найти сочетания из 5 элементов по 3 (где исходное множество, например, 2 4 6 8 9)?
volvo
23.09.2007 3:42
Тогда считай, что в предыдущей задаче генерируются индексы элементов... То есть, не:
Procedure use; var i : integer; begin writeln; for i:=1 to m do write(a[i]:3) end;
а
const data: array[1 .. n] = (2, 4, 6, 8, 9); Procedure use; var i : integer; begin writeln; for i:=1 to m do write(data[a[i]]:3) end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.