esercitazioni con Turbo Basic

esci turboba.htm

ricerca radicii con metodo bisezione

REM sezio3
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 + s * s - 2
END DEF
DEF fnd (d)
fnd = d * d * d + d * d - 2
END DEF
DEF fnm (m)
fnm = m * m * m + m * m - 2
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----"
100 IF INKEY$ = "" THEN 100
NEXT k
PRINT "radice approssimata="; m
END