esercitazioni con Turbo Basic

esci turboba.htm

ricerca radicii con metodo bisezione

100 REM sez2
105 REM calcolo radice con metodo bisezione
110 CLS
120 PRINT "estremo sinistro="; : INPUT s
130 PRINT "estremo destro ="; : INPUT d
140 PRINT "numero bisezioni="; : INPUT n
150 PRINT "---------------------------------------"
160 PRINT "s,fs", , "d,fd", , "m,fm"
210 FOR k = 1 TO n
220 m = (d + s) / 2
230 fs = s * s * s - 9 * s + 1
240 fm = m * m * m - 9 * m + 1
250 fd = d * d * d - 9 * d + 1
260 IF fs * fm <= 0 THEN d = m ELSE s = m
300 PRINT s, , d, , m
310 PRINT fs, , fd, , fm
320 PRINT "----------------------------------------"
330 INPUT k$
350 NEXT k
400 PRINT "radice approssimata=", m
500 END