July 13, 2024

Menghitung Pangkat Bilangan Integer Menggunakan Delphi Console

2 min read

Salam Super ya PalComster…. Haayyoo siapa yang pernah coba-coba mentransformasikan berhitung pangkat bilangan integer dalam bentuk kode program di Delphi Console ???Khusus nih buat yang lagi belajar mata kuliah Algoritma dan Pemprograman. Balik ke jaman sekolah dulu, adek-adek semua pasti pernah coba menghitung hasil perpangkatan bilangan kan? Nah sekarang kita bisa transformasikan cara berhitung manual itu kedalam bentuk kode program di Delphi Console sehingga kita bisa langsung mengetahui berapa hasil perpangkatan bilangan hanya dengan mengeksekusi aplikasinya. Sebelumnya perhatikan dulu narasi berhitungnya sebagai berikut :

Misalkan kita diberikan angka 2 yang akan dipangkatkan 3, berapa hasilnya ?

Cara menghitungnya :

23 = 2 x 2 x 2

23 = 8

Perhitungan manual di atas dapat ditransformasikan kedalam aplikasi sederhana menggunakan Delphi Console. Adapun Algoritma yang dapat digunakan untuk menghitung perpangkatan bilangan integer adalah sebagai berikut :

Langkah 1

Siapkan variabel untuk menyimpan bilangan integer utama (bilangan), bilangan pangkat untuk bilangan integer utamanya (pangkat), serta variabel untuk menyimpan hasil berhitungnya (hasil).

Langkah 2

Lakukan input data kedalam variabel  bilangan dan pangkat, kemudian inisialisasikan nilai awal untuk hasil perhitungan perpangkatan bilangan = 1.

Langkah 3

Periksa, jika data pada variabel pangkat = 0 (nol), maka hasil perpangkatan bilangan adalah 1. Jika tidak, maka lanjutkan pada langkah berikutnya (langkah 5).

Langkah 4

Periksa, jika data pada variabel pangkat bukan 0 (nol), maka :

Lakukan perulangan sebanyak nilai variabel pangkat menggunakan variabel Looping Counter untuk menghitung perkalian antara bilangan integer utama (bilangan) dengan nilai awal hasil perpangkatan, perhatikan rumus berikut :

Hasil := Hasil * Bil

Langkah 6

Cetak hasil perhitungannya setelah perulangan selesai dilakukan.

It’s so simple….. gimana??? Dah dibaca algoritmanya ??? Masih bingung bikin kode programnya??? Oke deh.. kalau masih bingung coba buka aplikasi Delphi Console dan salinlah kode program di bawah ini :

[sourcecode]

Program pangkat_integer;

{$APPTYPE CONSOLE}

Uses
SysUtils;

Var

bilangan, pangkat, hasil, counter : integer;

Begin

writeln(‘Menghitung Nilai Pangkat Bilangan’);

writeln(‘Created by : febrish77@gmail.com’);

writeln(‘===================================’);

writeln;

{input data bilangan yg akan dihitung}

write(‘Bilangan = ‘); readln(bilangan);

write(‘Pangkat  = ‘); readln(pangkat);

{inisialisasi nilai awal hasil perpangkatan}

hasil := 1;

{periksa nilai pangkat dan hitung hasilnya}

Case pangkat Of

0 : Begin

hasil:= hasil;

{jika bilangan dipangkatkan dengan 0 (nol) maka hasilnya = 1 ( nilai awal variabel “hasil”)}

End;
Else

Begin

For counter := 1 To pangkat Do

hasil := hasil*bilangan;

end;

end;

writeln;

writeln(bilangan,  ‘ dipangkatkan ‘  ,pangkat,  ‘  =  ‘  ,hasil);

writeln;

writeln(‘===================================’);

writeln;

writeln(‘                                                  Terima Kasih….’);

readln;

End.

[/sourcecode]

Dan ini adalah hasil eksekusi aplikasinya :

console1

Selamat mencoba yaa…. sampai jumpa lagi di tutorial selanjutnya. 🙂

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.