Wednesday, December 19, 2018

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





Reviewer: FajarYusuf.Com
ItemReviewed: Rekursif PASCAL

Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.