Free Pascal Bilangan Faktorial

FAKTORIAL adalah hasil perkalian dari seluruh bilangan, misalkan N! maka hasilnya adalah N*(N-1)*(N-2)*....*1.

Contoh :
- 3! = 3 * 2 * 1 = 6
- 5! = 5 * 4 * 3 * 2 * 1 = 120

untuk mencari faktorial sebuah bilangan pada bahasa pemograman maka kita membutuhkan sebuah perulangan, disini saya menggunakan perulangan FOR...TO....DO, maka hasilnya


For i := N downto 1 do
    hasil := hasil * i;


simpel saja, mudah kan...!
- N adalah bilangan yang akan dicari,
- kemudian dilakukan perulangan menurun dari N sampai 1.
- misalkan N = 10 maka perulangannya akan menjadi 10, 9, 8, 7, 6, 5, 4, 3, 2, 1.
- didalam perulangan akan dilakukan hasil perkalian sebelumnya akan dikalikan dengan nilai berikutnya pada perulangan.


FULL CODE

Uses CRT;
Var
  I: byte;
  N, Hasil: Integer;
Begin
   writeln('Faktorial Dari  ');
   readln(N);
  for i := N downto 1 do
    hasil := hasil * i;
  writeln('adalah ',Hasil);
readln;
End.



Semoga Bermanfaat