Delphi 7

Latihan 5 mencoba membuat program pangkat 1, 2, 3, dan 4

berikut langkah-langkah programnya.

buat interface seperti gambar disamping
lalu klik 2 kali pada button 'PANGKAT 1'
kemudian akan muncul lembar Listing program dan tulis perintah program seperti gambar dibawah ini.

Listing 1

Listing 2

Listing 3

Listing 4

Listing 5

Saat klik 2kali pada BUTTON1 ;
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;

Saat klik 2kali pada BUTTON2 ;
procedure TForm1.btnPANGKAT2Click(Sender: TObject);
begin
  pangkat1(edit2.Text,edit1.Text);
end;

Saat klik 2kali pada BUTTON3 ;
procedure TForm1.btnPANGKAT3Click(Sender: TObject);
begin
  edit3.Text:=pangkat2(edit2.Text,edit1.Text);
end;

Saat klik 2kali pada BUTTON4 ;
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;  

Saat klik 2kali pada BUTTON CLEAR ;
procedure TForm1.btnCLEARClick(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
end;      

Setelah selesai menulis perintah-perintah seperti gambar Listing 1 s.d 5 lalu lakukan running program dengan menekan "F9" pada keyboard. berikut adalah hasil running programnya.

hasil running program

           Pada gambar 1 adalah tampilan awal yang masih kosong, gambar 2 pada kotak 'bilangan' diisi angka 4, gambar 3 pada kotak 'pangkat' diisi angka 3, gambar 4 button 'pangkat 3' di tekan dan kotak 'hasil' menghasilkan angka 64, gambar 5 adalah button 'hapus' dan semua angka menjadi terhapus.


Gambar disamping menunjukkan fungsi tombol pangkat 1, 2, 3, dan 4.
gambar 1 menunjukkan saat memproses angka dengan tombol 'PANGKAT1' dan menghasilkan keluaran 64
gambar 2 menunjukkan saat memproses angka dengan tombol 'PANGKAT2' dan menghasilkan keluaran 64
gambar 3 menunjukkan saat memproses angka dengan tombol 'PANGKAT3' dan menghasilkan keluaran 64
gambar 4 menunjukkan saat memproses angka dengan tombol 'PANGKAT4' dan menghasilkan keluaran 64
ini menunjukkan button memiliki fungsi yang sama tetapi setiap tombol memiliki rumus yang berbeda