Laman

Rabu, 11 April 2012

Metode Regulafalsi Pada Program Pascal









Ini adalah salah satu metode Bisection and regulafalsi dengan program Pascal yang bisa anda tiru untuk belajar .
                                                                  
  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}


Related Article:

0 komentar:

Posting Komentar


 

Gunadarma BAAK News

Gunadarma BAAK News

Gunadarma BAAK News

Ada kesalahan di dalam gadget ini

Total Tayangan Laman

Pengikut

Ada kesalahan di dalam gadget ini
Copyright 2010 Anggun Blogg's. All rights reserved.
Themes by Bonard Alfin l Home Recording l Distorsi Blog