Variabel, Konstanta, dan Tipe Data Dasar

Setelah menyelesaikan modul ini, mahasiswa diharapkan mampu:

1. Membedakan konsep variabel dan konstanta serta menentukan kapan menggunakan masing-masing.
2. Menerapkan aturan penamaan identifier yang sah dalam Pascal.
3. Mengidentifikasi reserved words dan menghindari penggunaannya sebagai nama identifier.
4. Menjelaskan perbedaan dan kegunaan setiap tipe data integer dalam Pascal.
5. Memilih tipe data real yang tepat berdasarkan presisi dan efisiensi memori.
6. Membedakan tipe char dan string serta batasan panjangnya.
7. Menggunakan tipe data boolean dalam logika program.
8. Mendeklarasikan konstanta tak bertipe dan konstanta bertipe sesuai kebutuhan.
9. Menjelaskan nilai default variabel global di Pascal dan mengapa inisialisasi eksplisit tetap dianjurkan.
10. Menghindari kesalahan umum terkait pemilihan tipe data dan overflow.

Capaian Pembelajaran Mata Kuliah

Mahasiswa mampu memodelkan data dari permasalahan nyata ke dalam variabel dan konstanta bertipe tepat, sehingga program yang dihasilkan akurat, efisien, dan mudah dipelihara.

Indikator Ketercapaian Modul

3.1 Variabel dan Konstanta: Perbedaan Mendasar

Dalam program, kita perlu menyimpan data sementara agar dapat diolah kembali. Ada dua wadah penyimpanan utama dalam Pascal: variabel dan konstanta.

Perhatikan contoh berikut.

const
  PPN = 0.11;              { konstanta: nilai tetap }
  NAMA_TOKO = 'Cendekia';

var
  hargaBarang: real;       { variabel: nilai bisa berubah }
  jumlahBeli: integer;     { variabel: nilai bisa berubah }
  totalBayar: real;        { variabel: nilai bisa berubah }

Bila Anda mencoba menuliskan PPN := 0.12; di dalam program, kompiler akan menolak karena PPN dideklarasikan sebagai konstanta. Inilah perlindungan yang diberikan konstanta: mencegah perubahan yang tidak disengaja.

3.2 Identifier: Nama untuk Variabel dan Konstanta

Identifier adalah nama yang Anda berikan kepada variabel, konstanta, tipe, prosedur, atau fungsi. Pascal memiliki aturan ketat untuk identifier yang sah.

Aturan Identifier yang Sah

1. Dimulai dengan huruf (A-Z, a-z) atau garis bawah (_).
2. Karakter berikutnya boleh huruf, angka, atau garis bawah.
3. Tidak boleh mengandung spasi atau tanda baca khusus seperti @ # $ % - + =.
4. Tidak boleh sama dengan reserved word (kata kunci bahasa).
5. Bersifat case-insensitive: nilai, Nilai, dan NILAI dianggap sama.
6. Panjang identifier bebas, namun disarankan maksimal 63 karakter untuk keterbacaan.

3.3 Reserved Words dan Standard Identifiers

Pascal memiliki daftar kata yang sudah "dipesan" oleh bahasa dan tidak boleh dipakai sebagai identifier. Kata-kata ini terbagi menjadi dua kelompok besar.

a. Reserved Words (Tidak Bisa Ditimpa)

Kata-kata ini adalah bagian dari sintaks inti Pascal dan sama sekali tidak boleh dipakai sebagai nama variabel, konstanta, tipe, atau subprogram.

b. Standard Identifiers (Dapat Ditimpa, tetapi Tidak Disarankan)

Kata-kata berikut sudah didefinisikan sebagai bagian dari pustaka standar Pascal. Secara teknis Anda boleh memakai nama yang sama untuk variabel Anda sendiri, tetapi ini akan menutupi definisi aslinya dan sangat tidak disarankan.

3.4 Tipe Data Integer

