Составление всевозможных комбинаций из цифр

[nnkorol]

Набросал такую програмку
var
i1, i2, i3: integer;
begin
for i1:=1 to 4 do
for i2:=1 to 4 do
for i3:=1 to 4 do

if ((i1<>i2)and(i1<>i3)and(i2<>i3)and( i3<>i1))then
writeln(i1,-i2,-i3);
end.

Результат
1-2-3
1-2-4
1-3-2
1-3-4
1-4-2
1-4-3
2-1-3
2-1-4
2-3-1
2-3-4
2-4-1
2-4-3
3-1-2
3-1-4
3-2-1
3-2-4
3-4-1
3-4-2
4-1-2
4-1-3
4-2-1
4-2-3
4-3-1
4-3-2

Подскажите как убрать повторяющиеся комбинации например 1-2-3 1-3-2 3-2-1 3-1-2??

[p51x]

ну если я правильно понял, что новый цикл считайте от предыдущего индекса, а не от 1 всегда

[nnkorol]

Расскажу что мне нужно. Надо составить всевозможные комбинации из 4 цифр без повторяющихся комбинаций

[Serge_Bliznykov]

так там же останется всего нечего!!

var
  i1, i2, i3: integer;
begin
 for i1:=1 to 4 do
  for i2:=i1+1 to 4 do
    for i3:=i2+1 to 4 do
       writeln(i1,-i2,-i3);
end.

в результате будет это:

1-2-3
1-2-4
1-3-4
2-3-4

[nnkorol]

а если побольше взять цифр??
var
i1, i2, i3, i4, i5, i6, i7: integer;
begin
for i1:=1 to 10 do
for i2:=1 to 10 do
for i3:=1 to 10 do
for i4:=1 to 10 do
for i5:=1 to 10 do
for i6:=1 to 10 do
for i7:=1 to 10 do
writeln(i1, i2, i3, i4, i5, i6, i7);
end.

[Serge_Bliznykov]

ну возьмите побольше, кто Вам запрещает?

[nnkorol]

а как реализовать, чтоб комбинации не повторялись?

[Serge_Bliznykov]

а пример выше я для чего написал, для красоты?!

Вам нужны Сочетания? (см. Комбинаторика — Сочетания или Википедия - Сочетания)

например, для 3-х цифр:
допустима комбинация 1-1-1 ?
или только 1-2-3 и т.д. ?

[nnkorol]

только 1-2-3 и т.д. В одной комбинации цифры между собой не повторяются

[Serge_Bliznykov]

ясно. Вам нужны "Сочетания без повторений"

либо берите свой код, только каждый цикл начинайте от предыдущий +1 (

for i1:=1 to 9 do
  for i2:=i1+1 to 9 do
    for i3:=i2+1 to 9 do
.....

либо возьмите ХОРОШИЙ готовый УНИВЕРСАЛЬНЫЙ код можно взять тут

Помогите с алгоритмом поиска все сочетаний из n по k без повторений.

var
    i,p,k,n,m: integer;
    A: array [1..100] of integer;
begin
    readln(k,n);
    {генерация первого подмножества}
    for i := 1 to k do
        A[i]:=i;

    p:=k;
    while p>=1 do
    begin
        {вывод подмножества на экран}
        for m := 1 to k do
            write(A[m],' ');
            writeln;

        if A[k]=n then
            p:=p-1
        else
            p:=k;

        if p>=1 then
            for i := k downto p do
                A[i]:=A[p]+i-p+1;
    end;
end.