esercitazioni con Turbo Basic

esci turboba.htm

REM simo2 cfr.pag316
SCREEN 2
CLS
LINE (1, 100)-(300, 100)
LINE (60, 1)-(60, 150)
FOR k = 1 TO 200 STEP 20
LINE (k, 100)-(k, 102)
NEXT k
DEF fny (x)
fny = x ^ 4 - 2 * x ^ 2 - 8
END DEF
a = 0
FOR x = -3 TO 3 STEP .1
LINE (a, 100 - fny(x))-(a, 100 - fny(x))
a = a + 2
NEXT x
r = 4
y$ = "x^4-2x^2-8"
LOCATE 20, 2: PRINT y$
LOCATE 2, 30: PRINT "x", "y"
FOR x = -3 TO 3 STEP .5
LOCATE r, 30: PRINT x, fny(x)
IF (fny(x) = 0) THEN LOCATE r, 60: PRINT "soluzione"
r = r + 1
NEXT x
LOCATE 22, 2: PRINT "soluzioni per x:-2,2 radici reali equazione"
END