Delphi : Pembagian Pangkat

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Pembagian Pangkat Sederhana dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

procedure TForm1.btnprosesClick(Sender: TObject);

var
a2,b3,c3,a,b,c:integer;
begin
a:=strtoint(txta.text);
b:=strtoint(txtb.text);
c:=strtoint(txtc.text);
a2:=DERET(a,2);
b3:=DERET(b,3);
c3:=DERET(c,3);

d:=(a2+b3)/c3;
txtd.text:=floattostr(d);
end;

5. Tambahkan Script dibawah ini di atas btnproses :

function DERET(m,n:integer):integer;
      end;

var
  Form1:TForm1;
  hasil:integer;
  d:real;

implementation

{$R *.dfm}
 function tform1.DERET(m,n:integer):integer;
 var
 a,b,i:integer;
 begin
 i:=1;
 hasil:=1;
 while i<=n do
 begin
 hasil:=hasil*m;
 i:=i+1;
 end;
 DERET:=hasil;
end;

6. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

7. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba

Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung