Tugas 3 Metode Numerik Untuk Kelas SI- Extension

Dikerjakan minggu depan, dikumpulkan
tanggal 25 November 2008

1.Modifikasi dan semurnakan listing program dibawah ini sibawah ini untuk pengerjakan soal pada Modul hal 20 Tugas 3 No 1 dan 2
2. Tambahkan Listing untuk mencek syarat: Fa*Fb<0

3. Listing program dalam bahasa pascal sbb :

Program Metode_TitikPalsu;{ Untuk persamaan polinom : Y=X^3 - 9}

uses crt;
Var A,B,Akar,c,Clama,Cekep,Fa,Fb,Fc,Epsilon,E: Real;
i : Integer;
Begin
clrscr;
a:=2;b:=3;epsilon:=0.01;
clama:=(2*b)-a; writeln('============================================================='); writeln('Iterasi A B Fa Fb Fc '); writeln('============================================================='); i:=1;
Repeat
Fa:=(a*a*a)-9;
Fb:=(b*b*b)-9;
c:=b-(fb*((b-a)/(fb-fa)));
fc:=(c*c*c)-9;
cekep:=(c-clama)/c;
if cekep <0 then cekep := -1 * cekep;
if fa*fc <0 then b:=c;
if fa*fc >0 then a:=c;
clama:=c;
akar :=c;
writeln(i:4,a:12:4,b:12:4,fa:11:4,fb:11:4,fc:11:4);
i:=i+1;
until cekep<=epsilon;
writeln ('=================================================='); writeln('Akar : ',akar:0:4);
readln;
end.


Dosen pengasuh,

Ignas Lamabelawa