Tutorial Belajar Pascal: Cara Membuat Segitiga Bintang Bahasa Pemrograman Pascal

Membuat segitiga bintang sudah menjadi hal wajib dalam belajar algoritma. Jika anda pernah mengikuti mata kuliah algoritma dan pemrograman, hampir bisa dipastikan juga pernah dibuat pusing oleh kode program ini.

Dalam tutorial belajar pascal di duniailkom kali ini kita akan mempelajarinya dengan lebih rinci. Kita akan membahas cara membuat segitiga bintang menggunakan bahasa pemrograman Pascal.

Segitiga Bintang Bahasa Pemrograman Pascal

Bagi anda yang belum pernah melihatnya, berikut tampilan dari segitiga bintang yang saya maksud:

Tugas kita adalah merancang kode program untuk tampilan seperti itu.

Mungkin anda bertanya, untuk apa kita membuat kode program ini? Apa gunanya?

Kode program bintang-bintang seperti diatas memang tidak ada peran apapun dalam aplikasi “dunia nyata”. Ini lebih kepada melatih logika berfikir. Logika berfikir inilah skill paling penting yang harus dimiliki oleh (calon) programmer.

Baik, mari kita coba bahas bagaimana cara pembuatannya.

Contoh Kode Program Segitiga Bintang Bahasa Pascal

Syarat pertama, anda tidak boleh membuat tampilan tersebut secara langsung. Cara curangnya bisa dengan membuat 5 baris writeln:

writeln('*');
writeln('**');
writeln('***');
writeln('****');
writeln('*****');

Tentu saja hasilnya akan sama. Tapi disini kita akan menggunakan perulangan. Lebih tepatnya perulangan bersarang (nested loop).

Dengan menggunakan perulangan, jumlah bintang tersebut bisa diatur dari variabel. Misalnya, saya ingin membuat 100 baris bintang, pastinya akan repot jika membuat satu persatu seperti contoh diatas.

Hal pertama yang akan kita buat adalah sebuah perulangan dengan 5 bintang kebawah, seperti kode program berikut ini:

program kode_program_segitiga_bintang;
uses crt;
var
  i: integer;
begin
  clrscr;
  
    for i := 1  to 5 do
      begin
        writeln('*');
      end;

  readln;
end.

Terlihat, sebuah perulangan bintang sudah tampil. Berikutnya bagaimana cara membuat bintang ke samping? Kita akan membuat 1 perulangan j di dalam perulangan i (nested loop). Berikut kode programnya:

program kode_program_segitiga_bintang;
uses crt;
var
  i,j: integer;
begin
  clrscr;
  
    for i := 1  to 5 do
      begin
      
        for j := 1  to 5 do
          begin
            write('*');
          end;
          
        writeln('*');
      end;

  readln;
end.

Dalam kode program diatas, perulangan j akan dijalankan sebanyak 5 kali untuk setiap perulangan i.

Sekarang, bagaimana caranya agar pada perulangan i pertama, perulangan j hanya dijalankan 1 kali. Ketika masuk ke perulangan i kedua, perulangan j akan dijalankan 2 kali. Saat perulangan i ketiga, perulangan j akan dijalankan 3 kali, dst.

Dari paragraf saya diatas, kita sudah bisa melihat pola yang harus ditulis. Kuncinya ada di variabel j. Bagaimana cara agar perulangan j bisa menjadi dinamis mengikuti jumlah perulangan ke – i? Caranya, dengan menjadikan nilai variabel i sebagai patokan akhir perulangan j.

Berikut kode program yang saya maksud:

program kode_program_segitiga_bintang;
uses crt;
var
  i,j: integer;
begin
  clrscr;

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

  readln;
end.

Perhatikan bagian for j := 1 to i do. Inilah yang bisa membuat perulangan j menjadi dinamis dan menaik dalam setiap perulangan i.

Baik, mari kita jalankan:

Tunggu dulu, kenapa ada dua bintang di baris pertama? Bintang pertama berasal dari perulangan i, yakni kode writeln(‘*’). Untuk memperbaikinya, kita cukup menghapus string (‘*’) karena tidak diperlukan lagi.

Namun perintah writeln; tetap dibutuhkan agar bintang bisa pindah ke baris baru:

program kode_program_segitiga_bintang;
uses crt;
var
  i,j: integer;
begin
  clrscr;

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

  readln;
end.

Done! Kode program kita untuk membuat segitiga bintang sudah selesai. Kunci dari proses pembuatan kode program ini ada di logika dan cara berfikir kita untuk menyelesaikan masalah.

Sebagai latihan, saya tantang anda untuk membuat segitiga bintang yang sama, namun dalam posisi terbalik. Seperti tampilan berikut:

Silahkan anda luangkan waktu beberapa saat dan latihan bagaimana cara membuatnya.

…

…

Baik, berikut kode program yang saya gunakan:

program kode_program_segitiga_bintang;
uses crt;
var
  i,j: integer;
begin
  clrscr;

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

  readln;
end.

Hanya perlu tambahan 2 karakter, tepatnya di bagian for j := 1  to (6-i) do. Inilah yang membuat perulangan terdalam (j) akan menurun dari 5 bintang, 4 bintang, 3 bintang, 2 bintang dan 1 bintang.

Dengan mengutak-atik variabel i dan j, kita bisa membuat berbagai bentuk segitiga, misalnya bagamana jika kedua segitiga ini disatukan (menjadi bentuk setengah belah ketupat). Atau anda bisa juga menambahkan perintah readln agar jumlah baris segitiga bisa diinput dari user.

Selamat berkreasi dan silahkan asah logika pemrograman dengan program segitiga pascal ini.

---

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.