Перебор вариантов из элементов массива

[Taranov]

Здравствуйте!

Есть одномерный массив m, который формируется определенным образом.
m = [8, 4, 4, 2, 2, 2, 2]. Дальше мы задаем параметр x от 1 до 4. Необходимо перебрать все возможные сочетания из элементов массива по x и вывести результаты.

Например, x=2. Перебор осуществляем по два элемента. Получаем: (8,4) (8,4) (4,4) (4,2) (2,2) (8,2) и т.д. всего 21 сочетание. Необходимо вывести все эти результаты в виде массива 2x21:
884428...
444222...

Например, x=3. Перебор по три элемента. Получаем (8,4,4) (8,4,2) (8,2,2) и т.д. всего 35 сочетаний. Программа должна сформировать массив 3x35 и вывести его.

Исходник с массивом:

VAR 	m: array of real;
        a,b,n,y,i,j,x: integer;

BEGIN
        a:=2; b:=2; n:=a*b+a+2; y:=2*a*b;

        Write('x= ');
        ReadLn(x);

        Setlength(m,n-1);

        // Формируем массив
        j:=1;
        m[j]:=8;

        for i:=1 to a do
            begin
              j:=j+1;
              m[j]:=(1/a)*y;
            end;

        for i:=1 to a*b do
            begin
              j:=j+1;
              m[j]:=(1/(a*b))*y;
            end;

        // Выводим массив
        for j:=1 to n-1 do write(m[j]:3:0);
        WriteLn;
        ReadLn
END.

[ViktorR]

Можно попробовать так:
1. Пусть в массиве n элементов и необходимо получить сочетание из x элементов.
2. Организуем цикл, например по j, в котором просматриваем элементы массива от 1 до n-x.
3. Организуем вложенный цикл, в котором к элементу массива j выводим x последующих элементов: от i = j до j + x.
4. Выводим группу элементов командой writ.
5. Конец цикла i
6. Выводим символы: "Возврат каретки", "Новая строка" - writeln.
7. Конец цикла j.


Вроде так ...

[Taranov]

Что-то не состыковывается(

Сообщение от ViktorR

Можно попробовать так:
1. Пусть в массиве n элементов и необходимо получить сочетание из x элементов.
2. Организуем цикл, например по j, в котором просматриваем элементы массива от 1 до n-x.
3. Организуем вложенный цикл, в котором к элементу массива j выводим x последующих элементов: от i = j до j + x.
4. Выводим группу элементов командой writ.
5. Конец цикла i
6. Выводим символы: "Возврат каретки", "Новая строка" - writeln.
7. Конец цикла j.

Вроде так ...

1. Пусть n=5, пусть x=2. Например, массив [1 2 3 4 5].
2. Прокручиваем основной цикл 3 раза.
3. Берем 1ый элемент и к нему приписываем последующие через вложенный цикл 3 раза (i=1, i+x=3).
4. Получаем 1234.
И дальше новая строчка, а затем еще одна.
А должны получиться две строчки из 10 элементов:
1111222334
2345345455