Metode Bagi Dua menggunakan PASCAL

·         METODE BAGI DUA

program Metode_Bagi_Dua

uses crt

const epsilon = 0.000001

var  a,b,c,fa,fb :

     r: integer

begin

     clrscr

     a:=0

     b:=1

     r:=0

     writeln(' ==================MetoDe Bagi Dua=================

     writeln('---------------------------------------------------------

     writeln('  r   a    b   c      f(a)    f(b)   (a-b)  ');

     writeln('---------------------------------------------------------

     repeat

           r:=r+1

           c := (a+b)/2;

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

           fb:= exp(b) - 5 * (b*b)

           if (fa * fb < 0) then b:= c

           else                                                              

           a := c;                                                                                                                                

     writeln(r:3,'',a:5:6,'',b:5:6,'',c:5:6,'',fa:5:6,'',fb:5:6,'',(a-b): 5:6

     until ABS(a+(-b)) < epsilon                                            

     writeln('------------------------------------------------------

     writeln('Akar X = ',c:5:6                                             

     readln                                                                

end

You Might Also Like :