Membuat Gambar dengan Perintah Graph di Pascal

Contoh gambar desain dengan perintah graph:


syntax programnya:
uses graph;
var
DG,MG: integer;
begin
DG:= detect;
initgraph(DG,MG,' ');

{gedung tingkat 1}
rectangle(100,600,300,650);
rectangle(400,600,600,650);

line(125,610,175,610);
line(125,640,175,640);
line(115,615,115,635);
line(185,615,185,635);
arc(115,610,270,359,10);
arc(115,635,0,90,10);
arc(185,615,180,270,10);
arc(185,635,90,180,10);

line(225,610,275,610);
line(225,640,275,640);
line(215,615,215,635);
line(285,615,285,635);
arc(215,610,270,359,10);
arc(215,635,0,90,10);
arc(285,615,180,270,10);
arc(285,635,90,180,10);

line(425,610,475,610);
line(425,640,475,640);
line(415,615,415,635);
line(485,615,485,635);
arc(415,610,270,359,10);
arc(415,635,0,90,10);
arc(485,615,180,270,10);
arc(485,635,90,180,10);

line(525,610,575,610);
line(525,640,575,640);
line(515,615,515,635);
line(585,615,585,635);
arc(515,610,270,359,10);
arc(515,635,0,90,10);
arc(585,615,180,270,10);
arc(585,635,90,180,10);

{tiang tingkat 1}
rectangle(100,500,120,600);
rectangle(200,500,220,600);
rectangle(280,500,300,600);
rectangle(400,500,420,600);
rectangle(480,500,500,600);
rectangle(580,500,600,600);

{pintu}
rectangle(140,550,180,600);
circle(142,587,3);
rectangle(325,550,375,625);
line(350,550,350,625);
circle(351,585,3);
rectangle(510,550,540,600);
circle(512,585,3);

{jendela}
rectangle(225,525,275,548);
line(240,525,240,548);
line(260,525,260,548);
rectangle(425,525,475,548);
line(445,525,445,548);
rectangle(550,525,575,546);

{atap tingkat 1}
line(25,500,675,500);
line(100,450,600,450);
line(100,450,25,500);
line(675,500,600,450);
line(40,490,655,490);
line(50,480,645,480);
line(65,470,625,470);
line(80,460,610,460);
line(150,450,75,500);
line(200,450,125,500);
line(250,450,175,500);
line(300,450,225,500);
line(350,450,275,500);
line(400,450,325,500);
line(450,450,375,500);
line(500,450,425,500);
line(550,450,475,500);
line(600,450,525,500);
line(625,470,575,500);
line(650,485,625,500);

{gedung tingkat 2}
rectangle(100,400,600,450);

{tiang tingkat 2}
rectangle(100,300,120,400);
rectangle(200,300,220,400);
rectangle(280,300,300,400);
rectangle(400,300,420,400);
rectangle(480,300,500,400);
rectangle(580,300,600,400);

{elip}
ellipse(200,425,0,359,50,15);
ellipse(350,425,0,359,50,15);
ellipse(490,425,0,359,50,15);

{atap tingkat 2}
line(25,300,675,300);
line(100,225,600,225);
line(25,300,100,225);
line(675,300,600,225);
line(75,170,625,170);
line(75,170,100,225);
line(600,225,625,170);
line(40,290,660,290);
line(50,280,650,280);
line(60,270,640,270);
line(70,260,630,260);
line(75,250,620,250);
line(80,240,610,240);
line(90,230,605,230);
line(150,225,75,300);
line(200,225,125,300);
line(250,225,175,300);
line(300,225,225,300);
line(350,225,275,300);
line(400,225,325,300);
line(450,225,375,300);
line(500,225,425,300);
line(550,225,475,300);
line(600,225,525,300);
line(625,255,575,300);
line(650,280,630,300);
line(95,215,605,215);
line(90,205,610,205);
line(85,195,615,195);
line(80,185,620,185);
line(75,175,625,175);
line(150,170,95,215);
line(200,170,125,225);
line(250,170,175,225);
line(300,170,225,225);
line(350,170,275,225);
line(400,170,325,225);
line(450,170,375,225);
line(500,170,425,225);
line(550,170,475,225);
line(600,170,525,225);

{pintu}
rectangle(230,350,265,400);
circle(232,375,3);
rectangle(430,350,465,400);
circle(432,375,3);

{jendela}
rectangle(320,345,380,370);
line(340,345,340,370);
line(360,345,360,370);
rectangle(510,345,570,370);
line(530,345,530,370);
line(550,345,550,370);

{dasar}
line(10,675,700,675);

{tangga}
rectangle(300,630,400,670);
line(300,655,400,655);
line(300,640,400,640);

outtextxy(200,100,'######## Gedung KampusKu ########');
outtextxy(800,300,'Created by AGUS SUTRISNO');
outtextxy(810,320,'MI_A (AMIKGARUT) ');
outtextxy(810,340,'4311003');
outtextxy(810,400,'AMIK GARUT');


readln;
end.


semoga membantu........ :)