Perulangan Bersarang dan Pembentukan Pola

Setelah menyelesaikan modul ini, mahasiswa diharapkan mampu:

1. Menjelaskan konsep perulangan bersarang dan strukturnya.
2. Menulis perulangan for bersarang dengan variabel pencacah yang berbeda.
3. Menghitung jumlah iterasi total pada perulangan bersarang.
4. Membentuk pola bintang persegi, segitiga, dan piramida.
5. Membuat tabel perkalian dan tabel konversi berformat rapi.
6. Memproses matriks dua dimensi dengan perulangan bersarang.
7. Menggabungkan perulangan for, while, dan repeat dalam satu program.
8. Menggambar flowchart perulangan bersarang.
9. Menghindari kesalahan umum pada perulangan bersarang.
10. Memecahkan masalah nyata yang memerlukan iterasi dua dimensi.

Capaian Pembelajaran Mata Kuliah

Mahasiswa mampu merancang dan mengimplementasikan algoritma iteratif berlapis untuk pemrosesan data dua dimensi, pembentukan pola visual, dan pemodelan masalah nyata yang memerlukan kombinasi struktur kontrol.

Indikator Ketercapaian Modul

3.1 Konsep Perulangan Bersarang

Perulangan bersarang (nested loop) adalah perulangan yang berada di dalam perulangan lain. Perulangan luar (outer loop) dieksekusi lebih dahulu, dan untuk setiap iterasinya, perulangan dalam (inner loop) akan dijalankan dari awal hingga selesai.

Perulangan bersarang digunakan ketika kita perlu memproses data dua dimensi: baris dan kolom, pasangan nilai, atau kombinasi dari dua himpunan. Contoh klasik adalah tabel perkalian, matriks, dan pola bintang.

var
  i, j: integer;

begin
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      write(i, '-', j, '  ');
    writeln;       { Pindah baris setelah inner loop selesai }
  end;
end.

Keluaran:

3.2 Analisis Jumlah Iterasi

Jumlah iterasi total pada perulangan bersarang adalah hasil kali jumlah iterasi masing-masing perulangan. Bila outer loop berjalan m kali dan inner loop berjalan n kali, maka total iterasi inner loop adalah m × n.

3.3 Bentuk-Bentuk Perulangan Bersarang

Perulangan bersarang tidak harus for di dalam for. Kita dapat mengombinasikan berbagai jenis perulangan.

3.4 Pola Bintang Sederhana

Pola bintang adalah latihan klasik perulangan bersarang. Outer loop mengontrol baris, inner loop mengontrol kolom.

a. Pola Persegi

Setiap baris memiliki jumlah bintang yang sama.

var
  i, j, n: integer;

begin
  write('Ukuran: ');  readln(n);

  for i := 1 to n do
  begin
    for j := 1 to n do
      write('*');
    writeln;
  end;
end.

Keluaran untuk n = 5:

b. Segitiga Siku-Siku (Kiri Bawah)

Baris ke-i memiliki i bintang. Inner loop berjalan dari 1 hingga i.

var
  i, j, n: integer;

begin
  write('Tinggi: ');  readln(n);

  for i := 1 to n do
  begin
    for j := 1 to i do
      write('*');
    writeln;
  end;
end.

Keluaran untuk n = 5:

c. Segitiga Siku-Siku (Kanan Bawah)

Baris ke-i memiliki (n - i) spasi lalu i bintang.

var
  i, j, n: integer;

begin
  write('Tinggi: ');  readln(n);

  for i := 1 to n do
  begin
    for j := 1 to (n - i) do
      write(' ');
    for j := 1 to i do
      write('*');
    writeln;
  end;
end.

Keluaran untuk n = 5:

d. Piramida Sama Kaki

Baris ke-i memiliki (n - i) spasi lalu (2i - 1) bintang. Pola 1, 3, 5, 7, 9 terbentuk dari rumus (2i - 1).

var
  i, j, n: integer;

begin
  write('Tinggi: ');  readln(n);

  for i := 1 to n do
  begin
    for j := 1 to (n - i) do
      write(' ');
    for j := 1 to (2 * i - 1) do
      write('*');
    writeln;
  end;
end.

Keluaran untuk n = 5:

e. Piramida Terbalik

var
  i, j, n: integer;

begin
  write('Tinggi: ');  readln(n);

  for i := n downto 1 do
  begin
    for j := 1 to (n - i) do
      write(' ');
    for j := 1 to (2 * i - 1) do
      write('*');
    writeln;
  end;
