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