Help Creating Compex Function;

[Bad Boy JH]

Difficult Problem...
I have 3 variables
ThreeVotes
FiveVotes
TenVotes

Worth 3, 5, and 10 votes each, respectivly. What I need is a function that gets a combination of those votes, that adds up to 55, using as many 3s, and a few 10s as possible, If they canot add to exactly 55, it should be slightly over...

Needs to return the amounts of each vote used...

[EvilChicken!]

const
  DESIRED_TOTAL = 55;

function CountVotes(var ThreeVotes, FiveVotes, TenVotes: Integer): Integer;
var
  Total, I, _3, _5, _10: Integer;
begin
  try
    _3 := ThreeVotes;
    for I := 1 to _3 do
    begin
      IncEx(Total, 3);
      ThreeVotes := I;

      if (Total >= DESIRED_TOTAL) then
      begin
        FiveVotes := 0;
        TenVotes := 0;
        Exit;
      end;
    end;

    _5 := FiveVotes;
    for I := 0 to _5 do
    begin
      IncEx(Total, 5);
      FiveVotes := I;

      if (Total >= DESIRED_TOTAL) then
      begin
        TenVotes := 0;
        Exit;
      end;
    end;

    _10 := TenVotes;
    for I := 0 to _10 do
    begin
      IncEx(Total, 10);
      TenVotes := I;

      if (Total >= DESIRED_TOTAL) then
        Exit;
    end;

  finally
    Result := Total;
  end;
end;

var
  Three, Five, Ten, Res: Integer;

begin
  Three := 2;
  Five  := 5;
  Ten   := 100;
  Res   := CountVotes(Three, Five, Ten);
  WriteLn('Reached a total of ' + ToStr(Res) + ' using #' +
    ToStr(Three) + ' votes worth 3, #' + ToStr(Five) +
    ' votes worth 5 and #' + ToStr(Ten) + ' votes worth 10.');
end.

Reached a total of 56 using #2 votes worth 3, #5 votes worth 5 and #1 votes worth 10.

This is my interpretation of your request.. Is it anything like you wanted?
I didn't try to shorten it so you could understand the code more easily -- although shortening would be easily accomplished by combining all the elements in one array and using a for-to-loop.

[Bad Boy JH]

Sort of, But I needs to prioritise the 55 votes thing...

var
  Vote10Used, Vote10UnUsed, Vote5Used, Vote5UnUsed, Vote3Used, Vote3UnUsed: Integer
begin
  Vote10UnUseed := TenVote;
  Vote5UnUsed := FiveVote - 2;
  Vote3UnUsed := ThreeVote - 15;
  Vote3Used := 15;
  Vote5Used := 2;
  
  While Vote3Unused < 0 do
  begin
    DecEx(Vote3Used, 5);
    IncEx(Vote3UnUsed, 5);
    DecEx(Vote5UnUsed, 3);
    IncEx(Vote5Used, 3);
  end;
  While Vote5UnUsed < 0 do
  begin
    if Vote10UnUsed > 0 then
    begin
      Inc(Vote10Used);
      Dec(Vote10UnUsed);
      IncEx(Vote5UnUsed, 2);
      DecEx(Vote5Used, 2);
    end else begin
      DecEx(Vote3Used, Vote5UnUsed * 2);
      IncEx(Vote3UnUses, Vote5UnUsed * 2);
      DecEx(Vote5UnUsed, Vote5UnUsed);
      IncEx(Vote5Used, Vote5UnUsed);
    end;
  end;
end;

What about that, Anyone see a problem with that?

[EvilChicken!]

I needs to prioritise the 55 votes thing...

>_<
You should have mentioned that getting it to become as close to 55 votes as possible was top priority.

[nielsie95]

Here's for exactly 55:

program New;
const
  Votes3  = 40;
  Votes5  = 0;
  Votes10 = 2;
var
  i, m: Integer;
  v: array[0..2] of Integer;
begin
  for i := 3 downto 0 do
  begin
    if (Floor(Votes3 / 5.0) < i) then
      Continue;
    v[0] := i * 5;
    m := Floor((55 - (i * 15)) / 5.0);
    if (Votes5 < m) then
    begin
      if ((m mod 2) = 1) then
      begin
        if (Votes5 < 1) then
          Continue;
        v[1] := Votes5 - 1;
        m := Floor((m - (Votes5 - 1)) / 2.0)
      end
      else
      begin
        v[1] := Votes5;
        m := Floor((m - Votes5) / 2.0);
      end;

      if (Votes10 < m) then
      begin
        WriteLn('Impossible');
        Exit;
      end;
      
      v[2] := m;
      Break;
    end
    else
    begin
      v[1] := m;
      Break;
    end;
  end;
  
  if (v[0] * 3 + v[1] * 5 + v[2] * 10 <> 55) then
  begin
    WriteLn('Impossible');
    Exit;
  end;
  
  WriteLn(Format('Votes3: %d  --  Votes5: %d  --  Votes10: %d', [v[0], v[1], v[2]]));
end.