Contoh Program Sederhana Bahasa Pemrograman Pascal

Berikut adalah contoh program sederhana menggunakan Turbo Pascal untuk menampilkan pesan dan menghitung penjumlahan dua bilangan:

1. Program Menampilkan Pesan "Hello, World!"

program HelloWorld;
begin
  writeln('Hello, World!');
end.

Penjelasan:

program HelloWorld;: Mendefinisikan nama program.
begin dan end.: Menandai awal dan akhir dari blok program utama.
writeln: Perintah untuk menampilkan teks ke layar dan menambahkan baris baru.

2. Program Penjumlahan Dua Bilangan

program Penjumlahan;
var
  angka1, angka2, hasil: integer;
begin
  writeln('Program Penjumlahan Dua Bilangan');
  
  write('Masukkan bilangan pertama: ');
  readln(angka1);
  
  write('Masukkan bilangan kedua: ');
  readln(angka2);
  
  hasil := angka1 + angka2;
  
  writeln('Hasil penjumlahan: ', hasil);
end.

Penjelasan:

Deklarasi Variabel:
- var digunakan untuk mendeklarasikan variabel.
- angka1, angka2, dan hasil bertipe integer (bilangan bulat).
Input dan Output:
- write: Menampilkan teks ke layar tanpa pindah ke baris baru.
- readln: Menerima input dari pengguna dan menyimpannya ke variabel.
Proses Penjumlahan:
- hasil := angka1 + angka2; digunakan untuk menghitung penjumlahan dua bilangan dan menyimpan hasilnya.
Output Hasil:
- writeln('Hasil penjumlahan: ', hasil); menampilkan hasil penjumlahan ke layar.

3. Program Mengecek Bilangan Ganjil atau Genap

program GanjilGenap;
var
  angka: integer;
begin
  writeln('Program Mengecek Ganjil atau Genap');
  
  write('Masukkan sebuah bilangan: ');
  readln(angka);
  
  if angka mod 2 = 0 then
    writeln('Bilangan tersebut adalah Genap')
  else
    writeln('Bilangan tersebut adalah Ganjil');
end.

Penjelasan:

mod: Operator untuk mendapatkan sisa hasil pembagian.
if-then-else: Struktur kontrol untuk menentukan apakah bilangan genap (jika sisa bagi 2 adalah 0) atau ganjil.