esercitazioni con Turbo Basic

esci turboba.htm

REM ricerca radice approssimata metodo numerico
100 REM inserimento dati
CLS
INPUT "estremo inferiore=..-10.."; x1
INPUT "estremo superiore=..10.."; x2
INPUT "modulo =..0.5...1.."; dx
DEF fny1 (x) = x ^ 5 - 8 * x ^ 4 + 50 * x ^ 2 - x - 42
PRINT "x", "x+dx", "fny(x)", "fny(x+dx)"
PRINT "------------------------------------------------"
FOR x = x1 TO x2 STEP dx
s1 = SGN(fny1(x))
s2 = SGN(fny1(x + dx))
IF s1 <> s2 AND fny1(x) <> 0 THEN PRINT x, fny1(x), x + dx, fny1(x + dx)
NEXT x
PRINT "soluzioni esatte:se funzione =0 o molto piccola E-10.. "
PRINT "-------------------------------------------------------"
PRINT "altri valori:1...fine:2 "; : INPUT s
IF s = 1 THEN 100 ELSE 200
200 CLS
END