5 Mart 2010 Cuma

UYGULAMA 11 - 05 Mart 2010


PROGRAM NESTED;
USES GRAPH,CRT;
VAR GRAFIKSURUCU,GRAFIKMODU,i:INTEGER;

PROCEDURE TEKRARLA (X1, Y1, X2, Y2, tekrar, kmiktar: integer);
BEGIN
FOR i:=0 to tekrar do
begin
setcolor(random(16));
rectangle (x1+i*kmiktar,y1+i*kmiktar, x2-i*kmiktar, x2-i*kmiktar);
end;
END;

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

TEKRARLA (10, 15, 550, 420, 50, 3);

READLN;
CLOSEGRAPH;
END.

Hiç yorum yok:

Yorum Gönder