Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on house using pascal graphics

Critics Rating:

Users Rating:

(* HOUSE *)

program graphics;

uses crt,graph;

var

gd,gm:integer;

i:integer;

color:word;

begin

clrscr;

gd:=detect;

initgraph(gd,gm," ");

delay(5000);

line(300,50,100,200);

delay(5000);

line(300,50,500,200);

delay(5000);

line(100,200,500,200);

delay(5000);

line(120,200,120,450);

delay(5000);

line(480,200,480,450);

delay(5000);

line(120,450,480,450);

delay(5000);

rectangle(150,240,200,290);

delay(5000);

line(160,240,160,290);

delay(5000);

line(170,240,170,290);

delay(5000);

line(180,240,180,290);

delay(5000);

line(190,240,190,290);

delay(5000);

rectangle(350,280,450,450);

delay(5000);

line(350,280,390,300);

delay(5000);

line(390,300,390,430);

delay(5000);

line(350,450,390,430);

outtextxy(375,360,"--");

settextstyle(1,0,4);

outtextxy(300,200,"welcome");

delay(5000);

rectangle(300,210,430,240);

delay(5000);

line(320,200,320,210);

delay(5000);

line(410,200,410,210);

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.