esercitazioni con Turbo Basic

esci turboba.htm

grafici vari

REM grafo4x
SCREEN 12
LINE (1, 200)-(300, 200)
LINE (160, 10)-(160, 300)
FOR k = 0 TO 320 STEP 10
LINE (k, 198)-(k, 202)
NEXT k
a = 0
FOR x = -16 TO 16 STEP .1
y = x ^ 2 + 4 * x - 6
LINE (a, 200 - y)-(a, 200 - y)
a = a + 1
NEXT x
r = 2
FOR x = -8 TO 5 STEP 1
LOCATE r, 40
PRINT x, x ^ 2 + 4 * x - 6
r = r + 1
NEXT x
LOCATE 20, 2
PRINT "y=x^2+4x-6"
LOCATE 21, 2
PRINT "cambia segno tra -6,-5....1,2 "
r1 = (-4 + SQR(4 ^ 2 + 24)) / 2
r2 = (-4 - SQR(4 ^ 2 + 24)) / 2
LOCATE 22, 2: PRINT "radici approssimate:"; r1, r2


END