Hовi команди системи Turbo-Basic, Детальна інформація
Hовi команди системи Turbo-Basic
PSET (X2, Y2), 14
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 КОЛА
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 КОЛА
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021