esercitazioni con Turbo Basic

esci turboba.htm

REM simo1 cfr.pag315
SCREEN 2
CLS
q = 9.999901E-16
LINE (1, 100)-(300, 100)
LINE (80, 1)-(80, 150)
FOR k = 1 TO 200 STEP 20
LINE (k, 100)-(k, 102)
NEXT k
DEF fny (x)
fny = x ^ 4 - 13 * x ^ 2 + 36
END DEF
a = 0
FOR x = -4 TO 4 STEP .1
LINE (a, 100 - fny(x))-(a, 100 - fny(x))
a = a + 2
NEXT x
r = 4
y$ = "x^4-13x^2+36"
LOCATE 20, 2: PRINT y$
LOCATE 2, 30: PRINT "x", "y"
FOR x = -4 TO 4 STEP 1
LOCATE r, 30: PRINT x, fny(x)
IF (fny(x) = 0) OR (fny(x) <= q) THEN LOCATE r, 60: PRINT "soluzione"
r = r + 1
NEXT x
LOCATE 22, 2: PRINT "soluzioni per x:-3,-2,2,3 radici esatte equazione"
END