end.

Keluaran untuk n = 5:

3.5 Tabel Perkalian dan Tabel Konversi

Perulangan bersarang sangat berguna untuk menghasilkan tabel berformat. Setiap baris adalah kombinasi dari dua nilai.

var
  i, j: integer;

begin
  write('    ');
  for j := 1 to 10 do
    write(j:5);
  writeln;
  writeln('---------------------------------------------');

  for i := 1 to 10 do
  begin
    write(i:3, ' |');
    for j := 1 to 10 do
      write((i * j):5);
    writeln;
  end;
end.

Keluaran (sebagian):

3.6 Matriks Dua Dimensi

Matriks adalah kumpulan nilai yang disusun dalam baris dan kolom. Meskipun kita belum mempelajari array (Modul 16), kita dapat mensimulasikan operasi matriks dengan perulangan bersarang.

var
  i, j, baris, kolom: integer;

begin
  write('Jumlah baris: ');  readln(baris);
  write('Jumlah kolom: ');  readln(kolom);

  for i := 1 to baris do
  begin
    for j := 1 to kolom do
      write((i * 10 + j):5);
    writeln;
  end;
end.

Keluaran untuk baris = 3, kolom = 4:

Pola i * 10 + j menghasilkan nilai unik untuk setiap posisi. Ini adalah salah satu cara untuk memberi label setiap sel tanpa menggunakan array.

3.7 Kombinasi Struktur Perulangan

Kita dapat mengombinasikan for, while, dan repeat dalam satu program untuk memodelkan masalah yang lebih kompleks.

{ Mencetak bilangan prima kurang dari 30 }
var
  n, i: integer;
  prima: boolean;

begin
  for n := 2 to 30 do
  begin
    prima := true;
    i := 2;
    while (i * i <= n) and prima do
    begin
      if n mod i = 0 then
        prima := false;
      i := i + 1;
    end;

    if prima then
      write(n, ' ');
  end;

  writeln;
end.

Keluaran:

3.8 Menggambar Grafik Sederhana

Perulangan bersarang dapat dipakai untuk menggambar grafik batang (bar chart) sederhana dari data numerik.

var
  nilai: array[1..5] of integer;
  i, j: integer;

begin
  writeln('Masukkan 5 nilai (0-20):');
  for i := 1 to 5 do
  begin
    write('Nilai ke-', i, ': ');
    readln(nilai[i]);
  end;

  writeln;
  for i := 1 to 5 do
  begin
    write('Baris ', i, ': ');
    for j := 1 to nilai[i] do
      write('#');
    writeln(' (', nilai[i], ')');
  end;
end.

Contoh keluaran:

3.9 Kesalahan Umum pada Perulangan Bersarang

1. Menggunakan variabel pencacah yang sama. Kedua perulangan harus menggunakan variabel berbeda (i dan j). Menggunakan i pada keduanya akan merusak inner loop.
2. Lupa writeln; setelah inner loop. Semua data akan tercetak dalam satu baris tanpa pemisah baris.
3. Lupa begin...end pada outer loop. Inner loop dianggap satu-satunya pernyataan, dan writeln menjadi di luar outer loop.
4. Menukar outer dan inner loop. Menghasilkan pola yang berbeda dari yang diinginkan.
5. Inner loop tidak dieksekusi. Kondisi inner loop mungkin sudah salah sejak awal, misalnya for j := 5 downto 1 ketika batasnya 1.
6. Mengubah pencacah outer di dalam inner. Merusak integritas iterasi dan biasanya merupakan kesalahan kompilasi.
7. Kesalahan off-by-one. Rentang yang salah, misalnya 1..n-1 ketika seharusnya 1..n.
8. Menggunakan variabel pencacah setelah inner loop. Nilai pencacah inner tidak dapat diandalkan setelah blok selesai.

3.10 Kapan Menggunakan Perulangan Bersarang

• Memproses data dua dimensi: baris dan kolom.
• Membentuk pola visual: bintang, piramida, grafik.
• Menghasilkan tabel kombinasi: tabel perkalian, tabel konversi.
• Mengiterasi pasangan nilai dari dua himpunan berbeda.
• Algoritma pengurutan O(n²) seperti bubble sort dan selection sort (Modul 19).
• Pemrosesan matriks dalam operasi aljabar linear.
• Pencarian dalam matriks atau grid dua dimensi.

