Menentukan Nilai Faktorial Suatu Bilangan Dengan Pascal

 Menentukan Nilai Faktorial dengan Pascal

    

Untuk menentukan nilai faktorial suatu bilangan yang perlu kita perhatikan adalah perkalian dari bilangan tersebut secara menurun artinya kalau menentukan nilai faktorial suatu bilangan kita harus melakukan perkalian dari bilangan tersebut sampai bilangan 1; Misalkan nilai faktorial dari 5 berarti 5 x 4 x 3 x 2 x 1 = 120 .Untuk itu yang kita perlu yaitu bagaimana mengurutkan bilangan tersebut dan melakukan perkalian bilangan tersebut.Tapi disini yang saya buat berbeda. Yang saya lakukan adalah mengalikan bilangan tersebut dari bawah keatas; Misalnya faktorial dari 5 berarti 1 x 2 x 3 x 4 x 5 = 120.

Codingannya dapat saya buat sebagai berikut :

program buat_faktorial;

procedure_nilai (n:longint);

var jumlah,i : longint;

begin

jumlah:=1;

write (' Faktorial dari  ' , n , ' adalah :  ');

i:=1;

while i<=n do

begin

write ( i, ' x ' );

jumlah:= jumlah * i;

i:=i+1;

end;

write (' = ' , jumlah);

end;

var x : longint;

begin

write ('Masukkan Nilai Faktorial : ');

readln x;

nilai (x);

end.

Output dari program setelah dijalankan :

 

Demikianlah artikel dari saya.Semoga artikel ini bermanfaat untuk anda.Terima Kasih.