Program Pembantu *Function*

Program Faktorial3;
uses wincrt;
var
i, N, hsl : integer;

function Fakto(N : integer) : integer;
var
Fak : integer;
begin
if (N=0) or (N=1) then
fakto:=1
else
fakto:= N*Fakto(N-1);
end;

begin
clrscr;
write('faktorial berapa yang anda ingin hitung:'); readln(N);
writeln('hasil perhitungan:',fakto(N));
readln;
end.

Categories: DDPK