LATIHAN 5 (BILANGAN BERPANGKAT)

Bilangan berpangkat seperti 2³ = 2 x 2 x 2 = 8.
Berdasarkan contoh bilangan berpangkat tersebut, kali ini kita akan membahas pembuatan aplikasi sederhana untuk menghitung hasil dari bilangan berpangkat.

Untuk kriteria form sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	BILANGAN	-
Label2	Label2	PANGKAT	-
Label3	Label3	HASIL	-
Edit1	Edit1	-	{kosongkan}
Edit2	Edit2	-	{kosongkan}
Edit3	Edit3	-	{kosongkan}
Button1	btnCLEAR	CLEAR	-
Button2	btnPANGKAT1	PANGKAT1	-
Button3	btnPANGKAT2	PANGKAT2	-
Button4	btnPANGKAT3	PANGKAT3	-
Button5	btnPANGKAT4	PANGKAT4	-

Setiap button memiliki tujuan yang sama, yaitu menghitung hasil bilangan berpangkat dan ketika di jalankan pun akan menampilkan hasil yang serupa. Hanya saja pada setiap button PANGKAT1, PANGKAT2, PANGKAT3 dan PANGKAT4 menggunakan rumus yang berbeda.

Untuk pengetikan listing program : {ket: untuk procedure/function pada button PANGKAT2, PANGKAT3 dan PANGKAT4 ditulis dibawah listing program button PANGKAT1}

Listing Program

1.       Pada button PANGKAT1, rumus penghitungan hasil bilangan berpangkat menggunakan metode biasa(tanpa procedure/function).

double-klik pada tombol PANGKAT1

procedure TForm1.btnPANGKAT1Click(Sender: TObject);

var

  a,b,i,c:integer;

begin

  i:=1;

  c:=1;

  a:=strtoint(edit2.Text);

  b:=strtoint(edit1.Text);

  while i<=a do

  begin

    c:=c*b;

    i:=i+1;

  end;

  edit3.Text:=inttostr(c);

end;

2.       Pada button PANGKAT2, rumus penghitungan hasil bilangan berpangkat menggunakan procedure dengan tipe data string, dimana variabel yang diinputkan akan dibaca sebagai bentuk string dan kemudian diubah menjadi integer pada saat proses penghitungan dan diubah lagi menjadi bentuk string untuk ditampilkan pada hasil akhir.

double-klik pada tombol PANGKAT2

procedure TForm1.btnPANGKAT2Click(Sender: TObject);

begin

  pangkat1(edit2.Text,edit1.Text);

end;

3.       Pada button PANGKAT3, rumus penghitungan hasil bilangan berpangkat menggunakan function dengan tipe data string, sama dengan PANGKAT2 hanya berbeda pada saat eksekusi pemanggilan program ada perbedaan, jika PANGKAT2 langsung menyebutkan procedurenya namun pada PANGKAT3 seperti berikut.

double-klik pada tombol PANGKAT3

procedure TForm1.btnPANGKAT3Click(Sender: TObject);

begin

  edit3.Text:=pangkat2(edit2.Text,edit1.Text);

end;

4.       Pada button PANGKAT4, rumus penghitungan hasil bilangan berpangkat menggunakan function juga namun dengan tipe data integer, dimana variabel akan dibaca sebagai integer pada saat proses penghitungan(tentunya melalui proses perubahan string to integer terlebih dahulu) dan setelah proses penghitungan akan diubah kembali dalam bentuk string untuk ditampilakan pada hasil akhir.

double-klik pada tombol PANGKAT4

procedure TForm1.btnPANGKAT4Click(Sender: TObject);

var

  a,b,c:integer;

begin

  a:=strtoint(edit1.Text);

  b:=strtoint(edit2.Text);

  c:=pangkat3(a,b);

  edit3.Text:=inttostr(c);

end;

5.       Button CLEAR untuk menghapus.

double-klik pada tombol CLEAR

procedure TForm1.btnCLEARClick(Sender: TObject);

begin

  edit1.Text:='';

  edit2.Text:='';

  edit3.Text:='';

end;

setelah pengetikan listing program, lakukan penyimpanan :

·         Save as : untuk menyimpan editor

·         Save Project As : untuk menyimpan project

Kemudian lakukan pengujian aplikasi dengan menekan tombol fungsi F9. seperti yang telah diungkapkan diatas bahwa pada button PANGKAT1, PANGKAT2, PANGKAT3 dan PANGKAT4 akan menampilkan hasil yang sama seperti pada gambar dibawah.

<contoh program dan script lengkap lihat disini>


{CAUTION!!!}

ð  penyimpanan editor dengan project harus berbeda nama! Misalnya editor = latihan, maka project = latihan1

ð  nama penyimpanan tidak boleh menggunakan kata yang terdapat pada listing program. Seperti procedure, function, public, private dan lain-lain

TUGAS

1.       buatlah program untuk menghitung rumus (A²+B³)/C³ menggunakan procedure/function! ( disini )

2.       dengan menggunakan function, buat program untuk menghitung penjumlahan deret (A+B)/C

- nilai A, B, C adalah hasil penjumlahan deret 1+2+3...sampai nilai A, B, C

- nilai A, B, C minimal 1

contoh :

                jika : A=3; B=5; C=6

                maka : A= 1+2+3                                = 6

                       B= 1+2+3+4+5                            = 15

                       C= 1+2+3+4+5+6                       = 21

                       D= (6+15)/21                               = 1                                                           ( disini )