11 Mart 2010 Perşembe

Ödev 1- Serdar Aşut

1 yorum:

  1. {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);

    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.

    YanıtlaSil