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




Berlangganan update artikel terbaru via email:

0 Response to "Rekursif PASCAL"

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel