BAB 1D : Fungsi dan Prosedur - Function

Solusi BAB 1D : Fungsi dan Prosedur - Function

PROGRAM fungsi;

var

    bil: integer;

 

function Faktorial(n: integer): longint;

begin

    if (n = 0) then

        Faktorial := 1

    else

        Faktorial := n * Faktorial (n - 1);

end;

 

function Valid(n: integer): boolean;

begin

    Valid := (n >= 0) and (n <= 10);

end;

 

begin

    readln(bil);

    if (Valid(bil)) then

        writeln(Faktorial(bil))

    else

        writeln('ditolak');

end.