Praktikum: Pertemuan Ke-4 Program Metode Secant

Source Code

uses crt;
function F(x:real):real;
begin
F:=exp(x)-5*x*x;
end;
var m,e,x0,x1,x2:real;
x:real;
begin
clrscr;
writeln('____________________');
writeln('Program metode secant');
writeln('____________________');
writeln;
e:=0.00001;
writeln('dengan akar*0,00001');
write('Masukan x0=');readln(x0);
write('Masukan x1=');readln(x1);
writeln;
x:=0;
writeln('______________________');
writeln('iterasi ke | xr | xr+1-xr');
repeat
x2:=x1-f(x1)*(x1-x0)/(f(x1)-f(x0));
m:=abs(x2-x1);
x0:=x1;
x1:=x2;
x:=x+1;
writeln('_____________________________');
writeln(' ',x,'|',x1:0:5,'|',m:0:5);
until m<e;
writeln;
writeln('_____________________________');
writeln;
writeln('jadi akarnya adalah =',x1:0:5);
readln;
end.

DOWNLOAD