Powered By Blogger Submit Your Site To The Web's Top 50 Search Engines for Free! Online Marketing

Subscribe Now

Monday, April 13

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


0 Comments:

Post a Comment

Popular Posts This Months

Related Posts Plugin for WordPress, Blogger...