Fórum Duvida com algoritimo #264779

const
  TCheques = 13;

var
  Cheques: array[0..TCheques - 1] of Integer = (10, 25, 45, 50, 65, 80, 90, 112, 200, 250, 320, 540, 789);
  Baixa: array[0..TCheques - 1] of Boolean;

function DarBaixa1(Valor: Integer): Boolean;
var
  Topo, Cor, Dev: Integer;
begin
  Topo := High(Cheques);
  while Topo >= 0 do
  begin
    FillChar(Baixa, SizeOf(Baixa), 0);
    Cor := Topo;
    Dev := Valor;
    while Cor >= 0 do
    begin
      if Cheques[Cor] <= Dev then
      begin
        Baixa[Cor] := True;
        Dec(Dev, Cheques[Cor]);
        if Dev = 0 then
        begin
          Result := True;
          Exit;
        end;
      end;
      Dec(Cor);
    end;
    Dec(Topo);
  end;
  Result := False;
end;

function DarBaixa2(Valor: Integer): Boolean;

  function _DarBaixa(Valor, Max: Integer): Boolean;
  var
    Topo, Cor, Dev: Integer;
  begin
    Topo := Max;
    while Topo >= 0 do
    begin
      FillChar(Baixa, Max + 1, 0);
      Cor := Topo;
      Dev := Valor;
      while Cor >= 0 do
      begin
        if Cheques[Cor] <= Dev then
        begin
          Baixa[Cor] := True;
          Dec(Dev, Cheques[Cor]);
          if (Dev = 0) or _DarBaixa(Dev, Cor - 1) then
          begin
            Result := True;
            Exit;
          end;
        end;
        Dec(Cor);
      end;
      Dec(Topo);
    end;
    FillChar(Baixa, Max + 1, 0);
    Result := False;
  end;

begin
  Result := _DarBaixa(Valor, High(Cheques));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Indice: Integer;
begin
  ListBox1.Clear;
  if DarBaixa2(StrToInt(Edit1.Text)) then
  begin
    for Indice := 0 to High(Cheques) do
    begin
      if Baixa[Indice] then
        ListBox1.Items.Add(IntToStr(Cheques[Indice]));
    end;
  end;
end;