Program pascal untuk mencari nilai faktorial

sebelum mengenal programnya terlebih dahulu untuk kawan - kawan yang belum mengerti apa itu faktorial. faktorial dari bialngan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial (wikipedia). 

sebagai contoh 5! = 1 x 2 x 3 x 4 x 5 = 120. 

seterlah kita mengetahui bagai mana cara mecari faktorialnya sekarang kita langsung meluncur ke scriptnya :

Program Fak_n; uses crt; function Faktorial(a:integer):longint; begin if (A=1)then Faktorial:=1 else Faktorial:=a*faktorial(a-1); end; var x:integer; begin clrscr; write('Masukan Angka Yg Akan di Faktorial : '); readln(x); writeln(x,'!','= ',faktorial(x)); readln; readln; end.