Metode Regulafalsi dan Bisection Dengan Program Pascal

begini lah kerjaan seorang mahasiswa selalu nurut sama dosen setiap kali harus mengerjakan tugas demi menghindari nilai jelek......engak ada bosen"nya setiap pertemuan mata kuliah metode numerik II dosen selalu memberikan tugas,...kali ini dosen menyuruh menyelesaikan persamaan linear dengan metode Bisection and regulafalsi dengan program Pascal.

                                                                    LISTING PROGRAM


PROCEDURE RegulaFalsi(a,b,eps:Real; VAR xsol:Real);
{ Required condition: f(a)*f(b)<0 }
{ eps = accuracy of the root, e.g.: 0.000001 }
VAR
   c, fa, fb:Real;
BEGIN
   REPEAT
     fa:=f(a); fb:=f(b);
     c:=b - (b-a)*fb/(fb-fa);
     IF fa*f(c)<0 THEN b:=c
     ELSE a:=c
   UNTIL b-a<eps;
   xsol:=c
END; {Regula Falsi method - Pascal code}



PROCEDURE Bisection(a,b,eps:Real; VAR xsol:Real);
{ Required condition: f(a)*f(b)<0 }
{ eps = accuracy of the root, e.g.: 0.000001 }
VAR
   c:Real;
BEGIN
   REPEAT
     c:=(a+b)/2;
     IF f(a)*f(c)<0 THEN b:=c
     ELSE a:=c
   UNTIL b-a<eps;
   xsol:=c
END; {Bisection method - Pascal code}