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(0,0,3);

outtextxy(21,21,"K");

delay(10000);

circle(30,30,25);

settextstyle(0,0,3);

outtextxy(100,70,"I");

delay(10000);

circle(110,80,25);

settextstyle(0,0,3);

outtextxy(180,130,"S");

delay(10000);

circle(190,140,25);

settextstyle(0,0,3);

outtextxy(265,190,"H");

delay(10000);

circle(275,200,25);

settextstyle(0,0,3);

outtextxy(340,260,"O");

delay(10000);

circle(350,265,25);

settextstyle(0,0,3);

outtextxy(410,316,"R");

delay(10000);

circle(425,325,25);

settextstyle(0,0,3);

outtextxy(490,385,"E");

delay(10000);

circle(500,395,25);

settextstyle(0,0,3);

outtextxy(570,445,"A");

delay(10000);

circle(580,450,25);

for i:=1 to 5 do

begin

delay(1000);

circle(30,30,i*5);

circle(110,80,i*5);

circle(190,140,i*5);

circle(275,200,i*5);

circle(350,265,i*5);

circle(425,325,i*5);

circle(500,395,i*5);

circle(580,450,i*5);

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.