UYGULAMA 26 (Y = X *X )- 2 Nisan 2010

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

BEGIN
GRAFIKSURUCU:=DETECT;
INITGRAPH (GRAFIKSURUCU, GRAFIKKONUMU,'C:\TP\BGI');
IF GRAPHRESULT<>GROK THEN HALT(1);
CLEARDEVICE;
SETBKCOLOR(15);
{ELLI[1]:=2;ELLI[2]:=4;ELLI[3]:=6;...}

FOR i:=1 TO 19 DO
BEGIN
LINE(XLER[i]*80, GETMAXY-YLER[i]*10, XLER[i+1]*80, GETMAXY -YLER[i+1]*10);
END;

FOR i:=1 TO 20 DO {xler 1den 20ye tamsayi, yler xlerin karesi}
BEGIN
XLER[i]:= i;
YLER[i]:= i*i;
END;

SETCOLOR(1);
SETLINESTYLE(SolidLn, 2, ThickWidth);
FOR i:=1 TO 19 DO
BEGIN
LINE(XLER[i]*30, GETMAXY-YLER[i], XLER[i+1]*30, GETMAXY -YLER[i+1]);
END;

{FOR i:=1 TO 19 DO
BEGIN
SETCOLOR(3);
LINE(0, GETMAXY-YLER[i], XLER[i]*30, GETMAXY -YLER[i]);
SETCOLOR(5);
LINE(XLER[i]*30, GETMAXY, XLER[i]*30, GETMAXY -YLER[i]);
END;}

READLN;
CLOSEGRAPH;
END.