Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on circles using circles and stars

Critics Rating:

Users Rating:

(* CIRCLES STARS *)

program graphics;

uses crt,graph;

var

gd,gm,i:integer;

color:word;

begin

clrscr;

gd:=detect;

initgraph(gd,gm," ");

settextstyle(1,0,9);

i:=0;

repeat

i:=i+1;

delay(500);

circle(50,30+10*i,30);

until i=40;

i:=0;

repeat

i:=i+1;

delay(500);

circle(50+10*i,430,30);

until i=50;

i:=0;

repeat

i:=i+1;

delay(500);

circle(550,440-10*i,30);

until i=41;

i:=0;

repeat

i:=i+1;

delay(500);

circle(550-10*i,30,30);

until i=50;

delay(1000);

outtextxy(82,150,"NIRANJAN");

color:=getmaxcolor;

for i:=1 to 5000 do

begin

putpixel(random(1000),random(1000),color);

delay(10);

end;

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.