Contoh Hitung Iterasi Pascal

Beberapa Contoh Cara untuk menghitung Iterasi Menggunakan Pascal ===>

Contoh 1

uses crt;
var
a,b,epsilon,t,fa,ft,akar:real;
i:integer;
begin
clrscr;
a:=1;b:=2;epsilon:=0.0001;
writeln('---------------------------------------------------');
writeln('Iterasi T Fa Ft ');
writeln('---------------------------------------------------');
i:=1;
repeat
t:=(a+b)/2;
fa:=(a*a*a)-4;
ft:=(t*t*t)-4;
if fa*ft<0 then b:=t; if fa*ft>0 then a:=t;
akar:=t;
writeln(i:4,t:15:7,fa:15:7,ft:16:7);
i:=i+1;
until b-a <= epsilon; writeln('---------------------------------------------------'); writeln('Akar = ',akar:4:10); readln; end. ==================================================== Contoh 2

uses crt;
var
a,b,epsilon,t,fa,ft,akar:real;
i:integer;
begin
clrscr;
a:=2;b:=3;epsilon:=0.01;
writeln('---------------------------------------------------');
writeln('Iterasi T Fa Ft ');
writeln('---------------------------------------------------');
i:=1;
repeat
t:=(a+b)/2;
fa:=(a*a*a)-(5*sqr(a))+16;
ft:=(t*t*t)-(5*sqr(t))+16;
if fa*ft<0 then b:=t; if fa*ft>0 then a:=t;
akar:=t;
writeln(i:4,t:15:7,fa:15:7,ft:16:7);
i:=i+1;
until b-a <= epsilon; writeln('---------------------------------------------------'); writeln('Akar = ',akar:4:10); readln; end. ============================================= Contoh 3

uses crt;
var
a,b,epsilon,e,t,fa,ft,akar:real;
i:integer;
begin
clrscr;
a:=0;b:=1;epsilon:=0.001;
writeln('---------------------------------------------------');
writeln('Iterasi T Fa Ft ');
writeln('---------------------------------------------------');
i:=1;
repeat
t:=(a+b)/2;
fa:=exp(a)-(5*(a*a));
ft:=exp(t)-(5*(t*t));
if fa*ft<0 then b:=t; if fa*ft>0 then a:=t;
akar:=t;
writeln(i:4,t:15:7,fa:15:7,ft:16:7);
i:=i+1;
until b-a <= epsilon; writeln('---------------------------------------------------'); writeln('Akar = ',akar:4:10); readln; end. ================================================
Contoh 4

uses crt;
var
a,b,epsilon,t,fa,ft,akar:real;
i:integer;
begin
clrscr;
a:=-1;b:=0;epsilon:=0.001;
writeln('---------------------------------------------------');
writeln('Iterasi T Fa Ft ');
writeln('---------------------------------------------------');
i:=1;
repeat
t:=(a+b)/2;
fa:=2*(a*a*a)+(2*a)+1;
ft:=2*(t*t*t)+(2*t)+1;
if fa*ft<0 then b:=t; if fa*ft>0 then a:=t;
akar:=t;
writeln(i:4,t:15:7,fa:15:7,ft:16:7);
i:=i+1;
until b-a <= epsilon;
writeln('---------------------------------------------------');
writeln('Akar = ',akar:4:10);
readln;
end.
=====================================================