esercitazioni con Turbo Basic

esci turboba.htm

grafici vari

REM grafo1x
REM da usare con sezio1a.bas..corel
SCREEN 3
LINE (1, 100)-(300, 100)
LINE (47, 1)-(47, 200)
FOR k = 10 TO 100 STEP 10
LINE (k, 100)-(k, 102)
NEXT k
a = 10
FOR x = -4 TO 4 STEP .1
y = x ^ 3 - 9 * x + 1
LINE (a, 100 - y)-(a, 100 - y)
a = a + 1
NEXT x
r = 2
FOR x = -4 TO 4 STEP 1
LOCATE r, 20
PRINT x, x ^ 3 - 9 * x + 1
r = r + 2
NEXT x
LOCATE 20, 2: PRINT "funzione cambia segno negli intervalli"
LOCATE 22, 2: PRINT "-4,-3...0,1...2,3 "
END