UYGULAMA 27 - 2 Nisan 2010

PROGRAM NESTED;
USES CRT, DOS, GRAPH, PRINTER;
VAR GRAFIKSURUCU, GRAFIKKONUMU,i,j:INTEGER;
UCGEN: ARRAY[1..6] OF INTEGER;

PROCEDURE UCGENCIZ (X,Y,L :WORD);
VAR X1,Y1,X2,Y2,X3,Y3 :INTEGER;

BEGIN
X1:= X;
Y1:= Y;
X2:= X+L DIV 2 ;
Y2:= Y-ROUND( SQRT (3)* L/2);
X3:= X+L;
Y3:= Y;

UCGEN [1]:= X1; UCGEN [2] := Y1; UCGEN [3]:= X2;
UCGEN [4]:= Y2; UCGEN [5] := X3; UCGEN [6]:= Y3;

SETCOLOR(6);
SETFILLSTYLE(3,9);
FILLPOLY (3,UCGEN);

END;

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

UCGENCIZ (300,400,200);

READLN;
CLOSEGRAPH;
END.