{programin ozelligi degiskenlerin birbirleriyle iliskili olmasidir} {ornegin, masa otelendiginde sandalye de onu takip eder} {veya, duvar kalinligi degistiginde pencere de degisir} {denemek icin ilk satirlardaki degiskenler degistirilmelidir}
PROGRAM ODEV1;
USES CRT, GRAPH; {grafik moduna ge‡irir} VAR GRSUR, GRMOD, d,x1,y1,a,b,g,pyan,pgen: INTEGER; VAR masax,masay,masaen,masaboy,sanen,sander,kolx1,koly1,kolx2,koly2: INTEGER;
BEGIN DETECTGRAPH (GRSUR, GRMOD); INITGRAPH (GRSUR, GRMOD, 'C:\tp\bgi'); IF GRAPHRESULT <> GROK THEN HALT (1);
LINE (x1,y1+b,x1,y1); LINE (x1+d,y1+b,x1+d,y1+d); {duvar dis ve ic cizgileri} LINE (x1,y1,x1+a,y1); LINE (x1+d,y1+d,x1+a-d,y1+d); LINE (x1+a,y1,x1+a,y1+b); LINE (x1+a-d,y1+d,x1+a-d,y1+b-d); LINE (x1+a,y1+b,x1+d+g,y1+b); LINE (x1+a-d,y1+b-d,x1+d+g,y1+b-d);
LINE (x1,y1+b,x1+d,y1+b); LINE (x1+d+g,y1+b,x1+d+g,y1+b-d); {duvar kapatma cizgileri}
LINE (x1+pyan,y1,x1+pyan,y1+d); {pencere yerlestir} LINE (x1+pyan+pgen,y1,x1+pyan+pgen,y1+d); LINE (x1+pyan,y1+d-10,x1+pyan+pgen,y1+d-10);
SETCOLOR (8); {sandalye ciz & yerlestir} RECTANGLE (masax-sander-20,masay-sanen div 2+masaboy div 2,masax-20,masay+sanen div 2+masaboy div 2);
{sandalye icin kolcak nokta koordinatlari} kolx1:=masax-5-sanen; koly1:=masay+masaboy div 2-sanen div 2+5; kolx2:=kolx1+sander-5; koly2:=koly1+sanen-10;
LINE (kolx2,koly1,kolx1,koly1); {sandalye kolcaklarini ciz} LINE (kolx1,koly1,kolx1,koly2); LINE (kolx1,koly2,kolx2,koly2);
{programin ozelligi degiskenlerin birbirleriyle iliskili olmasidir}
YanıtlaSil{ornegin, masa otelendiginde sandalye de onu takip eder}
{veya, duvar kalinligi degistiginde pencere de degisir}
{denemek icin ilk satirlardaki degiskenler degistirilmelidir}
PROGRAM ODEV1;
USES CRT, GRAPH; {grafik moduna ge‡irir}
VAR GRSUR, GRMOD, d,x1,y1,a,b,g,pyan,pgen: INTEGER;
VAR masax,masay,masaen,masaboy,sanen,sander,kolx1,koly1,kolx2,koly2: INTEGER;
BEGIN
DETECTGRAPH (GRSUR, GRMOD);
INITGRAPH (GRSUR, GRMOD, 'C:\tp\bgi');
IF GRAPHRESULT <> GROK THEN HALT (1);
CLEARDEVICE;
d:=15; {duvar kalinligi}
g:=90; {kapi genisligi}
x1:=10; {sol st k”se x degeri}
y1:=10; {sol st k”se y degeri}
a:=400; {en}
b:=400; {boy}
pyan:=100; {pencerenin sol duvardan uzakligi}
pgen:=200; {pencere genisligi}
masax:=320; {masa k”sesi x koordinati}
masay:=90; {masa k”sesi x koordinati}
masaen:=70; {masa eni}
masaboy:=130; {masa boyu}
sanen:=60; {sandayle eni}
sander:=50; {sandalye derinligi}
LINE (x1,y1+b,x1,y1); LINE (x1+d,y1+b,x1+d,y1+d); {duvar dis ve ic cizgileri}
LINE (x1,y1,x1+a,y1); LINE (x1+d,y1+d,x1+a-d,y1+d);
LINE (x1+a,y1,x1+a,y1+b); LINE (x1+a-d,y1+d,x1+a-d,y1+b-d);
LINE (x1+a,y1+b,x1+d+g,y1+b); LINE (x1+a-d,y1+b-d,x1+d+g,y1+b-d);
LINE (x1,y1+b,x1+d,y1+b); LINE (x1+d+g,y1+b,x1+d+g,y1+b-d); {duvar kapatma cizgileri}
LINE (x1+pyan,y1,x1+pyan,y1+d); {pencere yerlestir}
LINE (x1+pyan+pgen,y1,x1+pyan+pgen,y1+d);
LINE (x1+pyan,y1+d-10,x1+pyan+pgen,y1+d-10);
SETCOLOR (4);
RECTANGLE (masax,masay,masax+masaen,masay+masaboy); {masa ciz & yerlestir}
SETCOLOR (8);
{sandalye ciz & yerlestir}
RECTANGLE (masax-sander-20,masay-sanen div 2+masaboy div 2,masax-20,masay+sanen div 2+masaboy div 2);
{sandalye icin kolcak nokta koordinatlari}
kolx1:=masax-5-sanen; koly1:=masay+masaboy div 2-sanen div 2+5;
kolx2:=kolx1+sander-5; koly2:=koly1+sanen-10;
LINE (kolx2,koly1,kolx1,koly1); {sandalye kolcaklarini ciz}
LINE (kolx1,koly1,kolx1,koly2);
LINE (kolx1,koly2,kolx2,koly2);
READLN;
CLOSEGRAPH;
END.