Program Function dengan Bahasa Pascal

function faktorial ( nilai:integer):integer;

begin
if nilai <=0 then faktorial:=1
else
faktorial:=nilai*faktorial (nilai-1);
end;
var
N:integer;
begin
write('berapa faktorial?');readln(N);
writeln(N,'faktorial=',faktorial(N));
end.

Posted in: BAHASA PASCAL