Faktorial biasanya ditulis dengan N!
N itu bisa berarti 1, 2, 7, 22, pokoknya angka. Jadi, faktorial 5 ditulis dengan 5!
Faktorial itu artinya mengalikan suatu bilangan dengan bilangan-bilangan sebelumnya hingga akhirnya dikalikan dengan angka 1.
Contohnya :
Faktorial dari 6 :
6*5*4*3*2*1 = 720
Jadi, sudah jelas gimana faktorial itu?
Catatan :
* artinya x (kali)
Kalau belum, coba deh diulang lagi bacanya.
Kalau sudah jelas, coba dibayangin kira-kira gimana sih algoritma nya?
Nah, kalau algoritma nya udah kebayang, Insya Allah bisa buat programnya.
Oh, ya, hampir lupa. Program ini menggunakan function.
Inilah algoritma nya :
Program Faktorial_pascal;
uses crt; {atau uses wincrt;}
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
clrscr;
writeln('Faktorial Sequence');
writeln;
write('Berapa Faktorial : ');readln(x);
writeln(x,' faktorial ','= ',faktorial(x));
writeln;
write('Tekan Sembarang Tombol untuk keluar...');
readln;
end.