Teknik Iteratif & Rekursif Pada Pascal

1. Teknik Iteratif

Teknik Iteratif merupakan suatu teknik pembuatan algoritma dengan pemanggilan procedure beberapa kali atau hingga suatu kondisi tertentu terpenuhi.

• contoh program fibonacci degan teknik iteratif

program fibonacci_iteratif;
uses wincrt;
var
fb1,fb2,fn,x,i:integer;
function fibo(n:integer):integer;
begin
if n<2 then fibo:=n
else
begin
fb1:=0;
fb2:=1;
for i:=2 to n do

begin
fn:= fb1;
fb1:=fb2;
fb2:=fn+fb2;
end;
fibo:=fb2;
end;
end;
begin
write('masukan batas suku bilangan ke:');readln(x);
write('deret fibonacci:');
for i:=1 to x do
write(fibo(i),' ');
end.

2. Teknik Rekursif

Teknik Rekursif merupakan salah satu cara pembuatan algoritma dengan pemanggilan procedure atau function yang sama.

• contoh program fibonacci degan teknik rekursif

program fibonacci_rekursif;
uses wincrt;
var
x,i:integer;
function fib(n:integer):integer;
begin
if(n=1)then
fib:=0
else
if (n=2)then
fib:=1
else
fib:=fib(n-1)+fib(n-2);
end;
begin
write('masukan batas suku bilangan ke:');
readln(x);
write('deret fibonacci:');
for i:=1 to x do
write(fib(i),' ');
end.


Demikian tadi contoh program iteratif dan rekursif, semoga bermanfaat untuk kita .