Kumpulan Contoh Program Pascal dari Dasar Hingga Lanjutan

Bahasa pemrograman Pascal, yang diciptakan oleh Niklaus Wirth, masih menjadi batu loncatan penting bagi banyak programmer pemula karena strukturnya yang terstruktur (terstruktur) dan mudah dibaca. Mempelajari contoh program Pascal membantu pemahaman tentang deklarasi variabel, struktur kontrol (IF-THEN-ELSE, FOR, WHILE), dan prosedur/fungsi.

Berikut adalah beberapa contoh program Pascal yang sering digunakan untuk tujuan pembelajaran, disajikan dalam format yang mudah disalin dan dipahami.

1. Program Hello World Klasik

Program paling dasar untuk memastikan lingkungan kompilasi Anda berfungsi dengan baik.

{ Program Paling Dasar }
PROGRAM HelloDunia;
USES Crt; (* Umum digunakan di Turbo Pascal *)

BEGIN
  ClrScr; (* Bersihkan layar *)
  WriteLn('Halo Dunia! Saya Belajar Pascal.');
  ReadLn; (* Tunggu input sebelum keluar *)
END.

2. Penjumlahan Dua Angka

Contoh ini menunjukkan cara mendeklarasikan variabel dan menerima input dari pengguna.

PROGRAM Penjumlahan;
VAR
  angka1, angka2, hasil : INTEGER;

BEGIN
  Write('Masukkan bilangan pertama: ');
  ReadLn(angka1);

  Write('Masukkan bilangan kedua: ');
  ReadLn(angka2);

  hasil := angka1 + angka2;

  WriteLn('Hasil penjumlahannya adalah: ', hasil);
  ReadLn;
END.

3. Menentukan Bilangan Ganjil atau Genap

Memanfaatkan operator modulus (%) untuk memeriksa sisa pembagian.

PROGRAM GanjilGenap;
VAR
  N : INTEGER;

BEGIN
  Write('Masukkan sebuah bilangan bulat: ');
  ReadLn(N);

  IF (N MOD 2) = 0 THEN
    WriteLn(N, ' adalah bilangan GENAP.')
  ELSE
    WriteLn(N, ' adalah bilangan GANJIL.');
  
  ReadLn;
END.

4. Menghitung Faktorial Menggunakan Perulangan FOR

Faktorial (N!) adalah hasil perkalian bilangan bulat positif dari 1 hingga N. Ini adalah implementasi perulangan yang sangat baik.

PROGRAM FaktorialLoop;
VAR
  i, N, Faktorial : LONGINT;

BEGIN
  Write('Hitung faktorial dari (maks 12): ');
  ReadLn(N);

  Faktorial := 1;
  
  FOR i := 1 TO N DO
  BEGIN
    Faktorial := Faktorial * i;
  END;
  
  WriteLn('Faktorial dari ', N, ' adalah: ', Faktorial);
  ReadLn;
END.

5. Menggunakan Prosedur untuk Pesan Selamat Datang

Memisahkan logika ke dalam blok kode yang dapat dipanggil ulang (prosedur).

PROGRAM ContohProsedur;

{ Definisi Prosedur }
PROCEDURE Sambutan(Nama : STRING);
BEGIN
  WriteLn('============================');
  WriteLn('Selamat Datang, ', Nama, '!');
  WriteLn('Semoga sukses dalam coding.');
  WriteLn('============================');
END;

BEGIN
  Sambutan('Pengguna Pascal');
  
  WriteLn;
  WriteLn('Program Selesai.');
  ReadLn;
END.

Mengapa Pascal Tetap Relevan untuk Pembelajaran?

Meskipun Pascal bukan bahasa utama industri saat ini (seperti Python atau JavaScript), struktur ketatnya memaksa programmer baru untuk memahami konsep dasar pemrograman secara mendalam. Contoh program Pascal di atas menunjukkan bagaimana deklarasi (VAR), tipe data, dan aliran kontrol dikelola secara eksplisit. Ini sangat membantu dalam transisi ke bahasa berorientasi objek yang lebih kompleks di kemudian hari.

Memahami sintaks dasar ini—seperti penggunaan BEGIN dan END yang berpasangan, titik koma sebagai pemisah statement, dan penutupan program dengan END.—adalah fondasi penting. Dengan mencoba menjalankan dan memodifikasi contoh-contoh di atas, pemahaman Anda mengenai logika pemrograman akan semakin terasah.

Related Posts