dengan Pascal
Berikut Source Code Program:
Program Factorial;
uses crt;
var n:integer;
function factorial(n:integer):integer;
begin
if (n=0) then
factorial:=1
else
factorial:= n*factorial(n-1);
end;
begin
clrscr;
write('Masukkan Angka : ');readln(n);
writeln('Hasil ',n,'! : ',factorial(n));
readln;
end.
Dan berikut adalah output dari prorgam diatas:
1. Tampilan saat progam dijalankan
2. Tampilan saat angka yang ingin difaktorialkan dimasukkan
3. Tampilan hasil faktorial dari angka yang diinput
