Contoh Function Recursive

contoh program sederhana yang menggunakan function recursive tanpa menggunakan loop….

uses crt;
var bil:integer;

function hasil1(x:integer):longint; {fungsi unk bilangan x positif}
begin
if (x mod 2) 0 then dec(x); {jika bil bil bukan genap, maka dikurangi satu}
if x=0 then hasil1:=0 else hasil1:=x+hasil1(x-2); {deret terjadi x+(x-2)+(x-4)+……+0}
end;



function hasil2(x:integer):longint; {fungsi untuk x bilangan negatif}
begin
if (x mod 2) 0 then inc(x); {misal x=-11,maka x=x+1=-10}
if x=0 then hasil2:=0 else hasil2:=x+hasil2(x+2); {deret menjadi x+(x+2)+(x+4)+….+0}
end;

begin
write(‘masukkan bilangan sembarang ‘);
readln(bil);
if bil>=0 then writeln(‘Jumlah genap dari ‘,bil,’ adalah ‘,hasil1(bil))
else writeln(‘jumlah genap dari ‘,bil,’ adalah ‘,hasil2(bil));
end.