Версия для печати темы

Автор: 18192123 12.09.2007 2:37

Нужно сгенерировать сочетания из 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.

Автор: volvo 12.09.2007 2:44

Здесь посмотри:
http://forum.pascal.net.ru/index.php?s=&showtopic=7365&view=findpost&p=52791

Автор: 18192123 23.09.2007 3:37

спасибо, с этим я разобралась. Но а как быть, если нам нужны сочетания произвольных элементов, т.е. например, найти сочетания из 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;