5 Mart 2010 Cuma

UYGULAMA 9 - 05 MART 2010

PROGRAM KARELER;
USES GRAPH,CRT;
VAR GRAFIKSURUCU,GRAFIKKONUMU,i,j,rastgele: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;

repeat
FOR i:=0 TO 10 DO
BEGIN
FOR j:=0 TO 6 DO
BEGIN
rastgele:=random(5);
setcolor (random(16));
if (rastgele mod 2 =0)then
KARECIZ (100+(i*40),100+(j*40),25);
end;
end;
until keypressed;

READLN;
CLOSEGRAPH;
END.

Hiç yorum yok:

Yorum Gönder