Faktorial pada Pascal

Coding window pada pascal:

Tampilan bila program dijalankan:

Code Program Faktorial pada Pascal :

USES CRT; PROCEDURE FAKTORIAL;  VAR A,B,C,TOT:INTEGER;  BEGIN  WRITELN ('MASUKKAN ANGKA');  READLN (A);  B := A;  TOT := 1;   BEGIN   WHILE B >= 1 DO    BEGIN    TOT := TOT * B;    B := B - 1;    END;   WRITELN (TOT);   READLN;   END; END; BEGIN CLRSCR; FAKTORIAL; END.

 

CARA KERJA

Pada Program kali ini saya menggunakan kode:

USES CRT;

Untuk Mendeklarasikan Bahwa saya menggunakan Monitor CRT sebagai Monitor Utama (Background Hitam dengan Tulisan Putih),

Lalu memasuki kode prosedur :

PROCEDURE FAKTORIAL;

Disini saya mendeklarasikan sebuah Procedure bernama FAKTORIAL,

VAR A,B,C,TOT:INTEGER;

Pada saat ini program akan mendeklarasikan Variabel A,B,C,dan Tot sebagai Integer (bilangan Bulat):

BEGIN  WRITELN ('MASUKKAN ANGKA');  READLN (A);  B := A;  TOT := 1;

Pada saat ini program akan memulai sebuah operasi di dalam procedure, program akan menulis “MASUKKAN ANGKA”,

lalu program akan mengidentifikasi angka yang anda masukkan sebagai sebuah bilangan bulat (Integer),

lalu program akan mengubah nilai B menjadi sama dengan nilai yang anda masukkan (dalam hal ini nilai A),

lalu program juga akan mengubah nilai TOT menjadi 1,

BEGIN   WHILE B >= 1 DO    BEGIN    TOT := TOT * B;    B := B - 1;    END;   WRITELN (TOT);   READLN; END;

Masuk lebih dalam dengan proses (masih dalam prosedur yang sama), kali ini program akan melooping, jika B >= 1 akan melakukan :

          Mendefinisikan nilai TOT dengan TOT * B,

          Mengurangi Nilai B dengan 1.

Menulis Nilai Dari TOT,

Sampai disini jika program berjalan, maka program akan menuggu User untuk menginput (Enter), sebelum masuk ke proses berikutnya,

END;

Maksudnya program akan keluar dari Prosedur FAKTORIAL (mengakhiri sebuah prosedur),

BEGIN

Program akan memulai sebuah proses,

FAKTORIAL;

Program akan memanggil Prosedur FAKTORIAL,

END.

Program Selesai.

Related Posts