генерация всех k-элементных подмножеств множества из n элементов Опции

[demidrolll]

Помогите хотя бы разработать алгоритм. Вот задача:
Разработать программу, которая генерирует все k-элементные подмножества множества из n элементов таким образом, что каждое последующее подмножество образуется из предыдущего удалением одного элемента и добавлением другого.

[klem4]

Так ?

{$mode tp}
{$r-}
uses crt;
type
  plist = ^list;
  list  = array [1..1] of integer;

procedure dump( const p: plist; const n: integer );
var i: integer;
begin for i := 1 to n do write(p^[i], ' '); writeln end;

function posmax( const ps, size, max: integer): integer;
begin posmax := max - size + ps end;

function next( var u: plist; const size, max: integer ): boolean;
var
  i, j, max_: integer;
  flag: boolean;
begin
  i := size;
  repeat
    while (i > 0) and (u^[i] = posmax(i, size, max)) do dec(i);
    if i > 0 then begin
      inc(u^[i]);
      for j := i + 1 to size do u^[j] := u^[j - 1] + 1;
      flag := true
    end
  until (i = 0) or flag;
  next := flag and (i > 0)
end;

var
  size, max, i: integer;
  lst: plist;
begin
  { readln(size, max); }
  size := 3;
   max := 5;
  getmem(lst, size * sizeof(list));
  for i := 1 to size do lst^[i] := i;
  repeat dump(lst, size) until not next( lst, size, max );
  freemem(lst, size * sizeof(list))
end.

Код

1 2 3
1 2 4
1 2 5
1 3 4
1 3 5
1 4 5
2 3 4
2 3 5
2 4 5
3 4 5

[TarasBer]

Так ?

Код

1 2 3
1 2 4
1 2 5
1 3 4
1 3 5
[b]1 4 5
2 3 4[/b]
2 3 5
2 4 5
3 4 5

нет