Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Чет про программирование / практика / 4) Генерация всех подмножеств заданного множества
.docxГенерация всех подмножеств заданного множества.
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.
Соседние файлы в папке практика