Uygulama 03 - 26 şubat 2010

PROGRAM ORNEK; {REPEAT-UNTIL ILE IC ICE DIKDORTGENLER}
USES CRT, DOS, GRAPH, PRINTER;
VAR GRAFIKSURUCU, GRAFIKKONUMU, X1, Y1, X2, Y2:INTEGER;

BEGIN
GRAFIKSURUCU:=DETECT;
INITGRAPH (GRAFIKSURUCU, GRAFIKKONUMU,'C:\TP\BGI');
IF GRAPHRESULT<>GROK THEN HALT(1);

CLEARDEVICE;

X1:=0; X2:=GETMAXX;
Y1:=0; Y2:=GETMAXY;


REPEAT

RECTANGLE(X1,Y1,X2,Y2);
X1:=X1+50;
Y1:=Y1+50;
X2:=X2-50;
Y2:=Y2-50;

UNTIL X1 > (GETMAXX DIV 3);
{UNTIL X1>300;}


READLN;
CLOSEGRAPH;
END.