Rekursi Pada Function

Disusun Oleh Dosen : Elisawati, S.Kom, M.Kom

Rekursi adalah dimana suatu function memanggil dirinya sendiri. Proses dapat dilihat pada contoh berikut. Dimana fungsi faktor dipanggil oleh dirinya sendiri.

Contoh :

program function_memanggil_funnction_yg_lain;
uses crt;
function faktor(bilangan : integer) : real;
    begin
        if bilangan=0 then
            faktor:=1
        else
            faktor:=faktor(bilangan-1)*bilangan;
    end;
var
    n : integer;
begin
    write('berapa faktorial =');readln(n);
    writeln(N:5,' faktorial =',faktor(n):9:0);
    readln;
end.