Metode Newton Raphson dengan QBasic

Ada cara lain untuk menghitung/mencari akar-akar pada persamaan numerik, salah satunya adalah dengan menggunakan metode Newton Raphson, beikut adalah coding program metode newton Raphson dengan bahasa Quick Basic

CLS
'METODE NEWTON RAPHSON
DEF FNF (X) = EXP(X) - 4*X
DEF FNG (X) = EXP(X) - 4
PRINT "MASUKKAN XL = ";:INPUT XL
E = .001
ULANG :
XB = XL-(FNF(XL)/FNG(XL))
IF ABS((XB-XL)/XB) < E GOTO CETAK
XL = XB
PRINT XB
GOTO ULANG
CETAK:
PRINT "AKAR YANG DICARI ADALAH ";XB
END

Semoga bermanfaat . . .