0
Home  ›  Contoh Aplikasi Pascal

Mencari akar dengan Bolzano

Ini adalah coding program mencari akar dengan metode Bolzano.

PROGRAM BOLZANO;

USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;

Baca juga Mencari akar dengan Bolzano


VAR X,A,B,E,T : REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN A=');READLN(A);
WRITE('MASUKKAN B=');READLN(B);

Baca juga Program Lokalisasi Akar


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.

Ubahlah fungsi f sesuai dengan kebutuhan.
Related Post
Program Lokalisasi Akar
Program Lokalisasi AkarProgram Lokalisai_Akar;Uses Crt;Function f(x : real) : real;Begin f :…
Menampilkan bilangan genap
Menampilkan bilangan genap Berikut ini adalah contoh pengulangan while .. do dalam baha…
Menampilkan bilangan ganjil
Menampilkan bilangan ganjil Berikut ini contoh bahasa Pascal untuk kasus pengulangan men…
Aplikasi OMv1.exe dengan pascal
Aplikasi OMv1.exe dengan pascalPengkodingan ini di ambil dari makalah yang telah seminarkan pada tang…
Post a Comment
Kode Iklan Tengah 1
Kode Iklan Tengah 2
Search
Kode Iklan Bawah
Menu
Teks Footer
Theme
Share
Additional JS