Wert zu einem Faktor hin runden

[xZise]

Gibt es eine schnelle Möglichkeit einen Wert (z.B. 142) zu einem bestimmten Wert hin zu runden (z.B. 7)?

Also z.Zt. gehe ich da folgendermaßen vor:

Delphi-Quellcode:

Round(Round(Wert / Faktor) * Faktor)

Allerdings soll das Ergebnis eine Ganzzahl sein und der Faktor ist ein Extended. (Wert ist eine Ganzzahl)!

[shmia]

Wenn du komplett bei Integer-Arithmetik bleiben möchtest:

Delphi-Quellcode:

var
   wert, faktor : integer;
begin
   wert := 1000;
   faktor := 7;
   wert := ((wert+(faktor div 2)) div faktor) * faktor;
end;

[xZise]

Problem: Faktor ist ein Extended

Zitat:

[Fehler] &&&&&& E2015 Operator ist auf diesen Operandentyp nicht anwendbar

[shmia]

Zitat:

Zitat von xZise

Problem: Faktor ist ein Extended

Du kannst/musst die Variable Faktor zuvor einmal runden:

Delphi-Quellcode:

var 
   wert, ifaktor : integer; 
   faktor : extended;
begin 
   wert := 1000; 
   faktor := 7.0; 
   ifaktor := round(faktor);
   wert := ((wert+(faktor div 2)) div faktor) * faktor; 
end;

[xZise]

Zitat:

Zitat von shmia

Du kannst/musst die Variable Faktor zuvor einmal runden:

Problem ist dann, dass es kein Vielfaches mehr vom Faktor ist ;)

[shmia]

Zitat:

Zitat von xZise

Problem ist dann, dass es kein Vielfaches mehr vom Faktor ist ;)

Dann mach mal ein vollständiges Beispiel, damit man versteht was gemeint ist.

Delphi-Quellcode:

wert := 1000;
faktor := 10.5;

Und was soll jetzt das Ergebnis der Operation sein?

[xZise]

Okay, dann versuche ich es mal:
Du hast einen Rotwert (0-255).
Und jetzt kann er nicht alle Wert haben (also 0-255), sondern nur 1/6 - 6/6 haben kann (also immer sechstel).

Ich mache mal ein Beispiel:

Zitat:

Farbwert: 125

Auf die Sechstel bezogen ergibt das 3/6!

[Khabarakh]

@xZise: Dein erster Code geht doch genau in die richtige Richtung, nur das äußere Round ist natürlich Quatsch.

Delphi-Quellcode:

function RoundTo2(AValue: Integer; ADingens2: Extended): Extended;
begin
  Result := ADingens2 * Round(AValue / ADingens2);
end;

begin
  Writeln(RoundTo2(142, 7.5)); // Ergibt 142,5
  Readln;
end.

@shmia: Etwas verständlicher ausgedrückt: Gesucht werde das Vielfache von y mit dem kleinsten Abstand zu x.

[xZise]

Okay... Mal darauf bezogen das ich eionen Integer wiederhaben wollte, hat sich damit die Frage geklärt. Geht es noch "schneller"?

[Khabarakh]

Aha. 3/6 (bzw. 3/6 * 255) ist also eine Ganzzahl, alles klar :stupid: .
Und wie soll das noch schneller gehen, außer vielleicht mit ASM und SSE o.Ä.?