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.
