aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Programm simuliert die Umlaufbahn eines Satelliten um die Erde.

Die Umlaufbahn wird dabei mit Sin/Cos berechnet.

Programm

program satellitenweg; {von Fabian Reuter 22.03.06}
uses crt,graph;
var x,y:real;i,v,erde,erde2:longint;a,b:integer;
begin

a:=detect;
initgraph(a,b,'');

erde:=300;erde2:=225;

randomize;

setfillstyle(solidfill,1);
fillEllipse(300, 225, 43, 40);

for v:=1 to 250 do
begin
putpixel(erde+random(50),erde2+random(50),2);
putpixel(erde-random(50),erde2+random(50),2);
putpixel(erde+random(50),erde2-random(50),2);

putpixel(erde+random(50),erde2+random(50),brown);
putpixel(erde-random(50),erde2+random(50),brown);
putpixel(erde+random(50),erde2-random(50),brown);
putpixel(erde-random(50),erde2-random(50),brown);
end;

Ellipse(300, 225, 0, 360, 43, 40);

setfillstyle(solidfill,0);
floodfill(100,100,15);

repeat

for i:=1 to 65 do
begin
x:=cos(50*i); y:=sin(50*i);
putpixel(round(x*80)+300,round(y*140)+225,15);
if (((x*90)+300)<250) or (((x*90)+300)>350) then delay(55) else delay(100);
end;

for i:=1 to 65 do
begin
x:=cos(50*i); y:=sin(50*i);
putpixel(round(x*80)+300,round(y*140)+225,0);
end;

until keypressed;
readln;
closegraph;
end.

---

Gastarbeiter 18:33, 22. Mär 2006 (CET)

---