IF-Anweisung

[Sir Rufo]

Also wenn man solche Bereiche einteilen will, ohne dass man etwas vergisst, dann ist folgendes Vorgehen ratsam:

Delphi-Quellcode:

function Group( const Value : Extended ) : Integer;
begin

  // man kann die oberen und unteren Grenzen im Vorfeld behandeln
  if ( Value < 0 ) or ( Value >= 360 ) then
  begin
    // alternativ eine Exception werfen lassen
    raise Exception.CreateFmt( 'Wert %f ungültig. (0° <= Wert < 360°)', [ Value ] );
    // oder einfach einen Result zurückgeben, bei dem man weiß, da stimmt was nicht
    Result := -1;
    Exit;
  end;

  // oder wie hier beim Winkel kann man ja auch diesen umrechnen
  while ( Value < 0 ) do
    Value := Value + 360;

  while ( Value >= 360 ) do
    Value := Value - 360;

  // *** ab hier geht der Vergleich los ***

  // obere Grenze abfangen
  if ( Value >= 360 ) then Result := -1

  else if ( Value >= 270 ) then Result := 4 // 270 <= Value < 360
  else if ( Value >= 180 ) then Result := 3 // 180 <= Value < 270
  else if ( Value >=  90 ) then Result := 2 // 90 <= Value < 180
  else if ( Value >=   0 ) then Result := 1 // 0 <= Value < 90

  // untere Grenze abfangen
  else Result := -1; 

end;

[himitsu]

Zitat:

    raise Exception.CreateFmt( 'Wert %f ungültig. (0° <= Wert < 360°)', [ Value ] );

Stattdessen könnte man auch einfach den Wertebereich anpassen, denn als Kreisfunktion (unendlich wiederholend) gibt es auch Winkel kleiner 0° und größer/gleich 360°.

Für eine "genaue" Prüfung muß man also eigentlich nur die Werte in den gewünschen Bereich (0 <= w < 360) verschieben.

Delphi-Quellcode:

w := w mod 360;
if w < 0 then Inc(w, 360);

// oder
w := (w mod 360 + 360) mod 360;

// oder
w := w mod 360 + (Max(-Sign(w), 0) * 360);

// oder
w := w mod 360 - Sign(Min(w, 0)) * 360;

// oder
...

[Sir Rufo]

Was aber nur geht, wenn der Winkel als Integer deklariert ist ...

[himitsu]

Es gibt notfalls auch andere Wege, für reelle Zahlen. (aber hier war'n ja Integer, da geht es sehr einfach)