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.

antinetcut di ubuntu

Pernah ngrasai bisa nge-ping tapi ndak bisa konek ke jaringan? mungkin ada yang nakal mainan sama software yang namanya Netcut. ini salah satu solusi untuk melawan aplikasi tersebut. Sebagai informasi, netcut menggunakan protokol ARP dalam melakukan serangan. Untuk pengguna linux, cara mendeteksi apakah ada pengguna yang menggunakan netcut adalah dengan mengetikkan

~$ arp

Jikalau user terkoneksi ke sebuah server, maka hanya ada 1 tampilan hasil perintah tersebut

arp

Kalau ada lebih dari 1, kemungkinan ada yang menggunakan netcut. Cara mengatasinya yaitu dengan menggunakan software antinetcut. Download antinetcutnya di sini kemudian extract. Buka console, kemudian pindah direktori ke direktori antinetcut. Ketikkan :

 ~$ sudo ./antinetcut.py start

Untuk mengetahui apakah antinetcutnya sudah berjalan atau belum, ketikkan :

 ~$ sudo ./antinetcut.py status

kalau muncul tulisan “Antinetcut daemon is running…” berarti antinetcut sudah berjalan. Kalau muncul tulisan “Antinetcut daemon is not running…” berarti antinetcut belum berjalan. Ulangi lagi langkah menjalankan antinetcut.