UYGULAMA 8- 5 MART 2010

PROGRAM KARELER;
USES CRT,GRAPH;
VAR GRAFIKSURUCU,GRAFIKMODU,i,j,RASTGELE: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:=1 TO 10 DO {yataydaki tekrar sayısı}
BEGIN
FOR j:=1 TO 6 DO
BEGIN
RASTGELE:= RANDOM(5); {0 ile 5 arasında rastgele bir sayı üretir}
IF (RASTGELE MOD 2= 0) THEN { ikiye bölünebilirliğinin kontrolü}
SETCOLOR(RANDOM(15));
KARECIZ (100+(i*40), 100+(j*40), 25);
END;
END;

READLN;
CLOSEGRAPH;
END.