esercitazioni con Turbo Basic

esci turboba.htm

REM equa3
REM cerca radice equazione metodo numerico
100 REM dati
CLS
INPUT "valore iniziale per variabile..-4 ="; x1
INPUT "valore finale per variabile ..10 ="; 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 ^ 4 - 7 * x ^ 3 + 2 * x ^ 2 - 100 * x + 610
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-5.....6-7 "
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