Rekursi….rekursi bukanlah nama seseorang bukan pula makanan maupun minuman, ga pedes, ga manis, ga juga kecut ( haha ga penting).. Ini hanya sebuah sebutan untuk suatu kasus yang terjadi dalam kehidupan, yang kemudian diimplementasikan dalam sebuah algoritma untuk pembuatan program. hehehehe
Secara umum… Rekursi (recursion) adalah proses dari suatu sub program baik fungsi maupun prosedure yang memanggil dirinya sendiri. Sehingga pointer dari program akan terus masuk ke dalam fungsi atau procedure hingga bertingkat-tingkat dan berakhir hingga statementnya selesai terpenuhi.
Banyak contoh dalam kehidupan sehari-hari yang merupakan implementasi dari rekursi…salah satu contoh mudahnya ketika kita meletakkan cermin yang sejajar dan saling berhadapan maka akan terjadi bayangan dalam bayangan. Contoh lain dalam matematika adalah dalam kasus factorial dari suatu angka bilangan bulat.

Contoh :
Program Rekursi_pascal;
uses Crt;
procedure rekursi(A:integer);
begin
if A nilai X dapat kita tentukan sendiri
rekursi(x);
readln;
end.

Contoh faktorial menggunakan rekursi :
Program Faktorial_pascal;
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
writeln(’Faktorial sequence’);
write(’Berapa Faktorial :’);readln(x);
writeln(x,’faktorial ‘,’=’,faktorial(x));
readln;
end.

Contoh untuk indefinite dalam pascal merupakan proses rekursi yang dilakukan tanpa berhenti atau rekursi yang tidak berujung.
Program rekursi_indefinite;
procedure rekursi;
begin
write(’Pascal’);write;
rekursi;
end;
begin
rekursi;
readln;
end.