Деление числа без остатка

[grom333]

Нужно сделать вот что: есть сумма, выбираем на сколько частей ее делить. например на 5. Заносятся 5 частей от этой суммы в эдиты. Но! числа целочисленные. В последнее число заносится остаток от остальных.
ПРИМЕР: 50 000/6 если на калькуляторе то: 8 333,33... Должно получиться:
8 333
8 333
8 333
8 333
8 333
8 335
т,е. если их обратно сейчас сложить получится 50 000
///////////
Пока писал вопрос решение в голову дошло)) =
a:=50 000 div 6 ; (a=8333)
b:=50000 mod 6; (b=2)
S:=a*6+b=50000.
//////////
Но тогда вопрос в том, как раскидать в эдиты эти числа изменяя делитель (от 3 до 6)?




В принципе в ручную знаю как, но может что-нибудь мудрые на этом форуме посоветуют?

[Человек_Борща]

Оставшаяся сумма div кол-во месяцев = сумма на каждый месяц из их кол-ва.

[Аватар]

Держать массив array[1..6] of TEdit, поместить в него Edit-ы и в цикле от 1 до делителя поместить значение, от делителя+1 до 6 - очистить

[grom333]

ребят, мне задание не правильно объяснили... Числа надо так разделить, чтобы у них на конце было 5 или 0.
Т.е. Число 50 000 делим на 6 получается : 8 335+8 335+8 335+8 335+8 335+8325 или
8335*5+8325.
Как до такого додумать можно? Это уже не простое деление.

[Аватар]

var i,k,j,xOst1,xOst2: Integer;
    xArray: array [1..6] of Integer;
begin
  k:=80000 div 6;
  xOst1:=80000 mod 6;
  xOst2:=0;
  for i:=1 to 5 do begin
    j:=(k+xOst2) mod 5;
    if j<=2 then begin
      xArray[i]:=k+xOst2-j;
      xOst2:=j;
    end
    else begin
      xArray[i]:=k+xOst2+5-j;
      xOst2:=j-5;
    end;
  end;
  xArray[6]:=k+xOst2+xOst1;
end;

[grom333]

Сообщение от Аватар

var i,k,j,xOst1,xOst2: Integer;
    xArray: array [1..6] of Integer;
begin
  k:=80000 div 6;
  xOst1:=80000 mod 6;
  xOst2:=0;
  for i:=1 to 5 do begin
    j:=(k+xOst2) mod 5;
    if j<=2 then begin
      xArray[i]:=k+xOst2-j;
      xOst2:=j;
    end
    else begin
      xArray[i]:=k+xOst2+5-j;
      xOst2:=j-5;
    end;
  end;
  xArray[6]:=k+xOst2+xOst1;
end;

Аватар, спасибо большое. Сколько уже раз помогли, а я все не могу плюс поставить... странная немного система

[Аватар]

Вот еще вариант, чуть поинтересней

var i,k,j,xSum: Integer;
    xArray: array [1..6] of Integer;
    xAvg,xOst,xVsp: Real;
begin
  xAvg:=80000/6;
  xOst:=0;
  xSum:=0;
  for i:=1 to 5 do begin
    k:=Round(xAvg+xOst);
    j:=k mod 5;
    if j<=2 then xArray[i]:=k-j
            else xArray[i]:=k+5-j;
    xOst:=xAvg-xArray[i];
    Inc(xSum,xArray[i]);
  end;
  xArray[6]:=80000-xSum;
end;