Tipe integer menyimpan bilangan bulat (tanpa titik desimal), baik positif, negatif, maupun nol. Pascal menyediakan beberapa tipe integer dengan rentang dan ukuran memori berbeda.

3.5 Tipe Data Real

Tipe real menyimpan bilangan pecahan atau bilangan dengan titik desimal. Pascal menyediakan beberapa tipe real dengan tingkat presisi dan ukuran memori berbeda.

3.6 Tipe Data Char

Tipe char menyimpan tepat satu karakter. Ukurannya 1 byte, dan setiap karakter berkorespondensi dengan kode ASCII (0-255).

var
  huruf: char;
  digit: char;
  simbol: char;

begin
  huruf := 'A';
  digit := '7';
  simbol := '#';

  writeln('Huruf  : ', huruf);
  writeln('Digit  : ', digit);
  writeln('Simbol : ', simbol);
end.

Perhatikan bahwa literal char ditulis dengan tanda petik tunggal, sama seperti string. Perbedaan terletak pada jumlah karakter: 'A' adalah char, sedangkan 'Andi' adalah string.

Fungsi ord mengubah char menjadi kode ASCII-nya, dan chr melakukan sebaliknya.

var
  kode: integer;
  karakter: char;

begin
  kode := ord('A');
  writeln('Kode ASCII dari A adalah ', kode);      { 65 }

  karakter := chr(66);
  writeln('Karakter dengan kode 66 adalah ', karakter); { B }
end.

3.7 Tipe Data String

String adalah kumpulan karakter. Pascal memiliki beberapa jenis string yang berbeda dalam kapasitas dan cara penyimpanan.

Notasi string[n] mendefinisikan string dengan panjang maksimal tertentu, misalnya string[30] untuk 30 karakter. Notasi ini kompatibel dengan semua mode Pascal dan berguna untuk menghemat memori.

Fungsi dan Prosedur String Umum

Pengolahan string secara lengkap akan dibahas pada Modul 23.

3.8 Tipe Data Boolean

Tipe boolean hanya memiliki dua nilai: true (benar) atau false (salah). Ukurannya 1 byte. Tipe ini digunakan dalam pengambilan keputusan dan penyimpanan status.

var
  sudahLogin: boolean;
  lulus: boolean;
  nilai: integer;

begin
  sudahLogin := true;
  nilai := 78;
  lulus := nilai >= 70;

  writeln('Sudah login? ', sudahLogin);
  writeln('Nilai: ', nilai);
  writeln('Lulus? ', lulus);
end.

Keluaran:

Sudah login? TRUE
Nilai: 78
Lulus? TRUE

Perhatikan bahwa program menampilkan TRUE dan FALSE dalam huruf besar.

3.9 Konstanta: Tak Bertipe dan Bertipe

Pascal membedakan dua jenis konstanta.

a. Konstanta Tak Bertipe (Untyped Constant)

Bentuk yang paling umum: nama, tanda sama dengan, dan nilai. Tipe data ditentukan otomatis oleh kompiler.

const
  PPN = 0.11;
  NAMA_TOKO = 'Cendekia';
  MAKS_NILAI = 100;
  STATUS_AKTIF = true;

Konstanta ini memiliki tipe yang ditentukan dari bentuk nilainya: PPN bertipe real, NAMA_TOKO bertipe string, MAKS_NILAI bertipe integer, dan STATUS_AKTIF bertipe boolean.

b. Konstanta Bertipe (Typed Constant)

Konstanta yang dideklarasikan dengan tipe eksplisit. Meskipun disebut "konstanta", secara teknis konstanta bertipe dapat diubah isinya — namun ini sangat tidak disarankan.

const
  BATAS: integer = 100;
  NAMA: string[20] = 'Budi';
  SUHU: real = 36.5;

Konstanta bertipe berguna ketika Anda ingin menentukan tipe secara eksplisit, misalnya untuk mengontrol ukuran string atau memastikan tipe integer tertentu.

3.10 Inisialisasi dan Nilai Default

