Program mencari akar-akar persamaan numerik dengan metode bolzano dalam bahasa Quick Basic, ubahlah fungsi sesuai dengan kebutuhan masing-masing..

CLS
'METODE BOLZANO
DEF FNF(X) = EXP(X)-4*X
PRINT "MASUKKAN BATAS INTERVAL KIRI A = ": INPUT A
PRINT "MASUKKAN BATAS INTERVAL KANAN B = ": INPUT B
E = .00001
ULANG:
T = (A+B)/2
IF FNF(A)*FNF(T)< b="T" a="T" x="X+1">

Semoga bermanfaat. . .