Pencarian Akar Dengan Metode Secant

PROGRAM SECANT;

USES WINCRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-5*X*X;
END;
VAR E,X0,X1,X2,M : REAL;
X :INTEGER;
BEGIN
CLRSCR;
WRITELN('---------------------------------------------------------');
WRITELN(' PROGRAM METODE SECANT ');
WRITELN(' OLEH: ');
WRITELN(' * ASTOKO YOGA S (09.04.111.00094) ');
WRITELN(' * ZAINAL ARIFIN (09.04.111.00104) ');
WRITELN(' * FITRIANSYAH PERDANA P (09.04.111.00125) ');
WRITELN('_________________________________________________________');
WRITELN('');
E:=0.00001;
WRITE('MASUKKAN X0 = ');READLN(X0);
WRITE('MASUKKAN 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('JADI AKARNYA ADALAH = ',X1:0:5);
READLN;
END.

ref: 
http://astoko.blogspot.com/2011/06/kode-program-metode-secant-dengan.html 
http://en.wikipedia.org/wiki/Secant_method
 

Pencarian akar persamaan Metode Newton Raphson

Untuk penjelasan secara matematis buka aja di sini

ini listing programnya
PROGRAM NEWTON_RAPHSON;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
FUNCTION G(X:REAL):REAL;
BEGIN
G:=EXP(X)-4;
END;

VAR XL,XB,E,M : REAL;
X : INTEGER;

BEGIN
CLRSCR;
WRITELN('PROGRAM METODE NEWTON RAPHSON');
WRITELN('=============================');
E:=0.0001;
WRITE('MASUKKAN X : ');READLN(XL);WRITELN;
X:=0;

REPEAT
XB:=XL-(F(XL)/G(XL));
M:= ABS(XL-XB);
XL:=XB;
X:=X+1;
WRITELN ('ITERASI KE ',X,'= ',XB:0:8);
UNTIL M

WRITELN;
WRITELN ('AKARNYA ADALAH = ',XB:0:6);
READLN;
END.

Penyelesaian Persamaan Linear Dengan Metode Gauss Seidel

Metode Gauss-Seidel digunakan untuk menyelesaikan sistem persamaan linear (SPL) berukuran besar dan proporsi koefisien nolnya besar, seperti sistem-sistem yang banyak ditemukan dalam sistem persamaan diferensial. Metode iterasi Gauss-Seidel dikembangkan dari gagasan metode iterasi pada solusi persamaan tak linier.

Teknik iterasi jarang digunakan untuk menyelesaikan SPL berukuran kecil karena metode-metode langsung seperti metode eliminasi Gauss lebih efisien daripada metode iteratif. Akan tetapi, untuk SPL berukuran besar dengan persentase elemen nol pada matriks koefisien besar, teknik iterasi lebih efisien daripada metode langsung dalam hal penggunaan memori komputer maupun waktu komputasi. Dengan metode iterasi Gauss-Seidel sesatan pembulatan dapat diperkecil karena dapat meneruskan iterasi sampai solusinya seteliti mungkin sesuai dengan batas sesatan yang diperbolehkan. untuk download silahkan di Sini