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

X3 = A3 SYMBOL 42 \f "Symbol" T - B3 SYMBOL 42 \f "Symbol" SIN(T) : Y3 = A3 - B3 SYMBOL 42 \f "Symbol" COS(T)

PSET (X3, Y3), 5

NEXT T

END

'4 ВIКНА З ГРАФIКАМИ ФУНКЦIЙ

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

SCREEN 2 : CLS

VIEW (1, 1) - (315, 96),, 1

WINDOW (-10, -1.1) - (10, 1.1)

FOR X = -10 TO 10 STEP .02

Y = SIN(X) : PSET (X, Y)

NEXT X

VIEW (325, 1) - (638, 96),, 1

WINDOW (-10, 0) - (10, 1.1)

FOR X = -10 TO 10 STEP .02

Y = 1 / (1 + X^2) : PSET (X, Y)

NEXT X

VIEW (1, 102) - (315, 198),, 1

WINDOW (-10, -.1) - (10, 100)

FOR X = -10 TO 10 STEP .02

Y = X^2 : PSET (X, Y)

NEXT X

VIEW (325, 102) - (638, 198),, 1

WINDOW (-40, -40) - (40, 40)

FOR X = -40 TO 40 STEP .02

Y = X SYMBOL 42 \f "Symbol" SIN(X) : PSET (X, Y)

NEXT X

END

'ВИПАДКОВI КОЛА

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