Rabu, 16 Desember 2009

Program Faktorial dengan Fungsi secara Rekursi

{program faktorial menghitung n! dengan fungsi secara rekursi}
uses wincrt;
function faktorial(n:byte):longint;
begin
if n<=1 then
faktorial:=1
else
faktorial:=n*faktorial(n-1);
end;

var
n:byte;
begin
write ('berapa faktorial? ');readln(n);
writeln ('faktorial= ', faktorial(n));
end.

Tidak ada komentar:

Posting Komentar