Rekursif PASCAL

Rekursif PASCAL

Rekursif 

Rekursif adalah fungsi atau prosedur yang digunakan untuk dapat memanggil dirinya sendiri. 
Berikut ini adalah sebuah contoh coding program pascal fungsi dan prosedur yang  menggunakan fungsi rekursif. 
Contoh Coding Rekursif ,program faktorial :

Program Recursif;
Var
num, f : Integer;
Function fact (x : Integer): Integer;(*penjumlahan factorial of x-x!*)

Begin
If x=0 Then
fact := 1
Else
fact := x * fact(x-1); (*pemanggilan rekursif *)
End; { end of function fact}

Begin
Writeln (' Enter a number: ');
Readln (num);
f := fact (num);
Writeln (' Factorial ', num, ' is: ' , f);
End.
Rekursif PASCAL
hasil coding

Rekursif PASCAL

Contoh Program Coding rekursif yang lain ,Program Fibonanci urut angka : 

Program rekursifFibonacci; Var
I : Integer;
Function fibonacci(n : Integer) : Integer;

Begin
If n = 1 Then
fibonacci := 0
Else
If n=2 Then
fibonacci := 1
Else
fibonacci := fibonacci(n-1) + fibonacci(n-2);
End;

Begin
For i:= 1 To 10 Do
Write (fibonacci (i), ' ');
End.

rekursif fibonancy
hasil coding

Spread the love

Fajar (Ucup)

Pemilik dan Author dari FajarYusuf.com dan juga seseorang yang gemar membagikan info menarik kepada orang lain.

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *