Uygulama 02 - 26 şubat 2010

PROGRAM DIKDORTGEN;
USES CRT, DOS, GRAPH, PRINTER;
VAR GRAFIKSURUCU, GRAFIKKONUMU:INTEGER;

BEGIN
GRAFIKSURUCU:= DETECT;
INITGRAPH (GRAFIKSURUCU, GRAFIKKONUMU,'C:\TP\BGI');
{BURADAKI DIZIN, KENDI BILGISAYARINIZDA BGI KLASORUNUN BULUNDUGU ADRESE GORE GUNCELLENECEK}
IF GRAPHRESULT<>GROK THEN HALT(1);

CLEARDEVICE;


RECTANGLE(0,0,GETMAXX,GETMAXY);
RECTANGLE(50,50,GETMAXX-50,GETMAXY-50);
RECTANGLE(100,100,GETMAXX-100,GETMAXY-100);
RECTANGLE(150,150,GETMAXX-150,GETMAXY-150);


READLN;
CLOSEGRAPH;
END.