esercitazioni con Turbo Basic

esci turboba.htm

grafici vari

REM grafo6
SCREEN 12
REM 1 2 11 12 13 come screen
LINE (1, 100)-(300, 100)
LINE (90, 1)-(90, 200)
FOR k = 10 TO 200 STEP 10
LINE (k, 98)-(k, 102)
NEXT k
a = 10
FOR x = -8 TO 8 STEP .1
y = x ^ 3 - 4 * x + 10
LINE (a, 100 - y)-(a, 100 - y)
a = a + 1
NEXT x
r = 2
FOR x = -5 TO 5 STEP 1
LOCATE r, 20
PRINT x, x ^ 3 - 4 * x + 10
r = r + 1
NEXT x
END