esercitazioni con Turbo Basic

esci turboba.htm

REM equa2
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
PRINT "tenere premuto tasto enter per regolare scorrimento"
FOR x = x1 TO x2 STEP dx
REM scrivere la equazione da analizzare
y = x ^ 3 - 9 * x + 1
PRINT x, y
120 IF INKEY$ = "" THEN 120
NEXT x
IF r = 1 THEN GOTO 150
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"
150 PRINT "riprovi:scrivi 1..fine:scrivi 2 "; : INPUT r
IF r = 1 THEN GOTO 100 ELSE 200
200 PRINT "fine prova"
END