Program menghitung bilangan faktorial

Berikut merupakan Program untuk Menghitung bilangan faktorial menggunakan bahasa Pascal dengan menggunakan statement FOR.

• SOURCE CODE

Program menghitung_bilangan_faktorial;
uses crt;
var
   x, y, z : integer;
begin
clrscr;
     write('Masukkan bilangan : ');readln(x);
     y := 1;
     for z := 1 to x do
     begin
       y :=y*z;
     end;
     writeln;
     writeln('Bilangan Faktorial dari ',x,' ','adalah = ',y);
readkey;
end.

• PENJELASAN SOURCE CODE

Program menghitung_bilangan_faktorial;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
   x, y, z : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan bilangan : ');     {Cetak Masukkan bilangan :}
     readln(x);     {Baca variabel x}
     y := 1;     {Nilai awal y}
     for z := 1 to x do     {Memulai pengulangan sesuai dengan banyaknya jumlah nilai yang di input pada variabel x}
     begin     {Awal instruksi program}
       y :=y*z;     {Counter perkalian y}
     end;     {Akhir instruksi kondisi}
     writeln;     {Cetak baris}
     writeln('Bilangan Faktorial dari ',x,' ','adalah = ',y);     {Cetak Bilangan Faktorial dari variabel x adalah = baca variabel y}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

 Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           : Menghitung bilangan faktorial
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file diatas klik Disini, untuk mempelajarinya.