esercitazioni con Turbo Basic

esci turboba.htm

ricerca radice equazione con metodo numerico

REM equa1
REM cerca radice equazione metodo numerico
100 REM dati
CLS
INPUT "valore iniziale per variabile..-5 ="; x1
INPUT "valore finale per variabile ..5 ="; x2
INPUT "passo per variabile ..1 ="; dx
FOR x = x1 TO x2 STEP dx
REM scrivere la equazione da analizzare
y = x * x * x - 9 * x + 1
PRINT x, y
NEXT x
PRINT "la funzione cambia segno negli estremi degli intervalli"
PRINT "-4,-3...0,1...2,3 "
PRINT "riprovare assegnando tali estremi come x1,x2 e dx=0.01...0.001.."
PRINT "per vedere dove la funzione si approssima allo zero"
PRINT "riprovi:scrivi 1..fine:scrivi 2 "; : INPUT r
IF r = 1 THEN GOTO 100 ELSE 200
200 PRINT "fine prova"
END