Iklan

Metode Newton Raphson

Berikut ini adalah coding program mencari akar dengan metode Newton Raphson dengan menggunakan bahasa Turbo Pascal...
PROGRAM NEWTONRAPHSON;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
FUNCTION G(X:REAL):REAL;
BEGIN
G:=EXP(X)-4;
END;

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

BEGIN
CLRSCR;
WRITELN('PROGRAM METODE NEWTON RAPHSON');
WRITELN('=============================');
E:=0.0001;
WRITE('MASUKKAN X : ');READLN(XL);WRITELN;
X:=0;

REPEAT
XB:=XL-(F(XL)/G(XL));
M:= ABS(XL-XB);
XL:=XB;
X:=X+1;
WRITELN ('ITERASI KE ',X,'= ',XB:0:8);
UNTIL M <>

WRITELN;
WRITELN ('AKARNYA ADALAH = ',XB:0:6);
READLN;
END.
Ubahlah fungsi sesuai dengan kebutuhan anda...

0 Response to "Metode Newton Raphson"

Posting Komentar

Berkomentarlah dengan topik yang relevan