Variabel global di Pascal secara default diinisialisasi ke nol (untuk tipe numerik), karakter kosong (untuk char), string kosong (untuk string), atau false (untuk boolean). Namun, jangan bergantung pada perilaku ini. Selalu inisialisasi variabel Anda secara eksplisit.

3.11 Panduan Memilih Tipe Data

Pertanyaan-pertanyaan berikut membantu memilih tipe data yang tepat.

1. Apakah nilainya bilangan bulat? Bila ya, gunakan tipe integer yang sesuai rentangnya.
2. Apakah nilainya memerlukan pecahan? Bila ya, tentukan tingkat presisi yang dibutuhkan.
3. Apakah nilainya uang? Bila ya, gunakan currency, bukan real biasa.
4. Apakah nilainya satu karakter? Gunakan char, bukan string satu karakter.
5. Apakah nilainya logis ya/tidak? Gunakan boolean.
6. Berapa rentang maksimumnya? Pilih tipe terkecil yang masih mencakup rentang tersebut untuk menghemat memori.

3.12 Kesalahan Umum Terkait Tipe Data

1. Integer overflow. Menyimpan nilai yang melebihi rentang tipe. Contoh: byte hanya sampai 255; menyimpan 300 akan menghasilkan nilai yang tidak diharapkan.
2. Pembagian integer. Operator / selalu menghasilkan real, sedangkan div menghasilkan integer. Tertukar keduanya adalah kesalahan umum.
3. Membandingkan real dengan sama dengan. Karena real adalah pendekatan, 0.1 + 0.2 = 0.3 bisa bernilai false. Selalu bandingkan dengan toleransi.
4. Menggunakan real untuk uang. Menyebabkan kesalahan pembulatan akumulatif. Gunakan currency.
5. Menimpa nama tipe standar. Mendeklarasikan variabel bernama integer atau string akan menutupi tipe aslinya.
6. Lupa panjang string. Pada mode Turbo Pascal, string default hanya 255 karakter. Melebihi batas ini akan memotong data secara diam-diam.
7. Mengabaikan perbedaan char dan string satu karakter. 'A' (char) dan 'A' (string) secara literal sama, tetapi tipe datanya berbeda.
8. Menggunakan boolean sebagai integer. Meskipun secara internal boolean disimpan sebagai 0/1, konversi eksplisit lebih disarankan.

var
  kecil: byte;
begin
  kecil := 250;
  writeln('Sebelum: ', kecil);
  kecil := kecil + 10;       { 260 melebihi batas byte }
  writeln('Sesudah: ', kecil); { Hasil: 4, bukan 260 }
end.

4.1 Flowchart Pemilihan Tipe Data Numerik

Diagram berikut memandu pemilihan tipe data numerik yang tepat berdasarkan sifat data yang akan disimpan.

flowchart TD
    A(["Data numerik?"]) --> B{"Butuh pecahan?"}
    B -- "Tidak" --> C{"Selalu non-negatif?"}
    B -- "Ya" --> D{"Data uang?"}
    C -- "Ya" --> E{"Nilai <= 255?"}
    C -- "Tidak" --> F{"Nilai <= 32767?"}
    E -- "Ya" --> G["Gunakan Byte"]
    E -- "Tidak" --> H["Gunakan Word"]
    F -- "Ya" --> I["Gunakan SmallInt"]
    F -- "Tidak" --> J["Gunakan Integer atau LongInt"]
    D -- "Ya" --> K["Gunakan Currency"]
    D -- "Tidak" --> L{"Presisi tinggi?"}
    L -- "Ya" --> M["Gunakan Extended"]
    L -- "Tidak" --> N["Gunakan Double"]
      

4.2 Flowchart Alur Deklarasi dan Inisialisasi

Diagram ini menggambarkan alur internal ketika program mendeklarasikan variabel, menginisialisasinya, dan menggunakannya.

