Program Newton Raphson (MetNum)

Berikut adalah contoh program Newton Rhapson Metode Numerik dengan menggunakan bahasa pemrograman pascal :

uses crt;

label ulang;

var x,x1,y,y1,z,f,f1,f2 : real ;

i : integer ;

ab : char ;

begin

ulang :

clrscr;

repeat

begin

writeln (‘Tentukan akar dari persamaan f(x)=3x+sin(x)+exp dengan metode newton rapahson’); write (‘masukkan nilai x1 =’);

readln (x1);

y1 := 3 * x1 + sin(x1) – exp(x1);

f1 := 3 + cos(x1) – exp(x1);

f2 := – sin(x1) – exp(x1);

z := (y1*f2) / exp (f1*f1);

writeln (‘nilai f(x1) = ‘,y1:0:5);

writeln (‘nilai f(x1) = ‘,f1:0:5);

writeln (‘nilia f(x1) = ‘,f2:0:5);

if abs (z) < 1 then writeln (‘nilai x1 ok memenuhi syarat yaitu (‘,z:0:5,’)(1′);

end;

until abs (z) < 1;

readln;

i := 1;

writeln (‘penyelesaian persamaan karakteristik dengan metode newton raphson’);

writeln (‘—————————————————————–‘);

writeln (‘n n f(x) error ‘);

writeln (‘—————————————————————–‘);

repeat

begin

i := i + 3;

x := x1 – (y1/f1); y := 3 * x + sin (x) – exp (x);

f := 3 + cos (x) – exp (x);

if i < 10 then

writeln (‘:’,i,’::’,x,’::’,y,’::’,abs (y),’:’)

else

writeln (‘:’,i,’::’,x,’::’,y,’::’,abs (y),’:’); x1 := x ; y1 := y ;

f1 := f ;

end;

until abs (y) < 1E-08;

writeln (‘—————————————————————–‘);

writeln (‘akar persamaannya x=’,x);

writeln (‘errornya = ‘,abs (y));

writeln (‘apakah anda ingin mengulanginya (y/t):’);

readln (ab);

if (ab = ‘y’) or (ab = ‘Y’) then

begin

goto ulang;

end;

end.

^Rachmatika Irfani^

One thought on “Program Newton Raphson (MetNum)

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s