Witam
mam problem z napisaniem takiego programu ktory wypisze wszystkie podzbiory n-elementowego zbioru.
na razie mam takie coś
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
tablica:array of char;
i,j,n,k,m:integer;
begin
writeln('podaj ilosc elemento w zbiorze');
readln(n);
setlength(tablica,n);
writeln('Podawaj kolejne elementy zbioru');
for i:=0 to n-1 do readln(tablica[i]);
writeln('oto wszystkie podzbiory:');
for i:=0 to n-1 do
begin
for j:=i to n-1 do
begin
write('{');
for k:=i to j do
begin
write(tablica[k]);
if not (k>=j) then write(',');
end;
write('}');
end;//j
end;//i
readln;
end.
jesli ktos z Was wie jak dokonczyc ten program tak aby wypisywal wszystkie podzbiory a nie tylko czesc to bede wdzieczny za pomoc.
pozdrawiam