рекурсия с отходом назад

[inlove]

Здравствуйте!
Помогите пожалуйста с задачей: дано n предметов, для каждого установлена его цена. Выберете из них m предметов так, чтобы их общая стоимость находилась в пределах от m1 до m2.
Заранее огромное спасибо

вот мои наработки

program oth_nazad;
uses crt;
type
  mass=array[1..100] of integer;

procedure try(var b:mass; a:mass;i,m,m1,m2,n,s:integer);
var
  j,w:integer;
begin
  for j:=1 to n do
    begin
      if (((a[j]+s)>m1) and ((a[j]+s)<m2)) then
        begin
          b[i]:=a[j];
          s:=s+a[j];
          if i<m then try(b,a,i+1,m,m1,m2,n,s)
          else begin
                 for w:=1 to m do
                   write(b[w]:3);
               end;
        end;
    end;
end;

var
  a:mass;
  b:mass;
  s,n,i,m,m1,m2:integer;
begin
  clrscr;
  write('n=');
  readln(n);
  writeln('massiv');
  for i:=1 to n do
    readln(a[i]);
  write('m1=');
  readln(m1);
  write('m2=');
  readln(m2);
  write('m=');
  readln(m);
  s:=0;
  try(b,a,i,m,m1,m2,n,s);
  readln;
end.

[andrewpalkin]

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

вот мои наработки
...

Что в твоем коде не работает ? Просто у меня нет Паскаля , не могу прогнать его

[inlove]

когда я запускаю программу, он мне вместо нужного набора m предметов выводит штук 7 нулей((
получается, что он массив b не заполняет..а вот где ошибка понять не могу((
помоги пожалуйста)

[rubius2008]

вот как то так должно

procedure try(var b:mass; a:mass;i,m,m1,m2,n,s:integer);
begin
   if (a[i]+s>=m1) and (a[i]+s<=m2) then for i:=1 to m do write(b[i]:3);
   else
   begin
     b[m]:=a[j];
     s:=s+a[j];
     if i<n then try(b,a,i+1,m+1,m1,m2,n,s);
   end;
end;

Но еще надо учесть, тот факт, что допустим если текущая вещь дороговата, то нужно еще посмотреть другие. Это сам добавь.

[andrewpalkin]

Вот твоя программа , я ее подправил , она теперь выдает все возможные варианты , которые она может найти по твоему запросу в введенном массиве :

uses crt;
type mass=array[1..100] of integer;

procedure recurs(var b:mass;a:mass;m,m1,m2,num,sum,el,n : integer);
var i : integer ;
begin
   if (sum>=m1) and (sum<=m2) and (m=0) then 
     begin
      for i:=1 to el do write(b[i]:3);
      writeln();
     end
   else
   begin
    if (m>0) and (sum<= m2) and (num <= n) then
      for i:=num to n do
        begin
          b[m]:=a[i];          
          recurs(b,a,m-1,m1,m2,i+1,sum+a[i],el,n);
        end;
   end;
end;

var
  a:mass;
  b:mass;
  i,s,n,m,m1,m2:integer;
begin
  clrscr;
  write('n=');
  readln(n);
  writeln('massiv');
  for i:=1 to n do
    readln(a[i]);
  write('m1=');
  readln(m1);
  write('m2=');
  readln(m2);
  write('m=');
  readln(m);
  s:=0;
   
  recurs(b,a,m,m1,m2,1,s,m,n);
  readln;
end.