Mengenal Looping For To Do

Dalambahasapemrogramanapapunpastidikenalsuatumekanisme looping atauperulangan.Looping disinisangatbergunasekaliuntukmengontroljalannya program, terutamajikaadaaktivitas yang berulang-ulangdanbahkanadasuatukondisitertentu di dalam looping tersebut. Nah disinikitaakanmembahastentang looping For To Do pada Borland Delphi.

Konstruksi for di gunakanuntukmenghasilkanpengulangansejumlah kali yang telah di spesifikasikan.Jumlahpengulanngan di ketahuiatausebelumeksekusi.Untukmencacahsudahberapa kali pengulangandilakukan, kitamemerluksnsebuahpeubah (variable) pencacah (counter).

Bentukumum For To Do

For pencacahnilai_awaltonilai_akhirdo

Pernyataan

Endfor.

Looping for bisadigunakanuntukbeberapajenis proses pengulanganyaitujenispengulangan integer, pengulangan character danpengulangan enumeration.

Contoh program:

Design Form

Codingnya :

– Pengulanganpadajenisvariabel integer
var
i : integer;
begin
for i:= 1 to 5 do
showmessage (‘nilai i =’ + inttostr(i));
end;
ketika di-runmakaakanmunculsepertigambardibawahini:
nilai i = 1
nilai i = 2
nilai i = 3
nilai i = 4
nilai i = 5

Pengulanganpadajenis variable character

Design form:

Codingnya :

var
i : char;
begin
for i:= ‘a’ to ‘e’ do
showmessage(‘nilai i =’ + i);
end;
ketika di-runmakaakanmungculsepertigambardibawahini

 

 nilai i = a
nilai i = b
nilai i = c
nilai i = d
nilai i = e

PengulanganPadaJenis Variable Enumeration

Pada enumeration akandiberikannomorurut (ordinal type) padamasing – masingisidarikotasaatpendeklarasiannyapadabagian var. Nomorurutdimulaidari 0 sampai 4. Nomorurutsurabayaadalah 0,nomorurutdarijakartaadalah 1 danseterusnya. Karena looping dimulaidaribandung yang bernomorurut 2 makaketikadirun yang pertama kali munculadalahkota i = 2.

Contoh program

Design Form

Codingnya:

 var

kota: (surabaya,jakarta,bandung,jogja,sidoarjo);
begin
for kota:= bandung to sidoarjo do
showmessage(‘kota i =’ + inttostr(ord(kota)));
end;
ketika di-runakanmuncul:

 

 kota i = 2
kota i = 3
kota i = 4