esercitazioni con Turbo Basic

esci turboba.htm

grafici vari

REM grafo2x
REM da usare con sezio1a.bas
SCREEN 2
LINE (1, 100)-(300, 100)
LINE (90, 1)-(90, 200)
FOR k = 10 TO 200 STEP 10
LINE (k, 100)-(k, 102)
NEXT k
a = 10
FOR x = -8 TO 8 STEP .1
y = x ^ 2 + 4 * x
LINE (a, 100)-(a, 100 - y)
a = a + 1
NEXT x
r = 1
FOR x = -5 TO 5 STEP 1
LOCATE r, 30
PRINT x, x ^ 2 + 4 * x
r = r + 1
NEXT x
LOCATE 20, 2
PRINT "y=x^2+4x"
LOCATE 21, 2
PRINT "la funzione si annulla per x=-4 e x=0 "
END