program pascal metode newton-raphson

Program Metode_Newton_Raphson;
uses crt;
label rypro,the,rdh;
var x0,fx0,dfx0,xbaru,galat,eps:real;
iterasi,m:longint;
begin clrscr;
writeln('Metode Newton Raphson');
writeln('Mencari akar dari persamaan f(x)=Cos(x)-x');
writeln;
write('masukkan nilai x0! '); readln(x0);
write('masukkan nilai epsilon! '); readln(eps);
write('berapa maksimum iterasi? '); readln(m);writeln;
iterasi:=1;
writeln('Proses iterasinya adalah sebagai berikut.');
rdh: readln;writeln;writeln;
fx0:=exp(x0)-4*x0;
dfx0:=exp(x0)-4;
if dfx0 = 0 then goto rypro else
xbaru:=x0-(fx0/dfx0);
galat:=abs((xbaru-x0)/xbaru);
writeln('Iterasi ke',iterasi);
writeln('-------------------------------------------------------------------------------');
writeln('I x I f(x) I galat I');
writeln('-------------------------------------------------------------------------------');
writeln('I x0 = ',x0:14:13,' I df(x0) = ',dfx0:14:13,' I galat = ',galat:14:13,' I');
writeln('I f(x0) = ',fx0:14:13,' I xbaru = ',xbaru:14:13,' I I');
write('-------------------------------------------------------------------------------');
if galat <= eps then begin readln;writeln;writeln;writeln('Pada iterasi ke-',iterasi,' galat <= eps saat xbaru = ',xbaru:13:13); writeln('iaitu ',galat:13:13,' <= ',eps:13:13,' saat xbaru = ',xbaru:13:13); writeln;writeln('Maka akar = ',xbaru:13:13); goto the end else if iterasibegin x0:=xbaru; iterasi:=iterasi+1; goto rdh end else
begin readln;writeln;writeln;writeln('karena maksimum iterasi adalah ',iterasi,' iterasi');
writeln('maka akar diambil dari nilai xbaru saat iterasi ke-',iterasi);
writeln;writeln('Jadi akar = ',xbaru:13:13); goto the end;
rypro:
writeln('Proses Pencarian Akar Gagal');
the:
readln end.