Program faktorial

Berikut merupakan Program faktorial menggunakan bahasa Pascal dengan menggunakan statement IF.

• SOURCE CODE

Program Faktorial;
uses crt;
var
   i, n, x : integer;
begin
clrscr;
     writeln('Program Faktorial');
     writeln('============');
     writeln;
     write('Masukkan Nilai Faktorial : ');readln(n);
     writeln;
     if  (n <= 0) then
        writeln('Hasil Faktorial : ',1)
        else
     begin
         x := 1;
         for i := 1 to n do
         x :=x*i;
         writeln('Hasil Faktorial : ',x);
     end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program Faktorial;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   i, n, x : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     writeln('Program Faktorial');     {Cetak Program Faktorial}
     writeln('============');     {Cetak ============}
     writeln;     {Cetak baris}
     write('Masukkan Nilai Faktorial : ');     {Cetak Masukkan Nilai Faktorial}
     readln(n);    {Baca variabel n}
     writeln;     {Cetak baris}
     if (n <= 0) then     {Jika n <= 0 kemudian}
         writeln('Hasil Faktorial :',1}     {Cetak Hasil Faktorial : 1}
         else     {Kalau tidak}
     begin     {Awal instruksi program}
         x := 1;     {Nilai awal x}
         for i := 1 to n do     {Memulai pengulangan sesuai dengan banyaknya jumlah nilai yang di input pada variabel n}
         x := x*i;     {Counter perkalian x}
         writeln('Hasil Faktorial : ',x);     {Cetak Hasil Faktorial :, Baca variabel x}
    end;     {Akhir instruksi kondisi}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruki program}

• PRINT SCREEN PROGRAM

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            : Faktorial
• Source Code .pdf       : .:_Download_:.
• Flowchart .png          : .:_Download_:.
• Program .pas             : .:_Download_:.
• Password                   : kamuspascal.blogspot.com

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