UYGULAMA 19 - 19 Mart 2010

PROGRAM DIZILER;
USES CRT, DOS, GRAPH;
VAR gs, gm,i,j,bolumSayisi:INTEGER;

BEGIN

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

SETCOLOR(9);
bolumSayisi:=100;
{bolumSayisi klavyeden alinabilir ya da degistirilebilir}

FOR i:=1 bolumSayisi DO
BEGIN
LINE(0, 0 + getmaxy div bolumSayisi * i,
getmaxx, getmaxy - getmaxy div bolumSayisi *i);
END;


READLN;
CLOSEGRAPH;
END.