Program PASCAL Metode Newton Raphson

Metode Newton Raphson dalam Bahasa PASCAL. Berikut ini adalah salah satu contoh program dalam bahasa PASCAL untuk mencari solusi persamaan nirlanjar menggunakan Metode Newton-Rhapson dalam Bahasa PASCAL. Dengan mengganti f(x) dengan fungsi yang ingin dicari solusinya dan g(x) dengan turunan dari f(x) kemudian menjalankan programnya maka dengan mudah kita akan mendapatkan solusi dari persamaan yang kita inginkan dengan Metode Newton Raphson dalam Bahasa PASCAL. Selamat mencoba.........
PROGRAM NEWTON_RAPHSON;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=x*x*x +2*x*x + 10*x - 20;
END;
FUNCTION G(X:REAL):REAL;
BEGIN
G:=3*x*X + 4*x + 10;
END;

VAR XL,XB,E,M : REAL;
X : INTEGER;

BEGIN
CLRSCR;
writeln('================================');
writeln(' kunjungi www.matem-mania.co.cc ');
WRITELN(' PROGRAM METODE NEWTON RAPHSON ');
WRITELN('================================');
WRITE('MASUKKAN X0 : ');READLN(XL);
write('MASUKKAN epsilon : ');readln(e);
WRITELN('f0 = ',f(xl):0:6);
writeln('g0 = ',g(xl):0:6);
writeln('f0/g0 = ',f(xl)/g(xl):0:6);
writeln;
writeln('=============================================================================');
writeln('r xr f(xr) g(xr) fxr/gxr |Xr+1 - xr| ');
writeln('=============================================================================');
X:=0;

REPEAT
XB:=XL-(F(XL)/G(XL));
M:= ABS(XL-XB);
XL:=XB;
X:=X+1;
WRITELN (X,' ',XB:0:6,' ',f(xl):0:6,' ',g(xl):0:6,' ',f(xl)/g(xl):0:6,' ',m:0:6);
UNTIL M < e ; writeln('=============================================================================='); WRITELN; WRITELN ('AKARNYA ADALAH = ',XB:0:6); READLN; END.