UYGULAMA 30 (artilar) - 9 Nisan 2010

PROGRAM NESTED;
USES CRT, DOS, GRAPH, PRINTER;
VAR GRAFIKSURUCU, GRAFIKKONUMU,i,j,L,K:INTEGER;
ARTI: ARRAY[1..24] OF INTEGER;

PROCEDURE ARTICIZ (X,Y,L,K: WORD);
BEGIN

ARTI[1]:=X;{X1}
ARTI[2]:=Y;{Y1}
ARTI[3]:=X+L; {X2}
ARTI[4]:=Y; {Y2}
ARTI[5]:=X+L; {X3}
ARTI[6]:=Y-L; {Y3}
ARTI[7]:= X+L+K; {X4}
ARTI[8]:= ARTI[6]; {Y4}
ARTI[9]:= ARTI[7]; {X5}
ARTI[10]:=Y;
ARTI[11]:=X+L+K+L;
ARTI[12]:=Y;
ARTI[13]:=X+L+K+L;
ARTI[14]:=Y+K;
ARTI[15]:=ARTI[9];
ARTI[16]:= Y+K;
ARTI[17]:= ARTI[9];
ARTI[18]:= Y+K+L;
ARTI[19]:= X+L;
ARTI[20]:= Y+L+K;
ARTI[21]:= X+L;
ARTI[22]:= Y+K;
ARTI[23]:= X;
ARTI[24]:= Y+K;

FILLPOLY(12,ARTI);
END;


BEGIN

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

SETFILLSTYLE (j-3,12-i);
L:=10;
K:=20 ;

FOR i := 1 TO 10 DO
FOR j := 1 TO 10 DO
BEGIN
ARTICIZ(100+(i-1)*(L+K+L),50+(J-1)*(L+K+L),L-i,K-j);
END;

READLN;
CLOSEGRAPH;
END.