Perulangan Delphi (Program Mencari Pangkat)

I.         Deskripsi Program

       Program dibuat  menggunakan Borland Delphi 7. Program ini dibuat untuk mencari pangkat dua dengan menambahkan batas awal dengan nilai tambah hingga kurang dari sama dengan batas akhir.Ketika pengguna mengklik kembali tombol ok maka kolom pada listbox sebelum dipangkatkan dan sesudah dipangkatkan akan dibersihkan dan diganti dengan nilai yang baru.       

II.      Interface Program

III.   Coding Program

Nama Komponen	Event	Perintah
btnOk btnExit	OnClick OnClick	procedure TForm1.btnOkClick(Sender: TObject); var   awal,akhir,tmbh,t:integer;   f:real; begin   LbAw.Clear;   lbAk.Clear;   tmbh:=strtoint(EdTmbh.Text);   awal:=strtoint(EdAwal.Text);   akhir:=strtoint(EdAkhr.Text);   t:=awal;   while t<=akhir do   begin    f:=t*t;    LbAw.Items.add(inttostr(t));    LbAk.Items.add(floattostr(f));    EdTmbh.SetFocus;    t:=t+tmbh;   end; end; procedure TForm1.btnExitClick(Sender: TObject; var CanClose: Boolean); begin   application.Terminate; end;

IV.   Output

   

4.1     Tampilan awal program

    

4.2     Tampilan hasil ketika data telah lengkap diinputkan

Untuk source code secara lengkap bisa diunduh
Via Mediafire
Via Solidfiles
Via Mirrorcreator