Materi soal kode program Pascal kali ini akan membahas cara membuat persegi panjang bintang. Latihan ini melatih logika program, terutama pemahaman terkait konsep perulangan bersarang (nested loop).
Soal Membuat Persegi Panjang Bintang
Buatlah kode program dalam bahasa Pascal untuk menampilkan gambar persegi panjang dalam bentuk kumpulan karakter bintang (karakter *). Kode program butuh dua buah inputan, yakni tinggi persegi dan lebar persegi.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Persegi Panjang Bintang ## ============================================== Input tinggi persegi: 3 Input lebar persegi: 8 * * * * * * * * * * * * * * * * * * * * * * * *
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Persegi Panjang Bintang ## ============================================== Input tinggi persegi: 6 Input lebar persegi: 10 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Tips Membuat Kode Program Persegi Panjang Bintang
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: Membuat Persegi Bintang
Kita perlu membuat perulangan bersarang atau nested loop untuk memecahkan soal ini. Perulangan luar (outer loop) dipakai untuk membuat tinggi persegi, dan perulangan dalam (inner loop) dipakai untuk membuat lebar persegi.
Kode program yang digunakan akan sangat mirip seperti Latihan Kode Program Membuat Persegi Bintang, sehingga sangat disarankan untuk dipelajari terlebih dahulu.
Kode Program Bahasa Pascal Persegi Panjang Bintang
Berikut salah satu solusi dari soal membuat persegi panjang bintang menggunakan bahasa pemrograman Pascal:
program persegi_panjang_bintang;
uses crt;
var
tinggi_persegi, lebar_persegi, i, j: integer;
begin
clrscr;
writeln('## Program Pascal Persegi Panjang Bintang ##');
writeln('==============================================');
writeln;
write('Input tinggi persegi: ');
readln(tinggi_persegi);
write('Input lebar persegi: ');
readln(lebar_persegi);
writeln;
for i := 1 to tinggi_persegi do
begin
for j := 1 to lebar_persegi do
begin
write(' *');
end;
writeln;
end;
readln;
end.
Hasil kode program:
Kode program meminta dua inputan yang disimpan ke dalam variabel tinggi_persegi dan lebar_persegi. Variabel inilah yang nantinya akan menjadi penentu kondisi akhir dari perulangan for.
Proses menampilkan karakter bintang dilakukan oleh perulangan for di baris 17 – 24. Perulangan luar dengan variabel counter i dipakai untuk membuat tinggi persegi. Ini dimulai dari i := 1 hingga tinggi_persegi.
Jika pada saat proses input nilai tinggi_persegi berisi angka 9, maka perulangan luar akan dijalankan sebanyak 9 kali.
Dalam setiap iterasi, jalankan perulangan dalam serta sebuah perintah writeln di baris 23. Perintah ini dipakai untuk proses pindah baris.
Perulangan dalam dengan variabel counter j dipakai untuk membuat karakter bintang. Karena kita membuat sebuah persegi panjang, maka proses perulangan dilakukan mulai dari j := 1 hingga lebar_persegi.
Dalam setiap iterasi, jalankan perintah write(' *'). Tanda spasi sebelum karakter bintang dipakai agar kotak persegi menjadi lebih rapi.
Demikian soal dan jawaban kode program membuat persegi panjang bintang dalam bahasa Pascal.
Latihan soal ini menjadi dasar dari kode program membuat bentuk bintang lain yang lebih kompleks, seperti segitiga bintang dan piramida bintang.