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 :
KALIAN BISA MENCOBANYA KLIK DISINI

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

Tinggalkan Balasan

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