Program Pascal - Faktorial menggunakan Rekursif berupa Function

1.      Screenshot Program

 Gambar 1 : Tampilan Program Saat pertama di jalankan

Gambar 2 : Tampilan saat mengiputkan Nilai Faktorial

Gambar 2 : Tampilan hasil dari nilai faktorial yang diinputkan

2.      Source Code

program Faktorial; Uses crt; Function Fakt(N : integer) : integer;  begin  if N = 0 then  Fakt := 1  else  Fakt :=N*Fakt(N-1);  end; Var angka, hasil : integer; BEGIN  clrscr;  Writeln('-->>> Program Faktorial <<<--');   writeln;    write('   Nilai Faktorial : ');readln(angka);    hasil:=Fakt(angka);    write('   Hasil           : ',hasil);  readkey; END.