Penyelesain Metode Numerik dalam Pascal

Bagi anda yang suka komputasi,pemrograman komputasi dan komputasi numerik.

Salah satu topik yang menarik adalah bagaimana menentukan atau penyelesaian akar persamaan non linear.
Ada beberapa teknik dalam menentukan akar persamaan non linear :
1. Metode bagi dua (Bisection Method)
2. Metode Posisi Palsu (False Posisition)
3. Metode Iterasi Titik Tetap(Fixed Point Method)
4. Metode Newton Raphson
5. Metode Secant

Kelima metode ini ada yang mempunyai kemiripan dilihat dari teknik yang dipakai untuk menentukan akar.
Sekarang yang dibahas metode nomor 1.
Metode Biseksi, dari katanya dapat dipahami metode berarti membagi selang menjadi dua, atau dikenal dengan metode pengurungan akar.

Listing program dalam pascal sbb :

Program MetodeBagi2;
Uses wincrt;
Var
A,B,Epsilon,T,FA,FB,FT,Akar : Real;
I : Integer;
Begin
Clrscr;
Writeln('Menentukan akar Persamaan Non Linear dengan Metode Bagi 2');
writeln('Fungsi Y=X^3 -3');
writeln('_______________________________________________________');
Write('nilai selang kiri:');readln(a);
Write('nilai selang kanan:');readln(b);
write('nilai epsilon:');readln(epsilon);
FA:=((a*a*a)-3);FB:=((b*b*b)-3);
if FA*FB > 0 then
begin
write('Selang yang diberikan tidak mengandung akar');
end
else
Begin
Writeln('-----------------------------------------------------');
Writeln('Iterasi A B T FA FT ');
Writeln('-----------------------------------------------------');
Writeln;
I:=1;
Repeat
T:=(A+B)/2;
FA:=((A*A*A)-3);
FT:=((T*T*T)-3);
If FA*FT < 0 Then B:= T;
If FA*FT > 0 Then A:= T;
Akar:=T;
Writeln(I:4, A:10:4, B:9:4, T:10:6, FA:10:6, FT:10:6);
I:=I+1;
Until B-A<=Epsilon;
Writeln('-----------------------------------------------------');
Writeln;
Writeln('Akar= ',Akar:0:10);
Readln;
End;
End.


Bagaimana output dan penjelasan listing program diatas ?
menjadi bahan diskusi
metode ke-2 dst,akan didiskusikan selanjutnya