esercitazioni con Turbo Basic

esci turboba.htm

ricerca radicii con metodo bisezione

100 REM sez1
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 * s - 7 * s * s * s + 2 * s * s - 100 * s + 610
240 fm = m * m * m * m - 7 * m * m * m + 2 * m * m - 100 * m + 610
250 fd = d * d * d * d - 7 * d * d * d + 2 * d * d - 100 * d + 610
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