Contoh program pascal menghitung faktorial menggunakan procedure

Contoh program pascal menghitung faktorial menggunakan procedure




Assalamu'alaikum Wr Wb
Kali ini saya akan berbagi materi tentang program menghitung bilangan faktorial dengan procedure pada pascal. berikut kode programnya, simak baik-baik agar bisa memahami setiap scriptnya.


program bilangan_faktorial;
uses wincrt;

procedure fak(var a:integer;var hsl:integer);
var i:integer;

begin
        hsl:=1;
        for i:=a downto 1 do
        hsl:=hsl*i;
end;

var bil, hasil:integer;

begin
        writeln('PROGRAM MENGHITUNG FAKTORIAL');
        write('Masukkan Bilangan : ');
        readln(bil);
        fak(bil, hasil);
        writeln(bil,'!= ',hasil);
readln;
end.

Berikut adalah screenshoot kode program beserta hasilnya :

Sekian postingan saya kali ini. semoga bermanfaat.
Wassalamu'alaikum Wr Wb