Metode Bisection (Metode Numerik) and programing pascal

Prinsip : Kurung akar fungsi di antara dua batas, lalu paruh batas itu terus menerus sampai batas itu sedemikian sempit dan dengan demikian lokasi akar fungsi diketahui dengan keakuratan tertentu.

Langkah:
    1. Perkirakan akar fungsi (bisa dengan cara memplot fungsi).
    2. Tentukan batas awal yang mengurung akar fungsi.
    3. Belah dua daerah berisi akar fungsi itu.
    4. Tentukan daerah yang berisi akar fungsi.
    5. Ulangi langkah 3 dan 4 sampai dianggap cukup.
    6. Tentukan akar fungsi.

Berikut ini program contoh program pascal-nya :
Program Bagi_dua;
Uses Crt;
function f(x:real):real;
    begin
        f:=2*exp(x)-4*x*x;
    end;
var x0,x1,c,m:real;
    i:integer;
begin
    ClrScr;
    writeln(' =======================================');
    writeln('      Mencari akar 2exp(x)-4x^2 = 0');
    writeln('       Menggunakan Metode Bagi Dua');
    Writeln(' =======================================');
    write(' input x0= '); readln(x0);
    write(' input x1= '); readln(x1);
    writeln(' =======================================');
    writeln('  i    taksiran-akar ke-i   lebar selang');
    writeln(' =======================================');
    i:=0;
    repeat
    c:=(x0+x1)/2;
    m:=f(x0)*f(c);
    i:=i+1;
    if m < 0 then
begin
    writeln('  ',i:2,'    ',c:0:7,'           ',abs(x1-x0):0:7);
    x1:=c;
end
else
begin
    writeln('  ',i:2,'    ',c:0:7,'           ',abs(x1-x0):0:7);
    x0:=c;
end;
until abs(x1-x0)<=0.000001;
    writeln;
    writeln(' =======================================');
    writeln(' Jadi  akar persamaannya adalah ',c:0:7);
    readln;
    readln;
end.