Panduan Lengkap: Cara Menghitung Pangkat dengan Looping (Perulangan) di Pascal

Bagi siapa saja yang baru memulai perjalanan di dunia ilmu komputer, memahami logika perulangan (looping) adalah pilar yang sangat krusial. Dalam pemrograman Pascal, salah satu studi kasus paling populer yang sering dijadikan tugas sekolah atau praktikum kuliah adalah menghitung hasil pemangkatan suatu bilangan menggunakan looping.

Mungkin Anda berpikir, "Kenapa tidak pakai fungsi matematika bawaan saja?" atau "Kenapa tidak dihitung langsung lewat Excel?". Jawabannya adalah untuk melatih kemampuan algoritma dasar Anda. Di balik aplikasi kalkulator canggih sekalipun, terdapat susunan instruksi logika perulangan sederhana seperti yang akan kita pelajari pada artikel ini.

Secara matematis, operasi perpangkatan ($a^n$) didefinisikan sebagai perkalian bilangan basis ($a$) secara berulang-ulang sebanyak eksponen atau nilai pangkatnya ($n$). Misalnya, $5^3$ berarti kita melakukan operasi perkalian $5 \times 5 \times 5$. Bagaimana cara menuangkan logika matematika tersebut ke dalam baris kode Pascal yang valid? Mari kita bahas secara mendalam dan tuntas!

---

Logika Dasar Algoritma Pemangkatan dengan Perulangan

Sebelum kita menulis kode program, mari kita bedah terlebih dahulu bagaimana komputer mengeksekusi instruksi ini selangkah demi selangkah. Komputer tidak tahu secara instan berapa hasil dari $3^4$. Komputer harus melakukan iterasi perkalian satu per satu.

Alur logika atau algoritmanya adalah sebagai berikut:

  1. Program meminta input dua buah bilangan dari pengguna: Bilangan Basis (Angka Utama) dan Bilangan Eksponen (Pangkat).
  2. Program menyiapkan sebuah variabel penampung bernama hasil yang diberi nilai awal (inisialisasi) sebesar 1. Mengapa harus 1? Karena 1 adalah identitas perkalian. Jika kita menginisialisasinya dengan angka 0, maka berapa pun angka yang dikalikan di dalam perulangan akan selalu menghasilkan 0.
  3. Komputer memulai perulangan dari indeks pertama hingga mencapai target nilai pangkat yang ditentukan pengguna.
  4. Di setiap putaran perulangan, nilai di dalam variabel hasil yang sekarang akan dikalikan dengan bilangan basis, lalu disimpan kembali ke dalam variabel hasil tersebut (akumulasi).
  5. Setelah perulangan selesai, program mencetak nilai akhir dari variabel hasil ke layar terminal.
---

Source Code Utama: Menghitung Pangkat Menggunakan FOR..TO..DO

Berikut adalah kode program utamanya yang ditulis menggunakan sintaks standar yang kompatibel dengan compiler Free Pascal maupun Turbo Pascal. Berbeda dengan contoh kode lama yang sering error karena lupa deklarasi, kode di bawah ini dijamin 100% berfungsi dengan baik:

program menghitung_pangkat_looping;
uses crt;

var
    angka1, pangkat, hasil, i: integer;

begin
    clrscr;
    writeln('====================================================');
    writeln('  TUTORIAL PASCAL: MENGHITUNG PANGKAT DENGAN LOOPING ');
    writeln('====================================================');
    writeln;
    
    { Menerima Input dari User }
    write('1. Masukkan angka yang akan dipangkatkan : '); 
    readln(angka1);
    write('2. Masukkan nilai pangkat (eksponen)     : '); 
    readln(pangkat);
    
    { Langkah Krusial: Inisialisasi variabel hasil dengan angka 1 }
    hasil := 1;
    
    { Proses Iterasi Perkalian Berulang }
    for i := 1 to pangkat do
    begin
        hasil := hasil * angka1;
    end;
    
    { Menampilkan Output Hasil Akhir }
    writeln;
    writeln('----------------------------------------------------');
    writeln('HASIL: ', angka1, ' pangkat ', pangkat, ' adalah => ', hasil);
    writeln('----------------------------------------------------');
    
    { Menahan tampilan layar command prompt agar tidak langsung menutup }
    readln;
end.
---

Bedah Kode: Penjelasan Tiap Baris Sintaks

