Membuat kode program berbentuk pola belah ketupat bintang sudah menjadi salah satu soal "legend" dalam latihan algoritma menggunakan bahasa pemrograman Pascal. Ini karena kode yang diperlukan cukup kompleks karena kita butuh 6 buah perulangan yang saling bersambung satu sama lain.
Latihan ini menguji pemahaman tentang logika program serta penggunaan perulangan bersarang (nested loop). Dalam beberapa soal, belah ketupat bintang ini disebut juga sebagai diamond bintang.
Soal Pola Belah Ketupat Bintang
Buatlah kode program dalam bahasa Pascal untuk menampilkan gambar pola belah ketupat atau diamond dalam bentuk kumpulan bintang (karakter *). Kode program butuh satu inputan yang dipakai untuk menentukan lebar belah ketupat.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Belah Ketupat Bintang ##
============================================
Input lebar belah ketupat: 5
*
* *
* * *
* * * *
* * * * *
* * * *
* * *
* *
*
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Belah Ketupat Bintang ##
============================================
Input lebar belah ketupat: 8
*
* *
* * *
* * * *
* * * * *
* * * * * *
* * * * * * *
* * * * * * * *
* * * * * * *
* * * * * *
* * * * *
* * * *
* * *
* *
*
Tips Membuat Kode Program Pola Belah Ketupat
Soal ini melatih pemahaman terkait perulangan bersarang (nested loop). Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Pengertian Tipe Data Integer Bahasa Pascal
- Perulangan FOR DO Bahasa Pascal
- Latihan Kode Program Pascal: Segitiga Bintang
- Latihan Kode Program Pascal: Piramida Bintang
- Latihan Kode Program Pascal: Piramida Bintang Terbalik
Kita perlu membuat perulangan bersarang atau nested loop untuk memecahkan soal ini.
Pada dasarnya belah ketupat bintang adalah gabungan dari piramida bintang dan piramida bintang terbalik dalam satu program. Artinya kita butuh 6 buah perulangan for untuk membuatnya. Karena itu pemahaman tentang kode program membuat piramida bintang sangat diperlukan.
Kode Program Pascal Pola Belah Ketupat Bintang
Berikut salah satu solusi dari soal membuat belah ketupat menggunakan bahasa pemrograman Pascal:
program belah_ketupat_bintang;
uses crt;
var
lebar_belah_ketupat,i,j,k: integer;
begin
clrscr;
writeln('## Program Pascal Belah Ketupat Bintang ##');
writeln('============================================');
writeln;
write('Input lebar belah ketupat: ');
readln(lebar_belah_ketupat);
writeln;
for i := 1 to lebar_belah_ketupat do
begin
for j := 1 to lebar_belah_ketupat-i do
write(' ');
for k := 1 to i do
write(' *');
writeln;
end;
for i := 1 to lebar_belah_ketupat-1 do
begin
for j := 1 to i do
write(' ');
for k := 1 to lebar_belah_ketupat-i do
write(' *');
writeln;
end;
readln;
end.
Hasil kode program:
Di baris 12, kode program meminta satu inputan yang disimpan ke dalam variabel lebar_belah_ketupat. Variabel inilah yang nantinya akan menjadi penentu kondisi akhir dari perulangan for.
Proses menampilkan karakter bintang dilakukan oleh 6 buah perulangan for do antara baris 15-31. Seperti yang dijelaskan dalam bagian tips, kode program ini merupakan gabungan dari kode membuat piramida bintang dan piramida bintang terbalik.
Tiga perulangan for pertama antara baris 15-22 dipakai untuk membuat sisi atas belah ketupat. Sedangkan tiga perulangan for berikutnya antara baris 24-31 dipakai untuk membuat sisi bawah belah ketupat.
Perulangan luar pertama dimulai dari i = 1 sampai i = lebar_belah_ketupat. Sedangkan perulangan luar kedua dimulai dari i = 1 sampai i = lebar_belah_ketupat-1.
Pengurangan dengan angka 1 agar alas piramida atas tidak berhimpit dengan alas piramida bawah. Dalam setiap perulangan i, jalankan perulangan j dan k untuk membuat pola piramida dan pola piramida terbalik.
Demikian soal dan jawaban kode program membuat pola belah ketupat bintang dalam bahasa Pascal.
Kode yang diperlukan memang cukup kompleks karena butuh 6 buah perulangan for yang saling terhubung satu sama lain. Semoga bisa bermanfaat.