Ganze Zahl runden

[BBoy]

hat sich erledigt, mit SetRoundmode geht das dann ...
Danke.

[Manni]

Hallo Leute,

also ich hab's so gemacht :

function Runde(N, R : Integer) : string;
begin
repeat inc(N);
until N mod R = 0;
Result := IntToStr(N);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := Runde(StrToInt(edit1.Text), 5); // auf 5 runden, 10 auf 10 runden
end;

Grüße Manni

[BUG]

Zitat von Manni:

Hallo Leute,

also ich hab's so gemacht :

Das Problem bei deiner Variante ist, das die Schleife im schlimmsten Fall R-1 mal durchgelaufen wird.

Im Grunde führst du da eine Addition mit Hilfe von inc() und einer Schleife aus.

Delphi-Quellcode:

function Runde(N, R : Integer) : Integer;
var rest: integer;
begin
  rest := N div R;
  if (rest <> 0)
    then result := N + (R-rest);
    else result := N;
end;

[himitsu]

Ich hätt noch eine mathematische Lösung, nur mit/für Integern.

Delphi-Quellcode:

// aufrunden
x := x + (step - x mod step) mod step;