Iklan

Metode Bolzano

Coding Program Mencati akar dengan metode bolzano dalam bahasa turbo pascal...
PROGRAM BOLZANO;

USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
VAR X,A,B,E,T : REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN A=');READLN(A);
WRITE('MASUKKAN B=');READLN(B);
E := 0.0001;
REPEAT
T := (A+B)/2;
IF F(A)*F(T) <0 ke="',X:0:0,'" t =" ',t:0:7);">
writeln;
WRITE ('Akarnya adalah = ',T:0:7);
READLN;
END.

1 Response to "Metode Bolzano"

  1. makasi mas, infonya sgt bermanfaat..

    BalasHapus

Berkomentarlah dengan topik yang relevan