一個數字分成多少次，剩下多少？

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.