3.11 Perbedaan Free Pascal dan Turbo Pascal

4.1 Flowchart Perulangan Bersarang Umum

flowchart TD
    A(["Mulai"]) --> B["i = 1"]
    B --> C{"i <= n?"}
    C -- "Tidak" --> Z(["Selesai"])
    C -- "Ya" --> D["j = 1"]
    D --> E{"j <= m?"}
    E -- "Tidak" --> Y["Pindah baris
i = i + 1"]
    Y --> C
    E -- "Ya" --> F["Proses(i, j)"]
    F --> G["j = j + 1"]
    G --> E
      

4.2 Flowchart Segitiga Siku-Siku Kiri Bawah

flowchart TD
    A(["Mulai"]) --> B[/"Baca n"/]
    B --> C["i = 1"]
    C --> D{"i <= n?"}
    D -- "Tidak" --> Z(["Selesai"])
    D -- "Ya" --> E["j = 1"]
    E --> F{"j <= i?"}
    F -- "Tidak" --> Y["writeln
i = i + 1"]
    Y --> D
    F -- "Ya" --> G["write('*')"]
    G --> H["j = j + 1"]
    H --> F
      

4.3 Flowchart Piramida Sama Kaki

flowchart TD
    A(["Mulai"]) --> B[/"Baca n"/]
    B --> C["i = 1"]
    C --> D{"i <= n?"}
    D -- "Tidak" --> Z(["Selesai"])
    D -- "Ya" --> E["Cetak spasi
n-i kali"]
    E --> F["Cetak bintang
2i-1 kali"]
    F --> G["writeln"]
    G --> H["i = i + 1"]
    H --> D
      

4.4 Flowchart Tabel Perkalian

flowchart TD
    A(["Mulai"]) --> B["Cetak header kolom"]
    B --> C["Cetak garis pemisah"]
    C --> D["i = 1"]
    D --> E{"i <= 10?"}
    E -- "Tidak" --> Z(["Selesai"])
    E -- "Ya" --> F["Cetak nomor baris"]
    F --> G["j = 1"]
    G --> H{"j <= 10?"}
    H -- "Tidak" --> Y["writeln
i = i + 1"]
    Y --> E
    H -- "Ya" --> I["Cetak i * j"]
    I --> J["j = j + 1"]
    J --> H
      

5.1 Pseudocode Segitiga Siku-Siku

PROGRAM SegitigaSikuSiku
{ Mencetak segitiga siku-siku dengan bintang }

DEKLARASI
  n : integer
  i, j : integer

ALGORITMA
  write("Tinggi segitiga: ")
  read(n)

  untuk i <- 1 sampai n lakukan
    untuk j <- 1 sampai i lakukan
      write("*")
    akhir untuk
    write("")
  akhir untuk
END

5.2 Pseudocode Piramida Sama Kaki

PROGRAM Piramida
{ Mencetak piramida sama kaki dengan bintang }

DEKLARASI
  n : integer
  i, j : integer

ALGORITMA
  write("Tinggi piramida: ")
  read(n)

  untuk i <- 1 sampai n lakukan
    { Cetak spasi kosong }
    untuk j <- 1 sampai (n - i) lakukan
      write(" ")
    akhir untuk

    { Cetak bintang }
    untuk j <- 1 sampai (2 * i - 1) lakukan
      write("*")
    akhir untuk

    write("")
  akhir untuk
END

5.3 Pseudocode Tabel Perkalian Lengkap

PROGRAM TabelPerkalian
{ Mencetak tabel perkalian 1 sampai 10 }

DEKLARASI
  i, j : integer

ALGORITMA
  { Cetak header baris kolom }
  write("    ")
  untuk j <- 1 sampai 10 lakukan
    write(j dengan lebar 5)
  akhir untuk
  write("")
  write("---------------------------------------------")

  { Cetak isi tabel }
  untuk i <- 1 sampai 10 lakukan
    write(i dengan lebar 3, " |")
    untuk j <- 1 sampai 10 lakukan
      write((i * j) dengan lebar 5)
    akhir untuk
    write("")
  akhir untuk
END

5.4 Pseudocode Bilangan Prima Sampai N

PROGRAM PrimaSampaiN
{ Mencetak semua bilangan prima dari 2 sampai n }

DEKLARASI
  n       : integer
  i, j    : integer
  prima   : boolean

ALGORITMA
  write("Batas atas: ")
  read(n)

  untuk i <- 2 sampai n lakukan
    prima <- true
    j <- 2

    selama (j * j <= i) dan (prima = true) lakukan
      jika i mod j = 0 maka
        prima <- false
      akhir jika
      j <- j + 1
    akhir selama

    jika prima = true maka
      write(i, " ")
    akhir jika
  akhir untuk

  write("")
END

6.1 Program Pola Persegi dan Segitiga

program PolaDasar;
{ Mendemonstrasikan pola persegi dan segitiga dengan perulangan bersarang }

var
  n, i, j: integer;

begin
  write('Ukuran pola: ');
  readln(n);

  writeln;
  writeln('=== Pola Persegi ===');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write('* ');
    writeln;
  end;

  writeln;
  writeln('=== Segitiga Siku-Siku Kiri ===');
  for i := 1 to n do
  begin
    for j := 1 to i do
      write('* ');
    writeln;
  end;

  writeln;
  writeln('=== Segitiga Siku-Siku Kanan ===');
  for i := 1 to n do
  begin
    for j := 1 to (n - i) do
      write('  ');
    for j := 1 to i do
      write('* ');
    writeln;
  end;
end.

Contoh keluaran untuk n = 5:

6.2 Program Piramida Sama Kaki

program PiramidaLengkap;
{ Mencetak piramida sama kaki dengan perulangan bersarang }

var
  n, i, j: integer;

begin
  write('Tinggi piramida: ');
  readln(n);

  writeln;
  writeln('=== Piramida ===');
  for i := 1 to n do
  begin
    { Cetak spasi kosong }
    for j := 1 to (n - i) do
      write('  ');

    { Cetak bintang }
    for j := 1 to (2 * i - 1) do
      write('* ');

    writeln;
  end;

  writeln;
  writeln('=== Piramida Terbalik ===');
  for i := n downto 1 do
  begin
    for j := 1 to (n - i) do
      write('  ');
    for j := 1 to (2 * i - 1) do
      write('* ');
    writeln;
  end;
end.

Contoh keluaran untuk n = 5:

6.3 Program Tabel Perkalian Lengkap

program TabelPerkalian;
{ Mencetak tabel perkalian 1 sampai 10 dengan format rapi }

var
  i, j: integer;

begin
  writeln('Tabel Perkalian 1 sampai 10');
  writeln('==============================================');

  { Header kolom }
  write('    ');
  for j := 1 to 10 do
    write(j:5);
  writeln;

  writeln('==============================================');

  { Isi tabel }
  for i := 1 to 10 do
  begin
    write(i:3, ' |');
    for j := 1 to 10 do
      write((i * j):5);
    writeln;
  end;

  writeln('==============================================');
end.

Contoh keluaran:

6.4 Program Bilangan Prima Sampai N

program PrimaSampaiN;
{ Mencetak semua bilangan prima dari 2 sampai n }

var
  n, i, j: integer;
  prima: boolean;

begin
  write('Batas atas: ');
  readln(n);

  writeln;
  writeln('Bilangan prima dari 2 sampai ', n, ':');

  for i := 2 to n do
  begin
    prima := true;
    j := 2;

    while (j * j <= i) and prima do
    begin
      if i mod j = 0 then
        prima := false;
      j := j + 1;
    end;

    if prima then
      write(i, ' ');
  end;

  writeln;
end.

Contoh keluaran untuk n = 50:

6.5 Program Tabel Konversi Suhu

program TabelSuhu;
{ Mencetak tabel konversi suhu Celsius ke Fahrenheit dan Kelvin }

var
  celsius, fahrenheit, kelvin: double;
  i: integer;

begin
  writeln('Tabel Konversi Suhu');
  writeln('======================================');
  writeln('Celsius   Fahrenheit      Kelvin');
  writeln('--------------------------------------');

  for i := 0 to 10 do
  begin
    celsius := i * 10;
    fahrenheit := (celsius * 9 / 5) + 32;
    kelvin := celsius + 273.15;

    writeln(celsius:7:1, fahrenheit:13:2, kelvin:12:2);
  end;

  writeln('======================================');
end.

Contoh keluaran (sebagian):

6.6 Program Matriks Perkalian

program MatriksPerkalian;
{ Menampilkan matriks berisi hasil kali indeks baris dan kolom }

var
  baris, kolom, i, j: integer;

begin
  write('Jumlah baris: ');  readln(baris);
  write('Jumlah kolom: ');  readln(kolom);

  writeln;
  writeln('Matriks Perkalian ', baris, ' x ', kolom);
  writeln('-----------------------------------------');

  for i := 1 to baris do
  begin
    for j := 1 to kolom do
      write((i * j):6);
    writeln;
  end;

  writeln('-----------------------------------------');
end.

Contoh keluaran untuk 4 x 5:

7.1 Program PolaDasar — Bagian Segitiga Siku-Siku Kiri

7.2 Program PrimaSampaiN

7.3 Jejak Eksekusi PrimaSampaiN untuk i = 9

Karena 9 mod 3 = 0, maka 9 bukan prima. Perulangan berhenti lebih awal karena kondisi prima sudah false.

9.1 Deskripsi Masalah

Universitas "Cendekia Nusantara" ingin membuat papan jadwal kuliah mingguan untuk program studi Teknik Informatika. Papan menampilkan jadwal dalam format grid dengan baris sebagai slot waktu dan kolom sebagai hari. Program juga membuat ringkasan visual berupa grafik batang yang menunjukkan berapa banyak kelas pada setiap hari.

9.2 Struktur Data dan Aturan

Untuk studi kasus ini, jadwal disimpan dalam matriks boolean yang disimulasikan. Karena array belum dibahas, kita gunakan pendekatan sederhana: setiap slot diisi berdasarkan aturan tetap.

9.3 Flowchart Studi Kasus

flowchart TD
    A(["Mulai"]) --> B["Cetak header hari"]
    B --> C["i = 1 (slot)"]
    C --> D{"i <= jumlahSlot?"}
    D -- "Tidak" --> L["Cetak grafik batang"]
    D -- "Ya" --> E["Cetak label slot waktu"]
    E --> F["j = 1 (hari)"]
    F --> G{"j <= jumlahHari?"}
    G -- "Tidak" --> K["writeln, i = i + 1"]
    K --> D
    G -- "Ya" --> H{"Slot terisi?"}
    H -- "Ya" --> I["Cetak '[X]'"]
    H -- "Tidak" --> J["Cetak '[ ]'"]
    I --> N["j = j + 1"]
    J --> N
    N --> G
    L --> M(["Selesai"])
      

9.4 Pseudocode Studi Kasus

PROGRAM PapanJadwal
{ Menampilkan jadwal kuliah mingguan dan grafik batang }

KONSTANTA
  JUMLAH_HARI = 5
  JUMLAH_SLOT = 4
  GARIS_GANDA = "=============================================================="
  GARIS_TUNGGAL = "--------------------------------------------------------------"

DEKLARASI
  hari   : array[1..5] of string
  slot   : array[1..4] of string
  isi    : array[1..4, 1..5] of boolean
  i, j   : integer
  jumlahKelas : integer

ALGORITMA
  hari[1] <- "Senin"
  hari[2] <- "Selasa"
  hari[3] <- "Rabu"
  hari[4] <- "Kamis"
  hari[5] <- "Jumat"

  slot[1] <- "08:00"
  slot[2] <- "10:00"
  slot[3] <- "13:00"
  slot[4] <- "15:00"

  { Inisialisasi jadwal }
  untuk i <- 1 sampai JUMLAH_SLOT lakukan
    untuk j <- 1 sampai JUMLAH_HARI lakukan
      isi[i, j] <- false
    akhir untuk
  akhir untuk

  isi[1, 1] <- true
  isi[1, 3] <- true
  isi[2, 2] <- true
  isi[2, 4] <- true
  isi[3, 1] <- true
  isi[3, 5] <- true
  isi[4, 2] <- true
  isi[4, 3] <- true

  { Cetak header }
  write(GARIS_GANDA)
  write("           JADWAL KULIAH TEKNIK INFORMATIKA")
  write(GARIS_GANDA)
  write("Slot    |", ...)   { header hari }

  { Cetak isi grid }
  untuk i <- 1 sampai JUMLAH_SLOT lakukan
    write(slot[i] lebar 7, " |")
    untuk j <- 1 sampai JUMLAH_HARI lakukan
      jika isi[i, j] = true maka
        write("[X]  ")
      selain itu
        write("[ ]  ")
      akhir jika
    akhir untuk
    write("")
  akhir untuk

  write(GARIS_GANDA)

  { Cetak grafik batang }
  write("")
  write("JUMLAH KELAS PER HARI:")
  write(GARIS_TUNGGAL)

  untuk j <- 1 sampai JUMLAH_HARI lakukan
    jumlahKelas <- 0
    untuk i <- 1 sampai JUMLAH_SLOT lakukan
      jika isi[i, j] = true maka
        jumlahKelas <- jumlahKelas + 1
      akhir jika
    akhir untuk

    write(hari[j] lebar 8, ": ")
    untuk i <- 1 sampai jumlahKelas lakukan
      write("#")
    akhir untuk
    write(" (", jumlahKelas, ")")
  akhir untuk

  write(GARIS_TUNGGAL)
END

9.5 Implementasi dalam Pascal

program PapanJadwal;
{ Studi Kasus Modul 10 - Papan jadwal kuliah dan grafik batang }

const
  JUMLAH_HARI   = 5;
  JUMLAH_SLOT   = 4;
  GARIS_GANDA   = '==============================================================';
  GARIS_TUNGGAL = '--------------------------------------------------------------';

type
  ArrHari = array[1..JUMLAH_HARI] of string[8];
  ArrSlot = array[1..JUMLAH_SLOT] of string[8];
  ArrIsi  = array[1..JUMLAH_SLOT, 1..JUMLAH_HARI] of boolean;

var
  hari   : ArrHari;
  slot   : ArrSlot;
  isi    : ArrIsi;
  i, j, jumlahKelas: integer;

begin
  hari[1] := 'Senin';
  hari[2] := 'Selasa';
  hari[3] := 'Rabu';
  hari[4] := 'Kamis';
  hari[5] := 'Jumat';

  slot[1] := '08:00';
  slot[2] := '10:00';
  slot[3] := '13:00';
  slot[4] := '15:00';

  { Inisialisasi semua slot kosong }
  for i := 1 to JUMLAH_SLOT do
    for j := 1 to JUMLAH_HARI do
      isi[i, j] := false;

  { Isi beberapa slot dengan kelas }
  isi[1, 1] := true;   { Senin 08:00 }
  isi[1, 3] := true;   { Rabu 08:00 }
  isi[2, 2] := true;   { Selasa 10:00 }
  isi[2, 4] := true;   { Kamis 10:00 }
  isi[3, 1] := true;   { Senin 13:00 }
  isi[3, 5] := true;   { Jumat 13:00 }
  isi[4, 2] := true;   { Selasa 15:00 }
  isi[4, 3] := true;   { Rabu 15:00 }

  { Cetak header }
  writeln(GARIS_GANDA);
  writeln('           JADWAL KULIAH TEKNIK INFORMATIKA');
  writeln(GARIS_GANDA);

  write('Slot    |');
  for j := 1 to JUMLAH_HARI do
    write(hari[j]:8);
  writeln;
  writeln(GARIS_TUNGGAL);

  { Cetak isi grid }
  for i := 1 to JUMLAH_SLOT do
  begin
    write(slot[i]:7, ' |');
    for j := 1 to JUMLAH_HARI do
    begin
      if isi[i, j] then
        write('[X]':8)
      else
        write('[ ]':8);
    end;
    writeln;
  end;

  writeln(GARIS_TUNGGAL);

  { Cetak grafik batang }
  writeln;
  writeln('JUMLAH KELAS PER HARI:');
  writeln(GARIS_TUNGGAL);

  for j := 1 to JUMLAH_HARI do
  begin
    jumlahKelas := 0;
    for i := 1 to JUMLAH_SLOT do
      if isi[i, j] then
        jumlahKelas := jumlahKelas + 1;

    write(hari[j]:8, ': ');
    for i := 1 to jumlahKelas do
      write('#');
    writeln(' (', jumlahKelas, ')');
  end;

  writeln(GARIS_TUNGGAL);
end.

9.6 Contoh Keluaran

9.7 Pembahasan

Beberapa keputusan perancangan penting pada program ini.

1. Array dua dimensi. Program ini menggunakan array[1..JUMLAH_SLOT, 1..JUMLAH_HARI] of boolean untuk menyimpan status setiap slot. Meskipun array baru dibahas resmi pada Modul 16, penggunaannya di sini memberi gambaran tentang bagaimana perulangan bersarang alami berpasangan dengan struktur data dua dimensi.
2. Tipe bentukan. Mendefinisikan ArrHari, ArrSlot, dan ArrIsi di blok type membuat program lebih mudah dibaca dan diubah.
3. Header hari dicetak dengan perulangan. Alih-alih menuliskan manual, kita iterasi hari[j]. Bila suatu saat jumlah hari bertambah, cukup ubah JUMLAH_HARI.
4. Grid dicetak dengan nested loop. Outer loop untuk slot, inner loop untuk hari. Setiap sel dipilih berdasarkan status boolean.
5. Grafik batang dihitung dengan perulangan terbalik. Untuk setiap hari (kolom), kita iterasi semua slot (baris). Perhatikan bahwa urutan outer dan inner di sini terbalik dibandingkan pencetakan grid, karena kita ingin mengelompokkan berdasarkan hari.
6. Konsistensi format. Penggunaan :8 untuk setiap kolom memastikan semua baris memiliki lebar yang sama dan rapi. Ini adalah praktik yang akan terus dipakai dalam laporan-laporan berikutnya.

9.8 Pengembangan Selanjutnya

1. Perulangan bersarang adalah perulangan di dalam perulangan. Outer loop mengontrol iterasi luar, inner loop berjalan penuh untuk setiap iterasi outer.
2. Jumlah iterasi total adalah hasil kali jumlah iterasi masing-masing perulangan. Untuk dua loop n iterasi, totalnya n².
3. Setiap perulangan harus memiliki variabel pencacah sendiri. Menggunakan variabel yang sama akan merusak inner loop.
4. Batas inner loop dapat bergantung pada outer loop. Contoh: segitiga dengan baris ke-i memiliki i bintang.
5. Pola persegi: kedua loop berjalan dari 1 sampai n. Pola segitiga: inner loop berjalan dari 1 sampai i. Pola piramida: tambahkan loop spasi sebelum loop bintang.
6. Rumus (2i - 1) menghasilkan deret bilangan ganjil 1, 3, 5, 7, ... yang membentuk piramida sama kaki.
7. Tabel perkalian dan tabel konversi adalah aplikasi langsung perulangan bersarang. Header dicetak dengan satu loop, isi dengan loop bersarang.
8. Matriks dua dimensi secara alami diproses dengan perulangan bersarang: outer loop untuk baris, inner loop untuk kolom.
9. Struktur perulangan dapat dikombinasikan. for di dalam while, atau sebaliknya, memungkinkan pemodelan masalah yang lebih kompleks.
10. Lupa writeln; setelah inner loop menyebabkan semua data tercetak dalam satu baris panjang.
11. Analisis kompleksitas: perulangan bersarang O(n²) perlu dihindari untuk n besar. Alternatif algoritma yang lebih efisien akan dibahas pada fase lanjutan.
12. Anda telah menyelesaikan Fase 1. Selanjutnya, Fase 2 akan fokus pada modularisasi (prosedur dan fungsi) dan struktur data (array dan record).

Buku Teks

1. Jensen, K., & Wirth, N. (1991). Pascal User Manual and Report (4th ed.). Springer-Verlag. Bab 9 membahas perulangan bersarang dan struktur kontrol bertingkat.
2. Cantu, M. (2020). Object Pascal Handbook. Marco Cantu. Bab tentang struktur kontrol dan pemrosesan data multidimensi.
3. Cooper, D., & Clancy, M. (1982). Oh! Pascal! W. W. Norton & Company. Bab tentang iterasi bersarang dan pembentukan pola.
4. Grogono, P. (1995). Programming with Pascal. Addison-Wesley. Bab 7 dan 8 membahas perulangan dan pemrosesan matriks.
5. Knuth, D. E. (1997). The Art of Computer Programming, Volume 1 (3rd ed.). Addison-Wesley. Bab tentang analisis kompleksitas dan pola iteratif.

Dokumentasi Resmi

1. Free Pascal Team. Free Pascal Reference Guide. Bab tentang perulangan bersarang. Tersedia di freepascal.org/docs.html.
2. Free Pascal Team. Free Pascal Programmer's Guide. Bab tentang struktur kontrol dan optimasi.
3. Lazarus IDE Documentation. Panduan penggunaan perulangan pada aplikasi.

Artikel dan Sumber Daring

1. IEEE Computer Society. (1990). IEEE Standard for Pascal (IEEE Std 770-1983). Bab tentang pernyataan iteratif.
2. Wirth, N. (1971). "The Programming Language Pascal." Acta Informatica, 1(1), 35-63. Bab tentang struktur kontrol dan komposisi.
3. Free Pascal Community Forum. Diskusi tentang teknik optimasi perulangan bersarang.