Вывод комбинаций на экран или в фаил

[jvtmad]

Доброго. Требуется найти все комбинации 2-х множеств по 8 одинаковых элементов и вывести их на экран или в файл. Например имеем восемь "1" и восемь "0" и должны получить строки вида:
11110000 11101000 10110100 и т.д. Т.е по формуле 12870 разных наборов.
Язык не указывал т.к не знаю на чём это удобнее реализовать.

[p51x]

http://www.aconnect.de/friends/editi...oricode_e.html
http://rosettacode.org/wiki/Combinations#C

[jvtmad]

немного ошибся с выводом. Комбинации должны быть составлены из всех 16-ти элементов по 8 из каждого множества. Меняться будут только их места.

[evg_m]

r1:='11111111';
r2:='00000000';
c1:=0; for j:=1 to length(r1) do if r1[j]='1' then c1:=c1+1;
c2:=0; for j:=1 to length(r2) do if r2[j]='1' then c2:=c2+1;

rfirst:='0000000000000000';
for j:=1 to c1+c2 do rfirst[j]:='1'; 
rlast:='1111111111111111';
for j:=1 to length(rlast)-c1-c2 do rlast[j]:='0';

repeat
  Writeln(rfirst);

  nextexist:=false;
  for j:=length(rfirst) downto 2 do begin
    if rfirst[j-1]='1' and rfirst[j]='0' and  {='10'} then begin
      rfirst[j-1]:='0'; rfirst[j]:='1'; {:='01'}
      nextexist:=true;
      break; 
    end;
  end;
until (rfirst=rlast);
until (nextexist);

[jvtmad]

я так понял она считает комбинации начиная с 0000000000000000 а нужно чтобы было 8 единиц и 8 нулей всегда в каждой комбинации

[evg_m]

я так понял она считает комбинации начиная с 0000000000000000

c1:=0; for j:=1 to length(r1) do if r1[j]='1' then c1:=c1+1; //СЧИТАЕМ количество единиц в ПЕРВОЙ

for j:=1 to c1+c2 do rfirst[j]:='1'; // ДЕЛАЕМ НУЖНОЕ количество единиц

[Serge_Bliznykov]

тыц

вот переделанный код (исходник по ссылке выше)

Program perestanovka;
const MaxN = 17;
var
  A: Array[1 .. MaxN] Of Byte;
  N, i, j, k: Byte;

Procedure Output;
var i: Byte;
begin
  For i := 1 to N do
  Write(A[i], ' ');
  Writeln;
end;

Procedure Change(i, k: Longint);
var x: Byte;
begin
  x:= A[i];
  A[i] := A[k];
  A[k] := x;
end;

begin
  N := 16;
  For i := 1 to N div 2 do A[i]:=0;
  For i := (N div 2)+1 to N do A[i]:=1;

  WriteLn;
  
  While True Do
  Begin
    Output;
    i:= N;
    While (i > 0) and (A[i] >= A[i + 1]) do
    Dec(i);
    If i = 0 then Break;
    For j := i + 1 To N Do
    If (A[j] > A[i]) then
      k := j;
    Change(i, k);
    Inc(i);
    j := N;
    While (i < j) do
    Begin
      Change(i, j);
      Inc(i);
      Dec(j);
    end;
  end;
  readln;
end.

[jvtmad]

Serge благодарю. одна только проблема не могу всё в выводе просмотреть. можно ли добавить записи в текстовый файл?

[jvtmad]

просто на экране я вижу только последние комбинации

[Serge_Bliznykov]

просто на экране я вижу только последние комбинации

Какой Паскаль? в чём запускаете?
ЕXE-шник есть?
если есть, то можно банально написать в командной строке

ВашФайл.EXE > текстовый.txt

Если нет, тогда можно переопределить вывод в текстовый файл в самой программе.
если что, подскажу как...