Program pascal metode regulafalsi

Laporan akhir metode regulafalsi :

Listing program :

Penjelasan coding :

uses crt; untuk memulai pada program pascal

label ulang; untuk label ulang

var disini terdapat variable x1,x2,x3,y1,y2,y3 dengan tipe data real

x1,x2,x3,y1,y2,y3: real;

i : integer; nilai I adalah integer

ab : char; nilai ab adalah karakter 

data1 : real; data1 adalah bilangan real

begin untuk memulai

ulang: untuk mengulang

clrscr; untuk membersihkan layar sebelum nya

writeln('Tentukan nilai akar persamaannya f(x)=x^3+x^2-3x-3=0 dengan regulafalsi'); mencetak Tentukan nilai akar persamaannya f(x)=x^3+x^2-3x-3=0 dengan regulafalsi

write('Masukkan nilai x1 = '); readln(x1); input nilai x 1 dan membaca x1

y1:= x1*x1*x1+x1*x1-3*x1-3; persamaan nya

writeln('Nilai f(x1) = ', y1:0:4); mencetak nilai f(x1) dari hasil y1

repeat untuk mengulang

begin untuk memulai program

write ('Masukkan nilai x2 ='); input nilai dari x2

readln(x2); membaca nilai dari x2

y2:= x2*x2*x2+x2*x2-3*x2-3; persamaannya

write('Nilai f(x2) = ',y2:0:4); mencetak nilai f(x2) dengan hasil dari y2

end; mengakhiri coding di atas

if (y1*y2) < 0 then jika y1*y2 < 0 maka

writeln('Syarat Nilai OK') cetak nilai ok

else tetapi jika tidak 

writeln('Nilai x2 Belum sesuai '); cetak nilai belum sesuai

until y1*y2 < 0; untuk mengulang y1*y2<0

writeln; untuk mencetak kebawah

writeln ('Penyelesaian persamaan karakteristik dengan metode regulafalsi'); mencetak Penyelesaian persamaan karakteristik dengan metode regulafalsi

writeln ('--------------------------------------------------------------'); mencetak -----

writeln ('    n      x       f(x)        error        '); mencetak n x f(x) error

writeln ('--------------------------------------------------------------'); mencetak -----

repeat untuk mengulang

begin untuk memulai program

i := i+1; x3 := (x2-(y2/(y2-y1))*(x2-x1));  merupakan rumus dari metode regulafalsi

y3 := x3*x3*x3+x3*x3-3*x3-3; persamaan nya

if i < 10 then jika I < 10 maka

writeln (' ',i,':',x3,':',y3,':',abs(y3),':') mencetak I,x3,y3 dan aby(y3)

 else

writeln (i,':',x3,':',y3,':',abs(y3),':'); encetak I,x3,y3 dan aby(y3)

if y1*y3 < 0 then jika y1*y3 < 0 maka

begin memulai program

x2 := x3; y2 := y3;

end mengakhiri program

else

begin memulai program

x1 := x3; y1 := y3;

end; mengakhiri program

end; mengakhiri program

until abs(y3) < 1E-08; nilai abs(y3) < 1E-08 

writeln ('---------------------------------------------------------------'); mencetak ---

writeln ('Akar persamaannya = ',x3); mencetak akar persamaan nya dari hasil x3

writeln ('Errornya = ',abs(y3)); mencetak erronya dari hasil abs(y3)

 writeln ('---------------------------------------------------------------'); mencetak --

writeln ('Apakah anda ingin mengulangi (y/t): '); cetak apakah anda ingin mengulang

readln(ab); membaca ab

 if (ab='y') or (ab='Y') then jika ab = y atau ab = Y maka

begin memulai program

goto ulang; pergi untuk mengulang

end; untuk mengakhiri

end. Untuk mengkhiri program

Penjelasan singkat :

Pada coding di atas sebelum menjalankan nya terlebih dahulu di compile untuk mengetahui apakah masih ada yg erro atau tidak, setelah itu program dapat berjalan dengan baik