Задача. Привести в порядке возрастания все r-сочетания с повторениями элементов множества {1, 2, ., n} и определить их количество

[STaR18]

В программе в режиме диалога вводятся числа n и r (n,r<=10). Привести в порядке возрастания все r-сочетания с повторениями элементов множества {1, 2, ..., n} и определить их количество.
Программа по формуле считает но я не знаю как вывести все сочетания на экран.
При значениях n = 3, r = 2 должно выглядеть именно так
11
12
13
22
23
33
Помогите, пожалуйста

[Vanta11a]

Вызов рекурсивной функции с for - тупо, некрасиво, долго - но работает.

Может сами что-то сделали?

[STaR18]

На данном этапе моя программа считает количество сочетаний по формуле

program math;
uses crt;
var n,r,fr,fch,fzn,i: integer;
    c: real;
begin
     writeln('Vveditе n ta r');
     readln(n,r);
     fch:=1;
     for i:=2 to (n+r-1) do
        fch:=fch*i;
     fr:=1;
     for i:=2 to r do
        fr:=fr*i;
     fzn:=1;
     for i:=2 to (n-1) do
        fzn:=fzn*i;
     c:=fch/(fr*fzn);
     writeln('Kolichestvo sochetanii - ',c);
end.

[Vanta11a]

Возможно, Вам следует сделать функцию факториала, чтобы избежать повтора кода 3 раза.
Дальше. По выводу что делали? Подскажу: можно попробовать объявить функцию, в которую передаются в качестве параметров предыдущие символы как строка, номер вложенности. Что-то типа

procedure funct(p_str:string; numb:integer);
begin
for i:=1 to n do
if (numb = r) then
writeln(p_str,i)
else
funct(p_str+IntToStr(i),numb+1);
end;

Это только прикидки, не отлажено, переменные не объявлены и т.д.

upd: code fixed, не туда поставил if

[Serge_Bliznykov]

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

При значениях n = 3, r = 2 должно выглядеть именно так
11
12
13
22
23
33

а куда делись пары
21 31 32 ?!

[ViktorR]

Привести в порядке возрастания все r-сочетания с повторениями элементов множества {1, 2, ..., n} и определить их количество.

Так понимаю, что есть некоторое множество целых чисел - r;
Есть некоторое множество чисел - n.
Требуемое сочетание должно составляться по правилу: {r}{n}.

Тогда почему:
11, 12, 13, 22, 23, 33 а не: 11, 12, 13, 21, 22, 23 ???
Если понято правильно, то решение простое: два вложенных цикла.
Первый по r, а второй по n.
Сочетание выводится либо путем форматного вывода, либо по типу:

k := r * 10 + n;

Как-то так, ...

[VIK_aka_TOR]

Комбинаторика для программистов
Год выпуска: 1988
Автор: В. Липский

там найдешь ответы на свои вопросы по данной задаче...