Jumat, 31 Mei 2013

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








Tidak ada komentar:

Posting Komentar