Hовi команди системи Turbo-Basic, Детальна інформація

' IМIТАЦIЯ ОБЕРТАHHЯ РИСОЧКИ

'----------------------------------------------------

ON KEY (1) GOSUB 500

KEY (1) ON

CLS

50 LOCATE 12,40: PRINT "( ¦ )" : DELAY .1

LOCATE 12,40: PRINT "( / )" : DELAY .1

LOCATE 12,40: PRINT "( - )" : DELAY .1

LOCATE 12,40: PRINT "( \ )" : DELAY .1

GOTO 50

500 END

'ПОБУДОВА ДIАГРАМИ

'-----------------------------------

SUB GRAF(NX1,NY1,NX2,NY2,N,Y(1))

SCREEN 2

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)