ORGANISASI DAN ARSITEKTUR SISTEM KOMPUTER

program matnum;

uses crt;

var

        a,b,c,h         : real;

        fa, fb ,fc      : real;

        i               : byte;

const

        epsilon = 0.00001;

begin

        clrscr;

        write('masukkan nilai a : '); readln(a);

        write('masukkan nilai b : '); readln(b);

        i :=0;

        writeln;

        writeln('//////////////////////////////////////////////////////////////////////////');

        writeln('     i        a         b         c          f(a)        f(c)      h       ');

        writeln('//////////////////////////////////////////////////////////////////////////');

        repeat

                c:=(a+b)/2;

                fa:=exp(a)-5*(a*a);

                fc:=exp(c)-5*(c*c);

                i:=i+1;

                h:=a-b;

                gotoxy(5,i+7); write(i);

                 gotoxy(11,i+7); write(a:0:6);

                  gotoxy(21,i+7); write(b:0:6);

                   gotoxy(31,i+7); write(c:0:6);

                    gotoxy(41,i+7); write(fa:0:6);

                     gotoxy(53,i+7); write(fc:0:6);

                      gotoxy(65,i+7); write(h:0:6);

                if fa*fc < 0 then

                        b:=c

                else

                        a:=c;

        until abs(a-b)<epsilon;

        writeln;

        writeln('//////////////////////////////////////////////////////////////////////////');

        writeln;

        writeln('akar x = ',c:0:6);

readln;

end.

hasilnya akan seperti: