Home   Easy-Code    Forum  Updater 
Twitter Facebook



Indian national flag using pascal graphics

Critics Rating:

Users Rating:

(* INDIAN NATIONAL FLAG *)

program graphics;

uses crt,graph;

var

gd,gm,i:integer;

color:word;

begin

clrscr;

gd:=detect;

initgraph(gd,gm," ");

delay(5000);

rectangle(225,125,355,155);

delay(5000);

rectangle(225,155,355,185);

delay(5000);

rectangle(225,185,355,215);

delay(5000);

rectangle(220,120,225,440);

delay(5000);

rectangle(200,440,245,450);

delay(5000);

rectangle(190,450,260,460);

delay(5000);

rectangle(175,460,275,470);

delay(5000);

circle(290,170,13);

delay(5000);

line(290,159,290,185);

delay(5000);

line(279,171,301,171);

delay(5000);

line(281,160,299,180);

delay(5000);

line(281,180,299,160);

delay(5000);

settextstyle(3,0,7);

delay(10000);

outtextxy(100,5,"I LOVE INDIA ");

delay(10000);

outtextxy(350,410,"NIRANJAN");

color:=getmaxcolor;

for i:=1 to 10000 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.