Wie verteilt man den Rest einer Division?

Question

Ich brauche 23 Studenten bis 5 Gruppen zu unterteilen, so

Dim i as Integer = 23 Mod 5 

gibt Rest = 3.

Wie kann ich den Rest verteilen, so dass die erste, zweite und dritte Gruppe wird 1 Mitglied mehr haben als die anderen?

Oder wie die Verteilung in umgekehrter Reihenfolge zu starten, wo die fünfte, vierte und dritte haben 1 zusätzliches Mitglied?

ich diese Werte erhalten möchten:

Dim groups(4) As Integer 
groups(0) = 5 
groups(1) = 5 
groups(2) = 5 
groups(3) = 4 
groups(4) = 4 

Answer 1

So, hier ist das Setup:

Dim groups As Integer() = New Integer(4) {} 
Dim students As Integer = 23 

Sie wissen, wie die Gruppengröße und den Rest zu berechnen:

Dim groupSize As Integer = students \ groups.Length  ' \ is integer division 
Dim remainder As Integer = students Mod groups.Length 

Dann gehe durch jede Gruppe und weise ihr die Größe zu:

For i As Integer = 0 To groups.Length-1 
    groups(i) = groupSize 
Next 

Schließlich müssen Sie den Rest verteilen. Entsprechend Ihrer Frage, möchten Sie 1 zu der ersten Rest Anzahl der Gruppen hinzufügen.

was übersetzt:

For i As Integer = 0 To remainder-1 
    groups(i) = groups(i) + 1 
Next 

Answer 2

Dies funktioniert für mich:

Dim value = 23 
Dim divisor = 5 
Dim remainder = value Mod divisor 

Dim groups(divisor - 1) As Integer 

For i = 0 To divisor - 1 
    groups(i) = value \ divisor + If(i < remainder, 1, 0) 
Next 

Answer 3

Sie folgenden Code versuchen

Dim r As Integer = 23 Mod 5 
Dim d As Integer = 23 \ 5 
Dim group(4) As Integer 
For i = 0 To group.Length - 1 
    group(i) = d 
    If r > 0 Then 
     group(i) += 1 
     r -= 1 
    End If 
Next