LA Matlan 2 IV

Program Newton Raphson
uses crt;
label
ulang;
var
    x,x1,y,y1,z,f,f1,f2 : real;
    I : integer;
    ab : char;
begin
    ulang:
    clrscr;
repeat
begin
    writeln('Tentukan Akar Persamaan dari f(x)=3x+sin(x)+exp x dengan Metode Newton Raphson');
    writeln;
    write('Masukan nilai x1 = ');
    readln( x1 );
    y1 := 3 * x1 + sin ( x1 ) - exp ( x1);
    f1 := 3 + cos ( x1 ) - exp ( x1 ); {-- Turunan Pertama --}
    f2 := - sin ( x1 ) - exp ( x1 ); {-- Turunan Kedua --}
    z := (y1 * f2) / ( f1 * f1 );
    writeln(' Nilai f(x1)= ',y1:0:5);
    writeln(' Nilai f`(x1)= ',f1:0:5);
    writeln(' Nilai f``(x1)= ',f2:0:5);
    if abs ( z ) <1 then

LP Matlan 2 III

Soal :

1. Apa yang kalian ketahui tentang metode Newton-Raphosn ?
2. Algoritma pada Newton-Raphson ?

LA Matlan 2 III

Program Regulafalsi
uses crt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
Ab :char;
data1 : real;
begin
    ulang:
    clrscr;
    writeln('Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Regula Falsi');
    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;
    writeln;
    writeln('Penyelesaian persamaan karekteristik dengan metoda regula falsi');
    writeln('----------------------------------------------------------------------');
    writeln(' n          x                    f(x)               error ');
    writeln('----------------------------------------------------------------------');
    repeat

LP Matlan 2 II

Soal :

1. Apa yang kamu ketahui tentang regulasi falsi ?

2. Algoritma pada Regulasi Falsi ?

False Position (Regulasi Falsi)
garis lurus sebagaipengganti f(x)
Prinsip
Di sekitar akar fungsi yang diperkirakan, anggap fungsi merupakan garis lurus. Titik tempat garis lurus itu memotong garis nol ditentukan sebagai akar ungsi.

LA Matlan 2 II

Program BISEKSI

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);

LA Matlan 2 I

Program Tabulasi :
uses crt;
label ulang;
var x,x1,x2,xa,xb,xc,y,y1,y2,ya,yb:real;
    i,j,k:integer;
    ab:char;
begin
     ulang:
     clrscr;
     writeln('Tentukan akar penyelesaian dengan metode tabulasi dari f(x)=x^3-7x+1');
     writeln;
     write('Masukkan nilai x1 = ');
     readln(x1);
     y1 := x1 * x1 * x1 - 7 * x1 + 1;
     writeln('  f(',x1:0:2,') = ',y1:0:4);
     repeat
     begin
          write('Masukkan nilai x2 = ');
          readln(x2);
          y2 := x2 * x2 * x2 - 7 * x2 + 1;
          writeln('  f(',x2:0:2,') = ',y2:0:4);
          writeln;
          writeln('Syarat (x1 * x2) < 0');
          write('x1 * x2 = ',y1 * y2:0:5);
          if (y1 * y2) < 0 then write('Nilai OK')
          else write('Nilai tidak sesuai');
          readln;
     end;
     until (y1 * y2) < 0;
     clrscr;
     k := 0;
     repeat
     begin

LP Matlan 2 I

1. Apa yang anda ketahui tentang Metode Biseksi ?
Metode biseksi merupakan salah satu metode tertutup untuk mentukan solusi akar dari persamaan non linear atau disebut juga metode pembagian Interval atau metode yang digunakan untuk mencari akar-akar persamaan nonlinear melalui proses iterasi, dengan prinsip utama sebagai