flowchart TD
    A(["Mulai Program"]) --> B["Kompiler membaca blok var"]
    B --> C["Alokasi memori untuk setiap variabel"]
    C --> D["Inisialisasi default (nol atau kosong)"]
    D --> E["Masuk ke blok begin"]
    E --> F{"Variabel akan diisi
dari input?"}
    F -- "Ya" --> G["readln(variabel)"]
    F -- "Tidak" --> H["variabel := nilai awal"]
    G --> I["Proses perhitungan"]
    H --> I
    I --> J["writeln(variabel)"]
    J --> K(["Selesai"])
      

4.3 Flowchart Konversi Suhu dengan Pemilihan Tipe

Contoh konkret penggunaan tipe data: konversi suhu dari Celsius ke Fahrenheit, Reamur, dan Kelvin. Semua hasil menggunakan tipe real.

flowchart TD
    A(["Mulai"]) --> B[/"Baca celsius (real)"/]
    B --> C["fahrenheit = (celsius * 9 / 5) + 32"]
    C --> D["reamur = celsius * 4 / 5"]
    D --> E["kelvin = celsius + 273.15"]
    E --> F[/"Tampilkan fahrenheit, reamur, kelvin"/]
    F --> G(["Selesai"])
      

5.1 Pseudocode Konversi Suhu

PROGRAM KonversiSuhu
{ Mengkonversi suhu dari Celsius ke tiga satuan lain }

DEKLARASI
  celsius    : real
  fahrenheit : real
  reamur     : real
  kelvin     : real

ALGORITMA
  write("Masukkan suhu dalam Celsius: ")
  read(celsius)

  fahrenheit <- (celsius * 9 / 5) + 32
  reamur     <- celsius * 4 / 5
  kelvin     <- celsius + 273.15

  write("Suhu dalam Fahrenheit: ", fahrenheit)
  write("Suhu dalam Reamur    : ", reamur)
  write("Suhu dalam Kelvin    : ", kelvin)
END

5.2 Pseudocode Data Mahasiswa dengan Tipe Beragam

PROGRAM DataMahasiswa
{ Mendemonstrasikan penggunaan berbagai tipe data dasar }

KONSTANTA
  MAKS_NILAI = 100
  NAMA_KAMPUS = "Universitas Nusantara"

DEKLARASI
  nama          : string
  nim           : string
  angkatan      : integer
  nilaiUjian    : real
  nilaiHuruf    : char
  terdaftar     : boolean

ALGORITMA
  write("Nama mahasiswa    : ")
  read(nama)
  write("NIM               : ")
  read(nim)
  write("Angkatan          : ")
  read(angkatan)
  write("Nilai ujian       : ")
  read(nilaiUjian)

  nilaiHuruf <- tentukanHurufMutu(nilaiUjian)
  terdaftar <- true

  write("====================================")
  write(NAMA_KAMPUS)
  write("====================================")
  write("Nama     : ", nama)
  write("NIM      : ", nim)
  write("Angkatan : ", angkatan)
  write("Nilai    : ", nilaiUjian)
  write("Huruf    : ", nilaiHuruf)
  write("Status   : ", terdaftar)
END

5.3 Pseudocode Validasi Rentang Nilai

PROGRAM ValidasiNilaiUjian
{ Memastikan nilai masukan berada dalam rentang yang sah }

KONSTANTA
  NILAI_MIN = 0
  NILAI_MAKS = 100

DEKLARASI
  nilai : integer

ALGORITMA
  write("Masukkan nilai ujian (0-100): ")
  read(nilai)

  jika nilai < NILAI_MIN atau nilai > NILAI_MAKS maka
    write("Kesalahan: nilai di luar rentang yang sah.")
  selain itu
    write("Nilai valid: ", nilai)
  akhir jika
END

6.1 Program Demonstrasi Semua Tipe Data Dasar

Program ini mendeklarasikan dan menampilkan nilai dari seluruh tipe data dasar yang dibahas pada modul ini.

program DemoTipeData;
{ Mendemonstrasikan tipe data dasar Pascal }

var
  kecilNegatif : shortint;
  kecilPositif : byte;
  sedangInt    : smallint;
  besarInt     : longint;
  nilaiReal    : double;
  nilaiUang    : currency;
  satuHuruf    : char;
  namaLengkap  : string;
  sudahLulus   : boolean;

begin
  kecilNegatif := -100;
  kecilPositif := 200;
  sedangInt    := -30000;
  besarInt     := 2000000000;
  nilaiReal    := 3.14159265358979;
  nilaiUang    := 125000.75;
  satuHuruf    := 'A';
  namaLengkap  := 'Budi Santoso';
  sudahLulus   := true;

  writeln('=== Demonstrasi Tipe Data Dasar Pascal ===');
  writeln;
  writeln('ShortInt : ', kecilNegatif);
  writeln('Byte     : ', kecilPositif);
  writeln('SmallInt : ', sedangInt);
  writeln('LongInt  : ', besarInt);
  writeln('Double   : ', nilaiReal:0:14);
  writeln('Currency : ', nilaiUang:0:2);
  writeln('Char     : ', satuHuruf);
  writeln('String   : ', namaLengkap);
  writeln('Boolean  : ', sudahLulus);
end.

Keluaran yang diharapkan:

=== Demonstrasi Tipe Data Dasar Pascal ===

ShortInt : -100
Byte     : 200
SmallInt : -30000
LongInt  : 2000000000
Double   : 3.14159265358979
Currency : 125000.75
Char     : A
String   : Budi Santoso
Boolean  : TRUE

6.2 Program Konversi Suhu dengan Tipe Real

Program ini menerapkan tipe double untuk presisi yang memadai dalam perhitungan konversi suhu.

program KonversiSuhu;
{ Mengkonversi suhu dari Celsius ke Fahrenheit, Reamur, dan Kelvin }

const
  TITIK_BEKU_KELVIN = 273.15;

var
  celsius    : double;
  fahrenheit : double;
  reamur     : double;
  kelvin     : double;

begin
  write('Masukkan suhu dalam Celsius: ');
  readln(celsius);

  fahrenheit := (celsius * 9 / 5) + 32;
  reamur     := celsius * 4 / 5;
  kelvin     := celsius + TITIK_BEKU_KELVIN;

  writeln;
  writeln('=== Hasil Konversi ===');
  writeln('Celsius    : ', celsius:0:2, ' derajat');
  writeln('Fahrenheit : ', fahrenheit:0:2, ' derajat');
  writeln('Reamur     : ', reamur:0:2, ' derajat');
  writeln('Kelvin     : ', kelvin:0:2, ' Kelvin');
end.

Contoh keluaran:

Masukkan suhu dalam Celsius: 25

=== Hasil Konversi ===
Celsius    : 25.00 derajat
Fahrenheit : 77.00 derajat
Reamur     : 20.00 derajat
Kelvin     : 298.15 Kelvin

6.3 Program dengan Konstanta Bertipe

Program ini mendemonstrasikan penggunaan konstanta bertipe untuk mendefinisikan pengaturan aplikasi kecil.

program KonstantaBertipe;
{ Mendemonstrasikan konstanta bertipe }

const
  NAMA_APLIKASI  : string[30] = 'Sistem Penilaian v1.0';
  BATAS_LULUS    : integer    = 70;
  PPN_PERSEN     : real       = 0.11;
  MAKS_SKS       : byte       = 24;
  STATUS_DEFAULT : boolean    = false;

var
  namaMahasiswa : string;
  nilai         : integer;
  sks           : byte;
  sudahTerdaftar: boolean;

begin
  writeln(NAMA_APLIKASI);
  writeln('----------------------------------------');

  write('Nama mahasiswa : ');
  readln(namaMahasiswa);

  write('Nilai ujian    : ');
  readln(nilai);

  write('SKS diambil    : ');
  readln(sks);

  sudahTerdaftar := true;

  writeln;
  writeln('Ringkasan:');
  writeln('Nama         : ', namaMahasiswa);
  writeln('Nilai        : ', nilai);
  writeln('Batas lulus  : ', BATAS_LULUS);
  writeln('SKS          : ', sks, ' dari maks ', MAKS_SKS);
  writeln('Terdaftar    : ', sudahTerdaftar);

  if nilai >= BATAS_LULUS then
    writeln('Status       : LULUS')
  else
    writeln('Status       : BELUM LULUS');
end.

6.4 Program Perbandingan Tipe Char dan String

Program ini menunjukkan perbedaan praktis antara char dan string dalam penggunaan sehari-hari.

program CharVsString;
{ Membandingkan perilaku tipe char dan string }

var
  satuKarakter  : char;
  satuHurufStr  : string;
  namaLengkap   : string;
  inisial       : char;

begin
  satuKarakter := 'A';
  satuHurufStr := 'A';
  namaLengkap  := 'Andi Wijaya';
  inisial      := namaLengkap[1];

  writeln('=== Perbandingan Char dan String ===');
  writeln;
  writeln('satuKarakter  (char)   : ', satuKarakter);
  writeln('satuHurufStr  (string) : ', satuHurufStr);
  writeln('namaLengkap   (string) : ', namaLengkap);
  writeln('inisial       (char)   : ', inisial);
  writeln;
  writeln('Panjang namaLengkap    : ', length(namaLengkap));
  writeln('Kode ASCII satuKarakter: ', ord(satuKarakter));
  writeln('Kode ASCII inisial     : ', ord(inisial));
end.

Keluaran:

=== Perbandingan Char dan String ===

satuKarakter  (char)   : A
satuHurufStr  (string) : A
namaLengkap   (string) : Andi Wijaya
inisial       (char)   : A

Panjang namaLengkap    : 11
Kode ASCII satuKarakter: 65
Kode ASCII inisial     : 65

7.1 Program DemoTipeData

7.2 Program KonstantaBertipe

7.3 Jejak Eksekusi KonstantaBertipe

Tabel berikut menunjukkan jejak eksekusi dengan masukan nama = Rina, nilai = 78, sks = 20.

9.1 Deskripsi Masalah

Toko elektronik "Elektro Jaya" ingin mendata barang yang masuk. Setiap barang memiliki: kode barang, nama barang, kategori, jumlah stok, harga satuan, dan status ketersediaan. Program menerima data ini lalu menampilkan ringkasan dalam bentuk kartu inventaris.

9.2 Analisis Tipe Data

Sebelum menulis kode, kita petakan setiap field ke tipe data yang tepat.

9.3 Flowchart Studi Kasus

flowchart TD
    A(["Mulai"]) --> B[/"Baca kode, nama, kategori, stok, harga"/]
    B --> C["Tentukan status berdasarkan stok"]
    C --> D{"Stok > 0?"}
    D -- "Ya" --> E["status = TERSEDIA"]
    D -- "Tidak" --> F["status = HABIS"]
    E --> G["Hitung nilai inventaris
= stok * harga"]
    F --> G
    G --> H[/"Tampilkan kartu inventaris"/]
    H --> I(["Selesai"])
      

9.4 Pseudocode Studi Kasus

PROGRAM InventarisTokoElektronik
{ Mencatat satu barang masuk dan menampilkan kartu inventaris }

KONSTANTA
  NAMA_TOKO    = "Elektro Jaya"
  GARIS_GANDA  = "=========================================="
  GARIS_TUNGGAL= "------------------------------------------"

DEKLARASI
  kodeBarang    : string
  namaBarang    : string
  kategori      : char
  jumlahStok    : word
  hargaSatuan   : currency
  nilaiInventaris : currency
  tersedia      : boolean

ALGORITMA
  write("Kode barang    : ")
  read(kodeBarang)
  write("Nama barang    : ")
  read(namaBarang)
  write("Kategori (1 huruf): ")
  read(kategori)
  write("Jumlah stok    : ")
  read(jumlahStok)
  write("Harga satuan   : ")
  read(hargaSatuan)

  tersedia <- jumlahStok > 0
  nilaiInventaris <- jumlahStok * hargaSatuan

  write(GARIS_GANDA)
  write(NAMA_TOKO)
  write(GARIS_GANDA)
  write("Kode Barang    : ", kodeBarang)
  write("Nama Barang    : ", namaBarang)
  write("Kategori       : ", kategori)
  write("Stok           : ", jumlahStok, " unit")
  write("Harga Satuan   : Rp ", hargaSatuan)
  write("Nilai Total    : Rp ", nilaiInventaris)
  write(GARIS_TUNGGAL)
  jika tersedia = true maka
    write("Status         : TERSEDIA")
  selain itu
    write("Status         : HABIS")
  akhir jika
  write(GARIS_GANDA)
END

9.5 Implementasi dalam Pascal

program InventarisTokoElektronik;
{ Studi Kasus Modul 3 - Pendataan inventaris toko elektronik }

const
  NAMA_TOKO     : string[20] = 'Elektro Jaya';
  GARIS_GANDA   = '==========================================';
  GARIS_TUNGGAL = '------------------------------------------';

var
  kodeBarang      : string[10];
  namaBarang      : string[50];
  kategori        : char;
  jumlahStok      : word;
  hargaSatuan     : currency;
  nilaiInventaris : currency;
  tersedia        : boolean;

begin
  writeln('Formulir Pendataan Barang');
  writeln(GARIS_TUNGGAL);
  writeln;

  write('Kode barang        : ');
  readln(kodeBarang);

  write('Nama barang        : ');
  readln(namaBarang);

  write('Kategori (1 huruf) : ');
  readln(kategori);

  write('Jumlah stok        : ');
  readln(jumlahStok);

  write('Harga satuan (Rp)  : ');
  readln(hargaSatuan);

  tersedia := jumlahStok > 0;
  nilaiInventaris := jumlahStok * hargaSatuan;

  writeln;
  writeln(GARIS_GANDA);
  writeln(NAMA_TOKO);
  writeln(GARIS_GANDA);
  writeln('Kode Barang    : ', kodeBarang);
  writeln('Nama Barang    : ', namaBarang);
  writeln('Kategori       : ', kategori);
  writeln('Stok           : ', jumlahStok, ' unit');
  writeln('Harga Satuan   : Rp ', hargaSatuan:0:2);
  writeln('Nilai Total    : Rp ', nilaiInventaris:0:2);
  writeln(GARIS_TUNGGAL);

  if tersedia then
    writeln('Status         : TERSEDIA')
  else
    writeln('Status         : HABIS');

  writeln(GARIS_GANDA);
end.

9.6 Contoh Keluaran

Formulir Pendataan Barang
------------------------------------------

Kode barang        : ELK-001
Nama barang        : Laptop ASUS VivoBook 14
Kategori (1 huruf) : L
Jumlah stok        : 15
Harga satuan (Rp)  : 8500000

==========================================
Elektro Jaya
==========================================
Kode Barang    : ELK-001
Nama Barang    : Laptop ASUS VivoBook 14
Kategori       : L
Stok           : 15 unit
Harga Satuan   : Rp 8500000.00
Nilai Total    : Rp 127500000.00
------------------------------------------
Status         : TERSEDIA
==========================================

9.7 Pembahasan

Beberapa keputusan perancangan penting pada program ini.

1. Tipe currency untuk harga. Nilai 8.500.000 dikalikan 15 menghasilkan 127.500.000. Bila memakai tipe real, hasilnya bisa sedikit menyimpang karena presisi floating point. Dengan currency, hasilnya eksak.
2. Tipe word untuk stok. Jumlah stok tidak mungkin negatif dan tidak lebih dari 65.535. Tipe word memilih rentang tepat sekaligus mendokumentasikan bahwa nilai ini tidak boleh negatif.
3. Tipe char untuk kategori. Karena kategori hanya satu huruf, char lebih tepat dan lebih hemat memori daripada string.
4. Konstanta bertipe untuk nama toko. Panjang nama dibatasi 20 karakter dengan notasi string[20]. Ini menghindari penggunaan memori berlebihan dan memastikan format konsisten.
5. Boolean untuk status. Meskipun status bisa disimpan sebagai string "TERSEDIA"/"HABIS", menyimpannya sebagai boolean tersedia memisahkan data dari penyajian. Nanti, ketika kita memerlukan format tampilan berbeda, kita cukup mengubah blok keluaran tanpa menyentuh logika.

9.8 Pengembangan Selanjutnya

1. Variabel menyimpan nilai yang dapat berubah selama program berjalan, dideklarasikan di blok var.
2. Konstanta menyimpan nilai tetap yang tidak dapat diubah setelah dideklarasikan, dideklarasikan di blok const.
3. Identifier harus dimulai dengan huruf atau garis bawah, diikuti huruf, angka, atau garis bawah. Tidak boleh mengandung spasi atau tanda baca. Pascal bersifat case-insensitive.
4. Reserved words seperti begin, end, var, const tidak boleh dipakai sebagai identifier.
5. Tipe integer tersedia dalam berbagai ukuran: byte, shortint, smallint, word, integer, longint, int64. Pilih berdasarkan rentang nilai.
6. Tipe real meliputi single, double, extended, comp, dan currency. Untuk uang, gunakan currency.
7. Char menyimpan satu karakter (1 byte), sedangkan string menyimpan banyak karakter. Notasi string[n] membatasi panjang maksimal.
8. Boolean hanya memiliki nilai true atau false.
9. Konstanta tak bertipe mendefinisikan nilai tanpa tipe eksplisit. Konstanta bertipe menuliskan tipe secara eksplisit dan berguna untuk mengontrol ukuran memori.
10. Selalu inisialisasi eksplisit. Jangan bergantung pada nilai default, terutama untuk variabel lokal.
11. Waspadai overflow. Pilih tipe yang cukup besar untuk rentang nilai Anda. Gunakan {$Q+} untuk mendeteksi overflow saat runtime.
12. Jangan pakai real untuk uang. Gunakan currency agar tidak ada kesalahan pembulatan.

Buku Teks

1. Jensen, K., & Wirth, N. (1991). Pascal User Manual and Report (4th ed.). Springer-Verlag. Bab 6 membahas tipe data sederhana secara formal.
2. Cantu, M. (2020). Object Pascal Handbook. Marco Cantu. Bab 3 dan 4 membahas tipe data dan variabel pada Free Pascal dan Delphi modern.
3. Cooper, D., & Clancy, M. (1982). Oh! Pascal! W. W. Norton & Company. Bab tentang variabel dan konstanta dengan pendekatan pedagogis yang sangat baik.
4. Grogono, P. (1995). Programming with Pascal. Addison-Wesley. Bab 3 membahas tipe data dan deklarasi.
5. Savitch, W. (2009). Problem Solving with C++ (7th ed.). Pearson. Meskipun bukan tentang Pascal, bab tentang tipe data dan representasi bilangan sangat relevan.

Dokumentasi Resmi

1. Free Pascal Team. Free Pascal Reference Guide. Bab tentang tipe data, variabel, dan konstanta. Tersedia di freepascal.org/docs.html.
2. Free Pascal Team. Free Pascal Programmer's Guide. Bab tentang identifier, reserved words, dan direktif kompilator.
3. Lazarus IDE Documentation. Panduan penggunaan IDE dan pengenalan tipe data. Tersedia di wiki.lazarus.freepascal.org.

Artikel dan Sumber Daring

1. IEEE Computer Society. (1990). IEEE Standard for Pascal (IEEE Std 770-1983). Bab tentang tipe data dan deklarasi.
2. Goldberg, D. (1991). "What Every Computer Scientist Should Know About Floating-Point Arithmetic." ACM Computing Surveys, 23(1), 5-48. Artikel klasik yang menjelaskan mengapa real tidak cocok untuk uang.
3. Free Pascal Community Forum. Diskusi tentang perbedaan tipe integer di berbagai platform.