Program vykreslí vesmír

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: KMP (Programy mladých programátorů)
vesmir.pngProgram: Vesmir.pas
Soubor exe: Vesmir.exe
Potřebné: Egavga.bgi

Program vykreslí vesmír.
{ VESMIR.PAS                                                        }
{ Program vykresli vesmir.                                          }
{                                                                   }
{ Datum:17.06.2008                             http://www.trsek.com }
 
program vesmir;
   uses crt,graph;
   var gd,gm:integer;
 
begin
 
 initgraph(gd,gm,' ');
 detectgraph(gd,gm);
 
 setfillstyle(1, 14);
 setcolor(14);
 circle(200,300,30);
 FloodFill(200, 300,14);
 
 setfillstyle(1, 10);
 setcolor(10);
 circle(300,56,5);
 floodfill(300,56,10);
 ellipse(200,300,0,360,450,250);
 
 setfillstyle(1, 3);
 setcolor(3);
 circle(700, 300,14);
 floodfill(700,300,3);
 Ellipse(200, 300,0, 360, 500, 100);
 
 setfillstyle(1, 4);
 setcolor(4);
 circle(320,420,18);
 floodfill(320,420,4);
 ellipse(200,300,0,360,400,120);
 
 setfillstyle(1, 2);
 setcolor(2);
 circle(600,290,15);
 floodfill(600,290,2);
 ellipse(200,300,0,360,400,90);
 
 setfillstyle(1,5);
 setcolor(5);
 circle(100,220,20);
 floodfill(100,220,5);
 ellipse(200,300,0,360,300,80);
 
 setfillstyle(1,6);
 setcolor(6);
 circle(140,230,9);
 floodfill(140,230,6);
 ellipse(200,300,0,360,240,70);
 
 setfillstyle(1,13);
 setcolor(13);
 circle(320,300,7);
 floodfill(320,300,13);
 ellipse(200,300,0,360,120,40);
 
 setfillstyle(1,12);
 setcolor(12);
 circle(250,340,10);
 floodfill(250,340,12);
 ellipse(200,300,0,360,130,45);
 
 setfillstyle(1,9);
 setcolor(9);
 circle(200,350,11);
 floodfill(200,350,9);
 ellipse(200,300,0,360,150,50);
 
 readln;
end.