UYGULAMA 7 - 05 MART 2010

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

PROCEDURE KARECIZ (X, Y,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,GRAFIKKONUMU,'C:\TP\BGI');
IF GRAPHRESULT<>GROK THEN HALT(1);
CLEARDEVICE;

KARECIZ (100,100,25);
FOR i:=0 TO 10 DO {yataydaki tekrar sayisi}
BEGIN
FOR j:=0 TO 3 DO {düşeydeki tekrar sayisi}
BEGIN
SETCOLOR (RANDOM(15)); {rastge lerenk ata}
KARECIZ (100+(i*40),100+(j*40),25);
END;
END;

READLN;
CLOSEGRAPH;
END.