apps

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 < E ;

WRITELN;
WRITELN ('AKARNYA ADALAH = ',XB:0:6);
READLN;
END.

Ubahlah fungsi sesuai dengan kebutuhan anda...
jangan lupa komen yach..!

Artikel Terkait Lainnya

Blogger
Disqus
Komentar

Berkomentarlah dengan topik yang relevan dan tidak melakukan SPAM

close

Start typing and press Enter to search