Membuat Program Faktorial Dengan Pascal

Untuk menciptakan program faktorial menggunakan bahasa pascal sangatlah sederhana. Dalam pembuatan program ini tidak memerlukan listing yang panjang. Dalam membangun program faktorial ini yang wajib kita mengerti merupakan statement looping, karena penggunaan statement looping disini sangatlah krusial.

Berikut ini merupakan 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.