DESAIN RUMAH DENGAN TURBO PASCAL

                                                           Mendesain Rumah
                                              Dengan program Turbo pascal

hai gay bisa curhat gak ama anda sekalian,terutama anak teknik informatika.payah sekali gays mencari cara mendesain rumah denga turbo pascal.awalnya tugas ini di beri guru saya ,saya kira banyak di internet kok seperti ini besok besok kan bisa.jadi seminggu pas mau uts kami di nasehati guru kami itu supaya tidak lupa tugas kami ,saya dan kawan kawan  sibuk dan terburu buru yang paling sialnya komputer saya tidak bisa membaca grapiknya.ya ahirnya saya dan teman kompak saya membenarinnya.hari ini terahir hari ini juga kami siap .lebih para saya jam 8:30 malam batas ahir 11.59 .memang payah tapi kalau serius pasti bisa kok.kerna banyak kodingnya dan tingkat ke sulitannya tingkat dewa,makanya sedikit dibuat di internet. tapi jangan takut saya ajarin koding membuat  rumah walaupun gak sempurna dilengkapin hiasan pinggir
      tanpa membuat kawan kawan  menunggu nunggu lama dan capek ini saya kasih deh codingnya.



USES CRT,GRAPH;
VAR GD,GM,I:INTEGER;
PROCEDURE INIT;
BEGIN
  GD:=VGA;
  GM:=VGAHI;
  INITGRAPH(GD,GM,'D:\TP\BGI');
END;
PROCEDURE GARIS(X0,Y0,X1,Y1:INTEGER);
VAR LANGKAH:INTEGER;
    X,Y,DX,DY,X_INC,Y_INC:REAL;
BEGIN
  DX:=X1-X0;
  DY:=Y1-Y0;
  X:=X0;Y:=Y0;
  IF ABS(DX) > ABS(DY) THEN
    LANGKAH:=ROUND(ABS(DX))
  ELSE
    LANGKAH:=ROUND(ABS(DY));
  X_INC:=DX/LANGKAH;
  Y_INC:=DY/LANGKAH;
  PUTPIXEL(ROUND(X),ROUND(Y),4);
  FOR I:= 1 TO LANGKAH DO
  BEGIN
    X:=X+X_INC;
    Y:=Y+Y_INC;
    PUTPIXEL(ROUND(X),ROUND(Y),4);
    DELAY(2);
  END;
END;
PROCEDURE KOTAK(X0,Y0,X1,Y1:INTEGER);
BEGIN
  GARIS(X0,Y0,X1,Y0);
  GARIS(X1,Y0,X1,Y1);
  GARIS(X1,Y1,X0,Y1);
  GARIS(X0,Y1,X0,Y0);
END;
PROCEDURE SG3(X0,Y0,X1,Y1,X2,Y2:INTEGER);
BEGIN
  GARIS(X0,Y0,X1,Y1);
  GARIS(X1,Y1,X2,Y2);
  GARIS(X2,Y2,X0,Y0);
END;
PROCEDURE LINGKARAN(XC,YC,R:INTEGER);
VAR LANGKAH,X,Y,SUDUT:REAL;
    I:INTEGER;
BEGIN
  SUDUT:=0;
  LANGKAH:=PI*2/360;
  FOR I:= 1 TO 360 DO
  BEGIN
    X:=XC+R*COS(SUDUT);
    Y:=YC-R*SIN(SUDUT);
    SUDUT:=SUDUT+LANGKAH;
    PUTPIXEL(ROUND(X),ROUND(Y),4);
    DELAY(1);
  END;
END;
{MAIN PROGRAM}
BEGIN
  INIT;
  SETBKCOLOR(10);
  FOR I:= 1 TO 30 DO
  BEGIN
    SETCOLOR(I);
    RECTANGLE(0+I,0+I,GETMAXX-I,GETMAXY-I);
  END;
  SETCOLOR(15);
 ;

KOTAK(50,200,460,370);
Kotak(50,200,280,370);
KOTAK(460,200,600,370);
  SG3(50,195,350,100,600,195);
  LINGKARAN(345,155,30);
  READLN;
  CLOSEGRAPH;
END.