Forum: Sonstige Fragen zu Delphi
Delphi
by alcaeus,
23. Sep 2004
:oops: ich sollte mal zurück in die Schule ;)
@Moritz: also so: h := r*cos(DegToRad(180/n));
Greetz
alcaeus
Forum: Sonstige Fragen zu Delphi
Delphi
by alcaeus,
23. Sep 2004
Hi Moritz,
eigentlich so:
h := r*cos(DegToRad(360/n));
oder analog:
h := r*cos(2*Pi/n);
Wichtig ist, dass du den Winkel in Radianten übergibst!
Greetz
Forum: Sonstige Fragen zu Delphi
Delphi
by alcaeus,
23. Sep 2004
Hi Moritz,
das hast du davon wenn du Warnungen ignorierst. :mrgreen:
Ist auch klar:
yn := yn - Round(r*sin(DegToRad(i*360/n)));
Die Richtige Zeile lautet:
yn := ym - Round(r*sin(DegToRad(i*360/n)));
Greetz
Forum: Sonstige Fragen zu Delphi
Delphi
by alcaeus,
23. Sep 2004
Hi Moritz,
die wahrscheinlich beste Möglichkeit ist mit Trig-Funktionen zu arbeiten.
function DegToRad(Deg: Real): Real;
begin
Result := Deg*Pi/180;
end;
procedure ZeichneNEck(xm, ym, r: Real; n: Integer);