Latihan Kode Program Pascal: Membuat Piramida Bintang Terbalik

Membuat piramida bintang terbalik merupakan modifikasi dari kode program piramida bintang yang sudah pernah kita bahas sebelumnya.

Latihan ini menguji pemahaman tentang logika program serta penggunaan perulangan bersarang (nested loop). Dalam beberapa soal, piramida bintang terbalik disebut juga sebagai segitiga sama sisi terbalik.


Soal Piramida Bintang Terbalik

Buatlah kode program dalam bahasa Pascal untuk menampilkan gambar piramida terbalik atau segitiga sama sisi terbalik dalam bentuk kumpulan bintang (karakter *).

Kode program butuh satu inputan yang dipakai untuk menentukan tinggi dari segitiga.

Berikut contoh tampilan akhir yang diinginkan (1) :

##  Program Pascal Piramida Bintang  ##
=======================================

Input tinggi segitiga: 6

 * * * * * *
  * * * * * 
   * * * *  
    * * *   
     * *    
      *

Berikut contoh tampilan akhir yang diinginkan (2) :

## Program Pascal Piramida Bintang ##
=======================================

Input tinggi segitiga: 7

 * * * * * * *
  * * * * * *
   * * * * *
    * * * *
     * * *
      * *
       *

Tips Membuat Kode Program Piramida Bintang Terbalik

Soal ini melatih pemahaman terkait perulangan bersarang (nested loop). Berikut tutorial pendahuluan yang bisa diikuti:

Kita perlu membuat perulangan bersarang atau nested loop untuk memecahkan soal ini. Perulangan luar (outer loop) dipakai untuk menentukan tinggi segitiga, serta perulangan dalam (inner loop) untuk membuat bentuk segitiga.

Soal ini merupakan pengembangan dari membuat piramida bintang sebelumnya.


Kode Program Bahasa Pascal Piramida Bintang Terbalik

Berikut salah satu solusi dari soal membuat piramida bintang terbalik menggunakan bahasa pemrograman Pascal:

program piramida_bintang_terbalik;
uses crt;
var
  tinggi_segitiga,i,j,k: integer;
begin
  clrscr;
  writeln('##  Program Pascal Piramida Bintang  ##');
  writeln('=======================================');
  writeln;
 
  write('Input tinggi segitiga: ');
  readln(tinggi_segitiga);
  writeln;
 
  for i := 0 to tinggi_segitiga do
  begin
    for j := 1 to i do
    begin
      write(' ');
    end;
    for k := 1 to tinggi_segitiga-i do
    begin
      write(' *');
    end;
  writeln;
  end;
 
  readln;
end.

Latihan Kode Program Pascal - Membuat Piramida Bintang Terbalik

Kode program meminta satu inputan yang disimpan ke dalam variabel tinggi_segitiga. Variabel inilah yang nantinya akan menjadi penentu kondisi akhir dari perulangan for.

Proses menampilkan karakter bintang dilakukan oleh perulangan for di baris 15 – 26. Perulangan luar dengan variabel counter i dipakai untuk membuat tinggi segitiga. Ini dimulai dari i := 0 hingga tinggi_segitiga.

Jika pada saat proses input nilai tinggi_segitiga berisi angka 9, maka perulangan luar akan dijalankan sebanyak 9 kali.

Dalam setiap iterasi, jalankan 2 buah perulangan dalam (inner loop) serta sebuah perintah writeln di baris 25. Perintah ini dipakai untuk proses pindah baris.

Untuk membuat bentuk piramida terbalik atau segitiga sama sisi terbalik, kita perlu 2 buah perulangan dalam.

Perulangan dalam dengan variabel counter j dipakai untuk membuat karakter spasi yang akan mendorong karakter bintang ke arah kanan. Tanda spasi ini perlu dibuat menaik, oleh karena itu perulangan akan mulai dari j := 1, hingga i.

Perulangan dalam kedua dengan variabel counter k dipakai untuk membuat karakter bintang. Sekarang tanda bintang ini perlu dibuat menurun mulai dari k := 1 hingga tinggi_segitiga-i. Dalam setiap iterasi, jalankan perintah write(' *'). Tanda spasi sebelum karakter bintang dipakai agar hasil bintang menjadi lebih rapi.


Demikian soal dan jawaban kode program membuat piramida bintang terbalik dalam bahasa Pascal. Semoga bisa bermanfaat.


eBook Pascal Uncover Duniailkom
Apabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom.

Add Comment