aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Programm ist eine verbesserte Version, mit Sternen und Planeten !

Programm

uses crt,dos,graph;
var a,b,x,y,i,w,v,erde:integer;

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

randomize;

repeat

for i:=1 to 1000 do
begin
PutPixel(Random(675),Random(500),15);
end;

for w:=1 to 22 do begin
y:=random(600);
x:=random(450);
setcolor(15);


for v:=1 to 3 do
begin
moveto(y,x);
lineto(y+random(5),x+random(5));
moveto(y,x);
lineto(y-random(5),x-random(5));
moveto(y,x);
lineto(y-random(5),x+random(5));
moveto(y,x);
lineto(y+random(5),x-random(5));
end;

delay(40);
end;

for i:=1 to 2 do
begin
setcolor(1);
erde:=random(500);
setfillstyle(solidfill,1);
fillellipse(erde,erde,15,15);
setcolor(15);

for v:=1 to 30 do
begin
putpixel(erde+random(13),erde+random(12),2);
putpixel(erde-random(13),erde+random(12),2);
putpixel(erde+random(13),erde-random(12),2);

putpixel(erde+random(13),erde+random(12),brown);
putpixel(erde-random(13),erde+random(12),brown);
putpixel(erde+random(13),erde-random(12),brown);
putpixel(erde-random(13),erde-random(12),brown);
end;


end;

readln;
cleardevice;
until keypressed;



readln;
closegraph;
end.

---

--Gastarbeiter 12:22, 27. Feb 2006 (CET)

---