Мова програмування Turbo-Basic, Детальна інформація

YMAX=Y(1): YMIN=Y(1)

FOR I = 1 TO N

IF Y(I) < YMIN THEN YMIN = Y(I)

IF Y(I) > YMAX THEN YMAX = Y(I)

NEXT I

DX1 = 8 : DX = FIX((NX2 - NX1 - (N - 1) SYMBOL 42 \f "Symbol" DX1) / N)

X1 = NX1

Y1 = NY2 - FIX(((-YMIN) SYMBOL 42 \f "Symbol" (NY2 - NY1)) / (YMAX - YMIN))

FOR I = 1 TO N

X2 = X1 + DX

Y2 = NY2 - FIX(((Y(I) - YMIN) SYMBOL 42 \f "Symbol" (NY2 - NY1)) / (YMAX - YMIN))

LINE (X1,Y1) - (X2,Y2),,BF

X1 = X2 + DX1

NEXT I

LINE (nx1,Y1) - (nx2,Y1)

END SUB

CLS

INPUT "ЗАДАЙТЕ КІЛЬКІСТЬ ВУЗЛІВ ГРАФІКА"; M

DIM Z(M)

FOR I = 1 TO M

INPUT Z(I)

NEXT I :

CLS

X1 = 80: X2 = 500

Y1 = 50: Y2 = 150

CALL GRAF(X1,Y1,X2,Y2,M,Z())

END

Основна таблиця ASCII

000

001