Blog for Learning

This blog contains lesson material, material summary, questions and answers, definitions, types and examples, and others.

Advertisement

Powered by Blogger.

Visitors

Flag Counter

Pages

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
0 Komentar untuk "Contoh program pascal menghitung faktorial menggunakan procedure"

Silahkan berkomentar sesuai artikel

 
Template By Kunci Dunia
Back To Top