Rekursi

Rekursi bisa melalui procedure atau function. Procedure memanggil dirinya sendiri meruakan suatu procedure yang memanggil atau menggunakan procedure itu juga. Fungsi juga dapat memanggil dirinya sendiri. Proses dari suatu program yang memenggil dirinya sendiri disebut rekursi.

Contoh:

Program Latihan_Rekursi_1;

Uses Wincrt;

Function Faktorial(a:real):real;

Begin

If (a=1)then

Faktorial:=1

else

Faktorial:=a*faktorial(a-1);

End;

Var

x:longint;

Begin

Writeln('Berapa Faktorial? ');Readln(x);

Writeln(x,' faktorial ','= ',Faktorial(x):5:0);

End.

Posted in: pascal,rekursi