perulangan delphi

Perulangan Delphi adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi antara lain:

-       For…to…do

-       For…downto…do

-       Repeat…until

-       While…do

Pada pertemuan ke-6 ini saya ingin membuat program dengan perulangan for to do, repeat until, while do dengan hasil output sebagai berikut:

       Untuk membuat program dengan hasil output seperti gambar diatas langkah-langkah yang dapat dilakukan yaitu:

1.    Pertama ketika masuk ke program Delphi kita akan disambut tampilan form 1. Kita membutuhkan menu label, edit, button dan memo. Label untuk judul, awal dan akhir. Button untuk for to do, repeat until, while do dan memo untuk hasil. Seperti gambar berikut:

    Jika ingin memberikan sentuhan warna pada form kita dapat melakukanya dengan melihat pada properties, lalu pilih menu color dan pada menu color pilih warna yang kita inginkan seperti berikut ini:

  

3.    Lalu double klik pada button for to do dan ketikkan listing programnya. For to do yaitu untuk menampilkan dari yang kecil ke besar. Berikut codingannya:

  Ket:

“Var x,y,z:integer;” berarti menjelaskan bahwa x, y, dan z bertipe data integer. Lalu pada begin tersebut menjelaskan bahwa x dan y berada pada menu edit1 dan edit 2 masing-masing. “for z:=x to y do” menjelaskan bahwa perulangan untuk nilai awal yaitu x sampai nilai akhir yaitu y. “if z mod 2=1 then” menjelaskan bahwa jika nilai z dibagi 2=1 maka pada memo akan tercetak 1 sebagai bilangan ganjil dan “else” berarti selain mencetak ganjil juga akan mencetak angka selain 1 sebagai bilangan genap.        

Outputnya adalah:

4.    Klik double pada button repeat until. Pada repeat until ini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau program counternya diakhir. Berikut listing programnya:                             ket:

 

“var i:double;” menjelaskan bahwa i bertipe data double. Lalu setelah begin kita menghapus isi dari memo1 tersebut agar tidak terjadi penumpukkan. Awalnya i=0 lalu agar terjadi perulangan angka dari 1 sampe 20 (bebas/sesuai permintaan tugas yang diberikan) setelah “repeat” kita ketikkan i:=i+1 itu menjelaskan bahwa nilai i akan terus bertambah dan pertambahannya tersebut yaitu hanya naik 1 angka karna +1. Until i=20 menjelaskan bahwa nilai i akan berhenti sampai diangka 20.

Outputnya adalah:

5.    Double klik pada while do. Pada while do ini saya akan membuat angka yang ganjil dipangkatkan 3 dan angka yang genap dipangkatkan 2. Berikut listing programnya:

Ket:

Var x:integer menjelaskan bahwa x bertipe data integer. Lalu memo diclear agar tidak terjadi looping. If x mod 2=1 memo1.lines.add(inttostr(x*x*x) menjelaskan bahwa jika x dibagi 2 sisa satu maka x yang berangka ganjil akan dipangkatkan 3. Else memo1.lines.add(inttostr(x*x) menjelaskan jika x bukan angka ganjil maka angkat dipangkatkan 2. X:=x+1 menjelaskan bahwa x akan bertambah sampai pada angka yang kita masukkan.

Outputnya: