Program Perulangan pada Delphi

Buatlah form seperti diatas dengan ketentuan :

Form/Control	Properties	Setting
Group Box	Caption	Perulangan Box
	Name	perulangan_box
Label	Caption	Angka Awal
Label	Caption	Banyak Perulangan
Edit	Name	input_perulangan
	Text	Kosongkan
Edit	Name	ulang_ perulangan
	Text	Kosongkan
Memo	Name	Memo1
Button	Caption	While-Do
	Name	btn_while
Button	Caption	Repeat-Until
	Name	btn_repeat
Button	Caption	For-Do
	Name	btn_for_do
Button	Caption	For_DownTo
	Name	btn_dwnto

Pada bagian button While-Do, klik 2x kemudian buat koding seperti dibawah ini:

procedure TForm1.btn_whileClick(Sender: TObject);

var

E, F : Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

F:=1;

while F <> StrToInt(ulang_perulangan.Text) do

begin

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

E:= E+1;

F:= F+1;

end;

end;

Di bagian button Repeat-Until, klik 2x kemudian buat koding seperti dibawah ini:

procedure TForm1.btn_repeatClick(Sender: TObject);

var

E, F : Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

F:=1;

repeat

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

F:= F+1;

E:= E+1;

until F = StrToInt(ulang_perulangan.Text)

end;

Pada bagian button For-Do, klik 2x kemudian buat koding jadi seperti dibawah ini:

procedure TForm1.btn_for_doClick(Sender: TObject);

var

E, F : Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

for F := 1 to StrToInt(ulang_perulangan.Text) do

begin

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

E:= E+1;

end;

end;

Pada bagian button For_DownTo, klik 2x kemudian buat koding seperti dibawah ini:

procedure TForm1.btn_dwntoClick(Sender: TObject);

var

E,F: Integer;

begin

memo1.clear;

E:= StrToInt (input_perulangan.Text);

F:= 1;

for E:= E downto (StrToInt(input_perulangan.Text)-StrToInt(ulang_perulangan.Text)+1) do

begin

Memo1.Lines.Add(‘Perulangan ke-’+IntToStr(F)+’ = ‘+IntToStr(E));

F:=F+1;

end;

end;

Sumber :

• Wordpress

Alfi R ☺

Perulangan Pada Delphi

Perulangan

Kadang-kadang kita menjalankan sekumpulan pernyataan berulang-ulang sampai pada suatu kondisi tertentu. Untuk kepentingan tersebut, digunakanlah While…Do, Repeat Until, For…Do. Untuk jelasnya perhatikan beberapa ulasan tentang pernyataan perulangan berikut.

While… Do

Bertugas untuk mengulang satu peryataan atau suatu blok pernyataan atau selama (while) suatu kondisi (syarat) bernilai true, penulisannya adalah sebagai berikut:

While <kondisi> do <pernyataan>;

Procedure alur perulangan diatas adalah sebagai berikut:

Program akan menguji nilai <kondisi>. Jika <kondisi> bernilai false, maka <pernyataan> tidak dilaksanakan dan program menghentikan pengulangan, kemudian menjalankan baris berikutnya. Jika <kondisi> berniai treu, maka pernyataan akan dilaksanakan satu kali. Kembali ke procedure I. Program menghentikan perulangan dan menjalankan baris berikutnya.

Pada dasarnya perulangan akan berhenti setelah <kondisi> bernilai false. Tetapi anda juga dapat mengunakan pernyataan break untuk memaksa program keluar dari pengulangan dan melanjutkan ke baris program yang terletak di bawah perintah pengulangan.

Repeat – Until

Perulangan Repeat – Until hampir sama dengan While – do, perbedaannya hanyalah letak pengecekan kondisi. Jika pada while – do berada pada awal blok pernyataan yang harus diulang, maka pada repeat – until kondisi dicek pada akhir blok pernyataan yang harus diulang.

Perbedaan lainnya adalah pernyataan while – do mengulang pernyataan selama kondisi masih terpenuhi, tetapi pernyataan repeat – until hanya akan mengulang pernyataan selama kondisi belum terpenuhi. Bentuk umumnya:

Repeat

<pernyataan>;

…..

Until <kondisi>;

For – to – do

Merupakan perintah pengulangan yang paling sederhana diantara perintah pengulangan lain yang disediakan Delphi. Perintah for – to – do digunakan untuk melaksanakan perulangan satu pernyataan atau satu blok program beberapa kali yang ditentukan oleh nilai awal dan akhir. Dengan kata lain, jumlah pengulangan yang akan dikerjakan sudah diketahui.

Bentuk Umumnya:

For <pencacah> := <awal> to <akhir> do <peryataan>;

atau

For <pencacah> := <awal> downto <akhir> do <peryataan>;

<Pencacah> adalah variabel bertipe integer dan nilai <pencacah> tidak boleh diubah dalam blok <pernyataan>. Bentuk yang pertama digunakan bila perulangan dilakukan dari nilai awal yang kecil ke yang besar (bertambah), namun bentuk yang kedua digunakan untuk perulangan yang nilai awalnya besar dan akhirnya kecil (berkurang).

Contoh program dengan For – to – do:

Var

I, J, A, B := Integer;

Begin

for I:= 0 to 10 do

A:=A+5;

end for;

J:=10;

for J:= 10 to 0 do

B:=B-1;

End;

Sumber :

• Wordpress

Alfi R ☺