UYGULAMA 6, 5 MART 2010

PROGRAM KARELER;
USES CRT,GRAPH;
VAR GRAFIKSURUCU,GRAFIKMODU,i:INTEGER;

PROCEDURE KARECIZ (X,Y: INTEGER; L: INTEGER);
VAR X1, X2, Y1, Y2: INTEGER;
BEGIN
X1 := X;Y1 := Y;
X2 := X1 + L;
Y2 := Y1 + L;
LINE (X1, Y1, X2, Y1);
LINE (X2, Y1, X2, Y2);
LINE (X2, Y2, X1, Y2);
LINE (X1, Y2, X1, Y1);
END;

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

FOR i:=0 TO 10 DO
KARECIZ (100+(i*40), 100, 25);

READLN;
CLOSEGRAPH;
END.