UYGULAMA 20 - 19 Mart 2010

{19. uygulamanin aynisi, tek farklilik dizi kullanilmasi}
PROGRAM DIZILER2;
USES CRT, DOS, GRAPH;
VAR gs, gm,i,j:INTEGER;
y1Koor: ARRAY[1..80] OF INTEGER;
y2Koor: ARRAY[1..80] OF INTEGER;

BEGIN

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

SETBKCOLOR(15);
SETCOLOR(9);

FOR i:=1 80 DO
BEGIN
y1Koor[i]:= (i - 1) * 6;
y2Koor[i] := 480 - (i-1) * 6;
END;

FOR j:=1 80 DO
BEGIN
LINE(0, y1Kor[j], getmaxx, y2Kor[j]);
END;

READLN;
CLOSEGRAPH;
END.