esercitazioni con Turbo Basic

esci turboba.htm

ricerca radicii con metodo bisezione

REM sezio1a
REM calcolo radici approssimate con bisezione
REM scrivere la funzione da calcolare
CLS
PRINT "si visualizzano i valori sinistro,destro,medio,intervallo"
PRINT "e i valori assunti dalla funzione": PRINT
DEF fns (s)
fns = s * s * s - 9 * s + 1
END DEF
DEF fnd (d)
fnd = d * d * d - 9 * d + 1
END DEF
DEF fnm (m)
fnm = m * m * m - 9 * m + 1
END DEF
PRINT "estremo sinistro="; : INPUT s
PRINT "estremo destro ="; : INPUT d
PRINT "numero bisezioni="; : INPUT n
PRINT "sinistro", "destro", "medio", "intervallo"
m = (s + d) / 2
PRINT s, d, m, s + d
PRINT fns(s), fnd(d), fnm(m)
PRINT "============================================================"
FOR k = 1 TO n
m = (s + d) / 2
IF fns(s) * fnm(m) <= 0 THEN d = m ELSE s = m
PRINT s, d, m, s + d
PRINT fns(s), fnd(d), fnm(m)
PRINT "-------------------------------------------premi enter----"
LPRINT s, d, m, s + d
LPRINT fns(s), fnd(d), fnm(m)
LPRINT "-------------------------------------------premi enter----"

100 IF INKEY$ = "" THEN 100
NEXT k
PRINT "radice approssimata="; m
LPRINT "radice approssimata="; m
END