Сгенерировать все подмножества (Delphi)

[psy_shit]

Сгенерировать все подмножества данного n-элементного множества {0,..., n-1}.

это вообще как сделать? О_О

[phomm]

наводка )
допустим множество 0,1,2,3 из 4 элементов.

его подмножества:
0; 1; 2; 3; 0,1; 0, 2; 0,3; 1, 2; 1, 3; 2, 3; 0, 1, 2; 0, 1, 3 ; 0, 2, 3 ; 1, 2, 3 ; по идее можно принять и 0,1,2,3 как подмножество множества (ибо условие вхождения всех элементов подмножества в множество есть)

а сделать, ну циклами, рекурсией... сперва узнай как с ними работать, а за реализацией дело не станет

а в дельфи - можно и вывод организовать просто - на TStringGrid обрати внимание

[psy_shit]

спасибо, буду разбираться
если кто хочет помочь, милости просим)))

[psy_shit]

блин, ну дайте еще подсказку
вот то, что я сделал, генерируются только двузначные подмножества

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Memo1: TMemo;
    procedure Edit1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n,x,i:integer;
  mas:array [0..99] of integer;


implementation

{$R *.dfm}


procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text='' then exit;
n:=strtoint(edit1.Text);

    if n>100 then begin
        showmessage('Error');
        exit;
    end;

stringgrid1.ColCount:=n;

randomize;
     for x:=0 to n-1 do begin
        mas[x]:=random(10);
        stringgrid1.Cells[x,0]:=inttostr(mas[x])
     end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 for i:=0 to n-1 do begin
  for x:=0 to n-1 do begin
       memo1.lines.add(inttostr(mas[i])+inttostr(mas[x]));
  end;
 end;
end;

end.

[phomm]

Задание выполнено, за ценой в аську (в профиле), не сильно большая будет, договоримся. По расчету будут предоставлены исходники и сможешь заменить кнопку-тизер на свой aboutbox (могу и сам заменить)

заметка модератору, задание делал прежде всего для себя, интересно было разобраться, однако, хотелось бы хоть немного возместить потраченое время (раздел, думаю, позволяет мне поступить так), если автор не отзовется через месяц где-то сюда будут исходники для общественности ))

[phomm]

Написана программа ТС-у, возражений по публикованию оплаченной им работы он не имел, посему , весь проект по ссылке, кому-то может и понадобится, код обильно откомментирован

http://www.phomm.narod.ru/subsetgen1.1.zip