Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Ganze Zahl runden

   
    by BUG, 14. Feb 2011
  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.
  
  function Runde(N, R : Integer) : Integer;
  var rest: integer;
  begin
  rest := N div R;
  if (rest <> 0)
  then result := N + (R-rest);