Stückweise addierung

[smc]

Hallo,

habe mal wieder eine frage.
Weiss jemand zufällig wie man eine stückweise addierung realisieren kann?

z.b.

anfangswert ist: 1250
endwert ist: 2973

nun will ich von dem anfangswert in 50er schritten auf den endwert kommen.

also immer 1250 + 50 = 1300, 1300 + 50 = 1350, etc.

natürlich kommt man nicht direkt auf die 2973, die restlichen 23 sollen dann erkannt und addiert werden

[inherited]

so vllt?
if aktuellerwert+50 > endwert then zuaddierung := endwert - aktuellerwert so far

[pacman1986]

Delphi-Quellcode:

repeat
  wert := wert + 50;
until (wert+50) => endwert;
wert := wert +(endwert-wert);

sollte gehen

[marabu]

Ohne Kommentar:

Delphi-Quellcode:

uses
  Math;

var
  iStart, iEnde: Integer;
  wAnzahl, wRest: Word;

begin
  iStart := 1250;
  iEnde := 2973;
  DivMod(iEnde - iStart, 50, wAnzahl, wRest);
end;

Grüße vom marabu

[R2D2]

Addierung? --> Addition!

[marabu]

Auch ohne Kommentar:

Inc(iStart, Min(50, iEnde - iStart)); marabu