Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on a boy using pascal graphics

Critics Rating:

Users Rating:

(* A BOY *)

program name;

uses crt,graph;

var

gd,gm:integer;

i,a,s:integer;

begin

clrscr;

gd:=detect;

initgraph(gd,gm,"5");

circle(300,130,28);

delay(5000);

line(300,160,300,280);

delay(5000);

line(300,160,200,220);

delay(5000);

line(300,160,400,220);

delay(5000);

line(300,280,200,380);

delay(5000);

line(300,280,400,380);

delay(5000);

outtextxy(285,120,"-");

delay(5000);

outtextxy(312,120,"-");

delay(5000);

outtextxy(298,130,"|");

delay(5000);

outtextxy(295,144,"--");

delay(5000);

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.