algorithm - 一个数除以另一个数多少次，剩下多少？

Question

我需要 Delphi 中的一种算法来为指定的整数值生成分区。

示例：对于 13，如果将 5 指定为分区的最大值，它将给出 5、5、3；如果将 4 指定为最大分区值，则结果应为 4、4、4、1，依此类推。

Answer 1

div使用和解决问题很简单mod。这是一个我认为不需要进一步解释的示例程序：

program IntegerPartitions;
{$APPTYPE CONSOLE}

function Partitions(const Total, Part: Integer): TArray<Integer>;
var
  Count: Integer;
  Rem: Integer;
  i: Integer;
begin
  Assert(Total>0);
  Assert(Part>0);

  Count := Total div Part;
  Rem := Total mod Part;
  if Rem=0 then
    SetLength(Result, Count)
  else
    SetLength(Result, Count+1);
  for i := 0 to Count-1 do
    Result[i] := Part;
  if Rem<>0 then
    Result[Count] := Rem;
end;

var
  Value: Integer;

begin
  for Value in Partitions(13, 5) do
    Writeln(Value);
  Readln;
end.