esercitazioni con Turbo Basic

esci turboba.htm

REM simo3 cfr.pag318
SCREEN 2
CLS
LINE (1, 100)-(300, 100)
LINE (40, 1)-(40, 150)
FOR k = 1 TO 200 STEP 20
LINE (k, 100)-(k, 102)
NEXT k
DEF fny (x)
fny = x ^ 4 - 2 * x ^ 2 + 1
END DEF
a = 0
FOR x = -2 TO 2 STEP .1
REM fattore scala 10 per ordinate
LINE (a, 100 - 10 * fny(x))-(a, 100 - 10 * fny(x))
a = a + 2
NEXT x
r = 4
y$ = "x^4-2x^2+1"
LOCATE 20, 2: PRINT y$
LOCATE 2, 30: PRINT "x", "y"
FOR x = -2 TO 2 STEP .25
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:-1,1 radici reali equazione"
END