Praktikum Gunadarma.

Laporan Akhir : Matematika Lanjut 2 ( Turbo Pascal 7.0 )

Penghitungan Dan Program Biseksi 

Program Biseksi dengan menggunakan Turbo pascal 7.0



Atau kalian bisa copas Program tersbut disini :


uses crt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
ab : char;
begin
ulang :
clrscr;
writeln('Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Metode Biseksi');
write( 'Masukan nilai x1 = ' );
readln( x1 );
y1 := x1 * x1 * x1 + x1 * x1 - 3 * x1 -3;
writeln(' Nilai f(x1)= ',y1:0:4);
repeat
begin
write( 'Masukan nilai x2 = ');
readln(x2);
y2 := x2 * x2 * x2 + x2 * x2 - 3 * x2 - 3;
write(' Nilai f(x2)= ',y2:0:4);
end;
if (y1*y2)<0 then
Writeln(' Syarat Nilai Ok')
else
Writeln(' Nilai X2 Belum Sesuai');
until ( y1 * y2 ) < 0;
I :=2;
Writeln;
writeln('Penyelesaian Persamaan Dengan Metode Biseksi, Nilai x1= ',x1:0:2,' & x2= ',x2:0:2);
writeln('--------------------------------------------------------------------------');
writeln('n x f(x) error ');
writeln('--------------------------------------------------------------------------');
repeat
begin
i :=i + 1 ; x3 := ( x1 + x2) / 2;
y3 := x3 * x3 * x3 + x3 * x3 - 3 * x3 -3;
if (i mod 10)=0 then readln;
if i<10 then
writeln(' ',i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::')
else writeln(i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::');
if ( y1* y3) <0 then
begin
x2 :=x3;
end else
begin
x1 := x3;
end;
end;
until abs( y3 )<1E-07;
writeln('-------------------------------------------------------------------------');
writeln('akar persamaanya = ',x3);
writeln('errornya =',abs( y3 ));
writeln('-------------------------------------------------------------------------');
write('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
end.


Jika di Runing Maka Hasilnya akan seperti ini :




Kalian bisa download Coding Programnya disini : Download !


rumus mencari X dan f(x) :
Xc=(Xa+Xb)/2
f(x) = x3 + x2 – 3x – 3 = 0

Nilai batas atas dan batas bawah :
X1 =  7
X2 = 1

perhitungannya !

Pertama, cari dulu F(X1) dan F(X2) caranya :

F(X1)   = (7)3 + (7)2 – 3(7) – 3
          = 343 + 49 – 21 – 3
          = 368
F (X2)  = (1)3 + (1)2 – 3(1) – 3
          = 1 + 1 – 3 – 3
                      = -4
Kemudian ,  f(X1) * f(X2) < 0
        = 368 * (-4) < 0
        =  - 1,472 < 0 , ( maka terpenuhi )

Langkah ke-2 untuk menentukan nilai X3  :

X3=(X1+ X2)/2
          X3=(7+1)/2
                 X3=(8)/2
 X3  = 4
Setelah X3 ketemu, kita cari f(X3) nya :
F(X3)   =  (4)3 + (4)2 – 3(4) – 3
=  64 + 16 – 12 – 3
= 65
Langkah ke-3 ,untuk menentukan nilai X4, caranya :

X4=(X2+ X3)/2

x4=(1+4)/2

X4=(5)/2

X4=2,5

Kemudian kita cari F(X4) ,caranya :

F(X4)   = (2,5)3 + (2,5)2 – 3(2,5) – 3

= 15,625 +  6,25 – 7,5 – 3

=  11,375

Maka kita dapatkan hasilnya sebagai berikut :
X1  = 7    f(X1)  =  368
X2  = 1  f(X2)  = - 4
X3  = 4  f(X3)  = 65
X4  = 2,5          f(X4)  = 11,375


Terimakasih sudah datang dan membaca artikel kami Sertakan link sumber untuk menghargai karya cipta orang lain :)