Perulangan (Lopping) sederhana dengan Delphi

Archived in the category: Delphi, Pemrograman
Posted by win~ on 07 Nov 08 - 4 Comments

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 comments for “Perulangan (Lopping) sederhana dengan Delphi”

1
bip

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

January 28th, 2009 at 12:45 am
2

[...] permintaan sudara BIP akhirnya saya bisa menyelesaikan perhitungan tabungan bunga bank menggunakan Looping. Dalam kasus [...]

January 28th, 2009 at 9:29 pm
3
ramdhan aprilio

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

December 30th, 2010 at 10:33 am
4
win~

Kira-kira seperti ini
n:=1;

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

January 3rd, 2011 at 5:11 am

Laeave a Reply

*
To prove you're a person (not a spam script), type the security word shown in the picture.
Anti-Spam Image