Разработать программу, которая генерирует все k-элементные подмножества множества

@demidrolll · Регистрация: 10.12.2008

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, разработать алгоритм(программу писать не обязательно, надеюсь сам справлюсь)

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

Если поможет, вот похожая задача:

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

Pascal

program xxx;
{Генерирование всех k-элементных подмножеств множества}
uses
 Crt;
var
 a    :array[1..10] of integer;
 k,n  :integer;
 fout :text;
procedure setksetn(k,n:integer);
{Генерирование и вывод очередного подмножества}
var
 i,p:integer;
begin
 for i:=1 to k do
  a[i]:=i;
  p:=k;
 while p>=1 do
 begin
  for i:=1 to k do
   write(fout,a[i]:3);
  writeln(fout);
  if a[k]=n then
   dec(p)
  else
   p:=k;
  if p>=1 then
   for i:=k downto p do
    a[i]:=a[p]+i-p+1;
 end;
end;
 
{Головная программа}
begin
 assign(fout,'lr15_4.txt');
 rewrite(fout);
 clrscr;
 Write('Введите количество элементов множества n= ');
 Readln(n);
 Write('Введите количество элементов подмножества k= ');
 Readln(k);
 writeln(fout,'Множество всех ',k,' элементных подмножеств из ',n);
 setksetn(k,n);
 close(fout);
end.

	06.02.2009, 23:39