Vektor mit bestimmtem winkel erzeugen

[Antigo]

erstmal danke für eure Hilfe. meine Prozedur sieht jetzt so aus:

Delphi-Quellcode:

procedure TVektor.setzewinkel(alpha:double);
begin
 if alpha <= 0 then alpha:=360+alpha;
 x1:=cos(degtorad(alpha))*giblaenge;
 x2:=sin(degtorad(alpha))*giblaenge;
end;

meine Prozedur gibwinkel sieht so aus:

Delphi-Quellcode:

function TVektor.Gibwinkel2;
begin
  if x2 >= 0 then result:=radtodeg(arccos(x1/giblaenge))
  else result:=360-radtodeg(arccos(x1/giblaenge))
end;

Generell funktioniert das ganze auch. Zumindest ungefähr. Ich mache nun bei meinem kleinens SPielchen folgendes:

Delphi-Quellcode:

   
  kanone.vrohr.setzewinkel(45);
  showmessage(floattostr(kanone.vrohr.gibwinkel));

Ich setze den Winkel also auf 45 Grad und lasse ihne sofort danach ausgeben. Heraus kommt aber nicht 45 ° sondern
~50,76. Durch diese UNgenauigkeiten wird alles ziemlich unschön. Ich arbeite aber überall mit doppelter Genauigkeit. WIe kann ich da wo etwas verbessern? Ich danke schonmal im vorraus