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

[timezero]

помогите решить задачу на паскале,
переменная а может быть равняться одному из 3 возможных известных слагаемых, то есть а может равняться либо 1 или 2 или 3 , таких переменных 3 штуки, далее я ввожу число H и мне должно вывести значения этих слагаемых. все цифры только целочисленные и положительные . вроде понятно объяснил)
Пример:
значение переменных а - 1,2,3
b - 4,5,6
c - 7,8,9
ввожу H(допустим 17) которое равняется a+b+c
затем должны вывести на экран всевозможные комбинации значений a,b и с при котором это так скажем уравнение равняется 17, Ответ : вариант 1 - а=3 b=5 c=9 , вариант 2 -a=3 b=6 c=8 , вариант 3 - a=2 b=6 c=9 ну и т.д. но это я мозгом посчитал а надо бы на компике а то мну решать надо с 17-тью переменными, а одна переменная может равняться 30 значениям)

[Serge_Bliznykov]

самый простой вариант (в случае, если количество переменных жестко ограничено) - воспользоваться массивами (например - "в лоб" - двухмерный массив - 1-й индекс номер переменной - 2-й индекс - значение этой переменной.
если количество значений для каждой переменной отличается - то ещё в массиве (можно в отдельном одномерном) сохранить числа - сколько значений для данной переменной.

ну а потом простейший перебор по всем переменным по всем значениям...

p.s. разумеется, это простейшее решение "в лоб" - без использования динамики..

[timezero]

да, количество значений для каждой переменной может быть разным.
Но чет не совсем понял как это реализовать .

[New man]

var
 slag: array[1..3,1..3] of word;
 i,j,k:integer;
 h:word;
begin
  h:=0;
  for i:=1 to 3 do
    for j:=1 to 3 do
       begin
           inc(h);
           Slag[i,j]:=h;
       end;
   write('ВВедите переменную:');
   readln(h);
   for i:=1 to 3 do
    for j:=1 to 3 do
     for k:=1 to 3 do
       begin
           if (Slag[1,i]+Slag[2,j]+Slag[3,k])=h then   
             writeln(Slag[1,i],' ',Slag[2,j],' ',Slag[3,k]);
           Slag[i,j]:=h;
       end;
      
end.

[timezero]

программка конечно компилируется без ошибок, но все же результат не выводится, что то здесь все таки не правильно.

[Stilet]

но все же результат не выводится

...
Writeln('Рассчет окончен :)')
Readln;
end.

Помогает?

[timezero]

Readln;
я уже добавлял, не помогает

[New man]

Может так:

var
 slag: array[1..3,1..3] of word;
 i,j,k:integer;
 h:word;
begin
  h:=0;
  for i:=1 to 3 do
    for j:=1 to 3 do
       begin
           inc(h);
           Slag[i,j]:=h;
       end;
   write('ВВедите переменную:');
   readln(h);
   for i:=1 to 3 do
    for j:=1 to 3 do
     for k:=1 to 3 do
       begin
           if (Slag[1,i]+Slag[2,j]+Slag[3,k])=h then   
             writeln(Slag[1,i],' ',Slag[2,j],' ',Slag[3,k]);
           
       end;
   write('Vse');
   readln;   
end.

Это работает я проверил

[Vikenty]

Переименуйте тему.

[timezero]

я так понимаю это прога работает только со значениями переменных а = 1,2,3 ; b=4,5,6 ; c=7,8,9 чето я сразу не придал этому значения когда код смотрел.
Просто задача иначе стояла переменные известны и числовой ряд этих переменных не вычисляется какой либо формулой, т.е. пример переменная а может равняться 0,10,12,15,19,25,31,45 и т.д. так же и для остальных переменных b,c,d... причем у каждой переменной свое количество значений, т.е. у а их м/б -7, у b - 12, у c - 3
и эти переменные придется полюбому вбивать в прогу, я просто привел так скажем примитивный пример со значениями 1,2,3,4,5...