Contoh Perulangan For To Do

Dipublikasikan untuk memenuhi tugas Delphi

Nama           : Uyana Adyati

Kelas           : Manajement Informatika A

Nim             :13.MI.077

Semester      : 3

           MAHASISWA  AMIKOM MATARAM

Contoh Perulangan pada Delphi (For To Do) 

     Pada program ini kita akan membuat perulangan for To Do ditambah dengan perhitungan kuadrat.Sebelum memasang listing pada program ini, Kita terlebih dahulu membuat form1  kemudian memasang 3 button, 2 label, 2 edit untuk melalukan input dan satu listbox untuk tempat  outputnya. Berikut ini adalah design dari pemrograman yang akan kita buat :

**Button process berfungsi untuk menjalankan program perulangan for To Do.

Button Clear berfungsi untuk menghapus perulangan yang dilakukan.

Button Exit berfungsi untuk menutup program perulangan.

** warna bias kita ubah dan pilih sendiri dengan megklik formnya kemudian menggantinya di pilihan Object Inspector dengan memilih Color .

** Kemudian  label1 isikan captionnya  menjadi For dan label2 isikan captionnya menjadi To di object inspector di kiri bwah Seperti gambar dibawah ini :

** edit1,edit2 textnya dihapus saja di object inspector untuk memudahkan kita dalam menginputkan  gamabar dibawah ini :

**Jika sudah semua, maka selanjutnya masuk ke tahap pengodingan, disini kita sudah harus mengetahui sintaks-sintaks dalam bahasa pemrograman Delphi 7 agar saat di kompilasi tidak terjadi kesalahan dalam pengodingan. Kita lanjutkan saja ke tahap pengodingan.

  

Terlebih dahulu buatlah variabel yang diperlukan untuk memasukkan nilai:

Listbox1.Clear; berguna untuk menghapus judul/caption yang terdapat pada Memo1 karena dalam Object Inspector, komponen listbox  tidak mempunyai caption.

Listbox1.Items.Add() berguna menampilkan hasil cetakan ke dalam listbox per baris.

Codingan dalam proses/kuadrat :

a := Sqr(C); berarti nilai pada variabel C akan di kalikan lagi dengan nilai yang sama pada variabel C.

Berikut ini adalah pengkodinggannya :

procedure TForm1.ClearClick(Sender: TObject);

begin

listbox1.Clear; //menghapus hasil perulangan//

end;

procedure TForm1.processClick(Sender: TObject);

var

A,B,C:integer;

begin

listbox1.Clear;

B:=strtoint(edit1.Text);

for C:=B to strtoint(edit2.Text)do // melakukan perulangan dari for ke to //

begin

A:=sqr(C);

listbox1.items.Add(inttostr(C)+'  Hasil kuadratnya =  '+inttostr(A));  //memunculkan hasil perulangan//

end;

end;

procedure TForm1.ExitClick(Sender: TObject);

begin

close // menutup program perulangan//

end;

end.

** berikut ini adalah hasil outputnya : 

Sekian dulu ya contoh untuk perulangan for To do nya ,,,,  Sampai jumpa di pembahsan yang lain.

           

                 ^_^ Just For Share