Kürzester rotationsweg bei einem Kreis?

[Popov]

Wenn du noch Lust hast kannst du das testen. Hab es beim telefonieren geschrieben und muss jetzt weg. Schade zum wegwerfen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, r1, r2: Integer;
begin
  a := 270;
  b := 90;

  //if a = b nicht vergessen

  if a > b then
  begin
    r1 := -(a - b);
    r2 := b + 360 - a;
  end
  else
  begin
    r1 := (b - a) - 360;
    r2 := b - a;
  end;

  ShowMessage(IntToStr(r1) + ' / ' + IntToStr(r2));
end;

Wie gesagt, muss noch richtig getestet werden.