Membuat Program Faktorial Dengan Pascal

Membuat Program Faktorial

Untuk membuat program faktorial dengan bahasa pascal sangatlah sederhana. Dalam pembuatan program ini tidak memerlukan listing yang panjang. Dalam membuat program faktorial ini yang harus kita mengerti adalah statement looping, karena penggunaan statement looping disini sangatlah penting.

Berikut ini adalah listing program faktorial;

Program faktorial;

uses crt;

var i,n,x:integer;

begin

       clrscr;

       writeln('Membuat Program Faktorial');

       writeln('====================');

       writeln;

       write('Masukkan Nilai Faktorial = ');readln(n);

       if n<=0 then

         begin

           writeln('Hasil dari faktorial adalah ',i);

         end;

       if n>0 then

         begin

            x:=1;

            for i:=1 to n do

              begin

                x:=x*i;

              end;

           end;

         writeln('Hasil Faktorial = ',x);

readln;

end. 

Ini adalah screenshotnya:

Jika di running hasilnya akan seperti dibawah ini;

Nah itulah program faktorial yang dibuat dalam bahasa pascal.

Sekian untuk postingan kali ini.