UYGULAMA 24 - 2 Nisan 2010

PROGRAM NESTED;
USES CRT, DOS, GRAPH, PRINTER;
VAR GRAFIKSURUCU, GRAFIKKONUMU,i,j:INTEGER;

PROCEDURE CEMBER (XBOL, YBOL: INTEGER );
BEGIN
FOR i:= 1 TO XBOL DO
BEGIN
FOR j:=1 TO YBOL DO
BEGIN

ELLIPSE (GETMAXX DIV (XBOL*2) + GETMAXX DIV XBOL * (i-1),
GETMAXY DIV (YBOL*2)+ GETMAXY DIV YBOL * (j-1),0,360, GETMAXX DIV (XBOL*2), GETMAXY DIV (YBOL*2));

{FILLELLIPSE kullanilirsa ici dolu cizer, komuttan once SETFILLSTYLE() kullanilmali}

END;
END;
END;

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

SETCOLOR (13);
CEMBER (5,3);

READLN;
CLOSEGRAPH;
END.