Laporan Akhir Pratikum 8 (Program Fungsi Pascal)

FUNGSI PASCAL

Program Nilai_Faktorial;

Uses Crt;

Function Faktorial(Nilai :Integer):Real;

Begin

Clrscr;

If Nilai = 0 Then

Faktorial := 1

Else

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

End;

Var N:=Integer;

Begin

Clrscr;

Write(‘Ada Berapa Faktorial ? ’);

Readln(N);

Writeln(N,’Faktorial Adalah ‘,Faktorial(N):9:0);

Readkey;

End.

Hasil dari listing di atas !