Iklan

Mencari Akar dengan Metode Secant

Program mencari akar dengan metode Secant...
PROGRAM SECANT;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
VAR E,X0,X1,X2,M  : REAL;
X :INTEGER;
BEGIN
CLRSCR;
WRITELN('PROGRAM METODE SECANT');
WRITELN('=====================');
E:=0.0001;
WRITE('MASUKKAN X0 = ');READLN(X0);
WRITE('MASUKKAN X1 = ');READLN(X1);
WRITELN;
X:=0;
REPEAT
X2:=X1-F(X1)*(X1-X0)/(F(X1)-F(X0));
M:=ABS((X2-X1)/X2);
X0:=X1;
X1:=X2;
X:=X+1;
WRITELN('ITERASI KE ',X,'= ',X2:0:8);
UNTIL M <>
WRITELN;
WRITELN('AKARNYA ADALAH = ',X2:0:6);
READLN;
END.
Ubahlah fungsi sesuai dengan kebutuhan...

0 Response to "Mencari Akar dengan Metode Secant"

Posting Komentar

Berkomentarlah dengan topik yang relevan