Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on circles name using pascal graphics

Critics Rating:

Users Rating:

(*CIRCLES--NAME*)

program name;

uses crt,graph;

var

gd,gm:integer;

i,a,s:integer;

begin

clrscr;

gd:=detect;

initgraph(gd,gm,"");

settextstyle(4,0,9);

for i:=1 to 12 do

begin

delay(2000);

circle(10*i,10*i,i*5);

circle(600-10*i,10*i,i*5);

circle(10*i,480-10*i,i*5);

circle(600-10*i,480-10*i,i*5);

end;

delay(5000);

outtextxy(35,175,"Kishore");

delay(15000);

rectangle(20,200,580,280);

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.