Perulangan (Lopping) sederhana dengan Delphi

Ada pertanyaan yg dilontarkan kepada saya, “Pak bagaimana menjumlahkan isian dalam Tlistbox?”

Jawabnya adalah dengan menggunakan Looping(perulangan). Dalam dunia perulangan yg paling dikenal adalah dengan menggunakan for atau while (hampir disetiap bahasa pemrograman ada perulangan ini), bagaimana perbedaannya, kita lihat yuks…

For

Pada delphi perulangan ini mempunyai skema seperti di bawah ini


1:

2:

3:

4:

for  initVar= initValue to endValue do

begin

//statement yg ingin diulang

end;

Penerapannya misal ingin menjumlahkan dari 5 baris entrian(dalam Tlistbox dgn nama listbox1)
100
200
300
400
500

Dapat dijumlahkan dengan code perulangan


1:
2:
3:
4:
5:
6:
7:

var ahasil,i:integer;
begin
  ahasil:=0;
  for i :=0  to ListBox1.Items.Count-1  do
  begin
   ahasil:=Ahasil+StrToInt(ListBox1.Items[i]);
  end;

While

Sintak penulisan while hampir sama, namun increment nya dapat kita ubah, misal loncat 1 atau loncat 2


1:

2:
3:

4:

5:

6:

initVar=xx;

while initVar<=endValue do
  begin

statement

increment statement

end;

Bagaimana jika kasus diatas di transform ke while dapat dikodekan seperti di bawah ini


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

// deklarasikan dahulu variabel i dan ahasil sebagai integer
var ahasil, i:integer;
begin
 // memberikan initial value (nilai awal)
  i:=0;
  // melakukan perulangan sampai batas nilai akhir
  while i<=ListBox1.Items.Count-1 do
  begin
  //statement
    ahasil:=Ahasil+StrToInt(ListBox1.Items[i]);
  // increment (menaikkan 1 angka) script ini juga bisa diganti mjd i:=i+1
  inc(i);
  end;
  // menampilkan hasil dalam pesan
   showmessage(IntToStr(ahasil));

4 Responses to “Perulangan (Lopping) sederhana dengan Delphi

  • saya butuh bantuan bagaimana membuat perhitungan deposito bunga berbunga dengan prosedur pemograman repeat..until pada delphi7.0
    terima kasih sebelumnya

  • ramdhan aprilio
    6 years ago

    mas apabila saya ingin melakukan perhitungan pangkat dengan ketentuan: 5 akan dipangkat 2……apabila hasil dari perhitungan tersebut kurang dari 1000 maka program secara otomatis akan melakukan perhitungan dengan 5 pangkat 3 dan seterusnya sampai nilai akhir mencapai/mendekati 1000….

    mohon bantuanya…
    terimakasih

    salam ramdhan

  • Kira-kira seperti ini
    n:=1;

    while hasil<1000 do
    begin
    hasil:=Power(5, n);
    inc (n);
    end;

Trackbacks & Pings

Leave a Reply

Your email address will not be published. Required fields are marked *


*

Skip to toolbar