Mari kita lakukan analisis teknis terhadap struktur output Pascal di atas agar Anda tidak sekadar menyalin kode, melainkan benar-benar memahami fungsinya:

  • program menghitung_pangkat_looping;: Baris ini adalah judul program. Sifatnya opsional namun sangat direkomendasikan agar manajemen file proyek Anda terstruktur dengan rapi.
  • uses crt;: Perintah untuk memanggil unit CRT (Cathode Ray Tube). Unit ini wajib diikutsertakan agar kita bisa menggunakan fungsi pembersih layar clrscr.
  • var angka1, pangkat, hasil, i: integer;: Ini adalah blok deklarasi variabel. Kita mendaftarkan empat variabel sekaligus menggunakan tipe data integer (bilangan bulat) karena kita berasumsi angka dan pangkat yang dimasukkan bukan bilangan pecahan.
  • hasil := 1;: Inilah kunci dari keberhasilan algoritma pemangkatan. Nilai 1 menjadi pondasi dasar perkalian berantai di dalam blok perulangan berikutnya.
  • for i := 1 to pangkat do: Statement perulangan bernilai positif. Variabel i bertindak sebagai pencatat jumlah putaran (counter). Jika user memasukkan pangkat 5, maka blok begin ... end; di bawahnya akan dijalankan tepat sebanyak 5 kali berturut-turut.
  • hasil := hasil * angka1;: Logika perkalian akumulatif. Sebagai simulasi jika angka1 = 3 dan pangkat = 3, maka putaran yang terjadi adalah:
    • Iterasi 1: hasil = 1 * 3 = 3
    • Iterasi 2: hasil = 3 * 3 = 9
    • Iterasi 3: hasil = 9 * 3 = 27 (Iterasi berhenti)
---

Metode Alternatif: Menggunakan Struktur WHILE..DO

Dalam dunia pemrograman, sebuah masalah pemrograman selalu memiliki lebih dari satu jalan keluar. Selain menggunakan FOR..TO..DO, Anda juga bisa mengimplementasikan pencarian pangkat ini menggunakan struktur perulangan WHILE..DO. Teknik alternatif ini sangat bagus digunakan sebagai materi pembanding atau variasi tugas pemrograman Anda.

program hitung_pangkat_while;
uses crt;

var
    angka1, pangkat, hasil, i: integer;

begin
    clrscr;
    writeln('--- VERSI PERULANGAN WHILE DO ---');
    writeln;
    
    write('Masukkan angka  : '); readln(angka1);
    write('Masukkan pangkat: '); readln(pangkat);
    
    hasil := 1;
    i := 1; { Inisialisasi awal counter untuk perulangan while }
    
    while i <= pangkat do
    begin
        hasil := hasil * angka1;
        i := i + 1; { Increment pencatat putaran agar tidak terjadi infinite loop }
    end;
    
    writeln('Hasilnya adalah : ', hasil);
    readln;
end.
---

Screenshot Hasil Pengujian Program

Untuk menulis dan menguji seluruh kode di atas, saya menggunakan teks editor gratisan yang keren yaitu Sublime Text dan mengompilasinya via terminal menggunakan kompiler legal Free Pascal (FPC). Berikut adalah bukti visual bahwa logika kode program kita berjalan dengan lancar tanpa ada kendala (error-free):

Screenshot program pascal menghitung pangkat matematika dengan looping

Gambar 1: Implementasi File Input/Output (I/O) pada Bahasa Pemrograman Java

---

Kesimpulan & Tantangan Latihan

Mencari nilai hasil pemangkatan menggunakan teknik looping di Pascal tergolong cukup sederhana dan mudah untuk dipahami. Kunci utamanya terletak pada ketelitian Anda saat mendeklarasikan variabel serta penentuan nilai mula-mula dari variabel penampung (hasil := 1).

Sebagai bahan latihan mandiri untuk mempertajam logika pemrograman Anda di rumah, cobalah ubah struktur program di atas menggunakan metode perulangan yang ketiga, yaitu REPEAT..UNTIL. Jika Anda mengalami kesulitan atau kode Anda mengalami error saat mencobanya, jangan ragu untuk menuliskan pertanyaan Anda pada kolom komentar di bawah ini. Selamat belajar dan happy coding!

Diposting oleh GUNAWAN di
Label:
Diposting oleh GUNAWAN • di