Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on solar system using pascal graphics

Critics Rating:

Users Rating:

(*SOLAR SYSTEM*)

program name;

uses crt,graph;

var

gd,gm:integer;

i:integer;

begin

clrscr;

gd:=detect;

initgraph(gd,gm,"5");

for i:=1 to 20 do

begin

delay(1000);

circle(300,240,1*i);

end;

for i:=1 to 10 do

begin

delay(10000);

circle(300,240,23*i);

end;

circle(345,240,5);

delay(5000);

circle(300,170,15);

delay(5000);

circle(210,240,15);

delay(5000);

circle(300,355,15);

delay(5000);

circle(440,240,15);

delay(5000);

circle(300,80,15);

delay(5000);

circle(115,240,15);

delay(5000);

circle(300,445,15);

delay(5000);

circle(530,240,15);

settextstyle(1,0,1);

delay(5000);

outtextxy(280,260,"SUN");

delay(5000);

outtextxy(320,240,"mercury");

delay(5000);

outtextxy(320,160,"venus");

delay(5000);

outtextxy(200,250,"earth");

delay(5000);

outtextxy(320,345,"mars");

delay(5000);

outtextxy(420,250,"jupiter");

delay(5000);

outtextxy(320,65,"saturn");

delay(5000);

outtextxy(90,250,"uranus");

delay(5000);

outtextxy(315,435,"neptune");

delay(5000);

outtextxy(550,230,"pluto");

delay(5000);

settextstyle(1,0,6);

delay(5000);

outtextxy(1,20,"SOLAR");

delay(5000);

outtextxy(452,20,"SYSTEM");

repeat until keypressed;

end.

Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.