Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Чет про программирование / практика / 4) Генерация всех подмножеств заданного множества

.docx
Скачиваний:
22
Добавлен:
25.04.2015
Размер:
13.33 Кб
Скачать

Генерация всех подмножеств заданного множества.

var  n,i:integer;

     a:array [0..10] of integer;{множество чисел от 1 до 10}

procedure next_pdm;{генерация подмножества}

begin

i:=n;

while a[i]=1 do

 begin

  a[i]:=0;

  dec(i);

 end;

inc(a[i]);

end;

procedure print_pdm;{вывод очередного подможества}

begin

for i:=1 to n do

if a[i]=1 then write(i,' ');

writeln;

end;

begin

clrscr;

write('n=');

readln(n);

fillchar(a,(n+1)*sizeof(integer),0);{обнуляем множество}

a[n]:=1;

while a[0]=0 do

  begin

    print_pdm;

    next_pdm;

  end;

readln

end.