Forum: Object-Pascal / Delphi-Language
Delphi
by Christian S.,
17. Mai 2003
Mir ist noch was eingefallen: Du solltest Dir überlegen, ob Du "grad" nicht als Realwert deklarierst und in einer while-Schleife in kleineren Schritten erhöhst. Eine Genauigkeit von 1° (wie sie ja jetzt da steht) wird bei größeren Kreisen keine durchgezogene Linie mehr ergeben!
Forum: Object-Pascal / Delphi-Language
Delphi
by Christian S.,
17. Mai 2003
So sollte es gehen:
procedure erdbahn(x0,y0,r: integer);
var grad,x,y: integer;
phi: real;
begin
for grad:=0 to 359 do
begin
phi:=180/Pi*grad;
x:=round(r*cos(phi))+x0;