Blogger news

News Update :
Home » , » contoh Program Newton Raphson (MetNum)

contoh Program Newton Raphson (MetNum)


Berikut adalah contoh program Newton Rhapson Metode Numerik dengan menggunakan bahasa pemrograman pascal :
contoh program Newton Rhapson, koding program Newton Rhapson (matnum),
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.
Program Newton Raphson (MetNum) menggunakan pascal
Share this article :

Posting Komentar

Blogger templates

 
Company Info | Contact Us | Privacy policy | Term of use | Widget | Advertise with Us | Site map
Copyright © 2011. note . All Rights Reserved.
Design Template by panjz-online | Support by creating website | Powered by Blogger