Kali ini saya akan mengposti tentang pembuatan program perpangkatan akan tetapi menggunakan metode procedure dan function. Contoh Bilangan berpangkat seperti 23 = 2 x 2 x 2 = 8. Untuk pembuatannya mari ikuti langkah-langkah dibawah ini.
1. Buatlah aplikasi pada form seperti di bawah ini.
2. Setelah itu setting object inspector seperti di bawah ini.
3. Untuk peng-kodeannya setiap buttom PANGKAT1, PANGKAT2, PANGKAT3, PANGKAT4 berbeda-beda akan tetapi memiliki tujuan yang sama, yaitu menghitung hasil bilangan berpangkat dan ketika di jalankan-punhasilnya akan sama. Untuk pengetikan listing program : {ket: untuk procedure/function pada button PANGKAT2, PANGKAT3 dan PANGKAT4 ditulis dibawah listing program button PANGKAT1
4. Pada button PANGKAT1, rumus penghitungan hasil bilangan berpangkat menggunakan metode biasa(tanpa procedure/function). double-klik pada tombol pangkat1 lalu tulis scrip di bawah ini.
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;
procedure TForm1.pangkat1(p,l:string);
var
a,b,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i<=a do
begin
c:=c*b;
i:=i+1;
end;
edit3.Text:=inttostr(c);
end;
function TForm1.pangkat2(p,l:string):string;
var
a,b,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i<=a do
begin
c:=c*b;
i:=i+1;
end;
pangkat2:=inttostr(c);
end;
function TForm1.pangkat3(m,n:integer):integer;
var
i:integer;
begin
i:=1;
c:=1;
while i<=n do
begin
c:=c*m;
i:=i+1;
end;
pangkat3:=c;
end;
5. 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;
6. 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;
7. 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;
8. Button CLEAR untuk menghapus. double-klik pada tombol CLEAR
procedure TForm1.btnCLEARClick(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end;
9. Setelah itu pastikan pada unit 1 (tempat menuliskan scrip) pada public sudah di tuliskan seperti pada gambar di bawah ini.
9. Setelah itu jalankan program. Klik run atau f9.
2. Selanjutnya edit object inspector seperti di bawah ini.
3. Setelah itu double klik pada proses dan tulis scrip di bawah ini.
selamat mencoba.
