Program Perulangan Pada Delphi (For to do, Repeat-Until,While do)

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi Antara lain :
1. For To Do

Bentuk Umum : 

For (counter):= (nilai awal) To (nilai akhir) Do
Begin
Perintah;
Perintah;
End; 

Contoh Perulangan For to do 

Setelah muncul jendela project console application, ketikkan script seperti berikut :

 Jalankan program dengan cara klik icon Run/F9 pada keyboard :
Hasil :

2. Perulangan Repeat-Until 

Repeat..Until disini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau program counternya diakhir di akhir.

Setelah muncul jendela project, ketikkan script seperti berikut :

 Jalankan program dengan cara klik icon Run/F9 pada keyboard :
Hasil :

3. Perulangan While do 

While…Do disini batas akhir perulangannya dikondisikan di awal. Setelah itu program akan mengulang perintah-perintah sampai batas yang telah ditentukan diawal tersebut. Pada perulangan ini menggunakan program counter (mis. i :=i + 1).

Setelah muncul jendela project console application, ketikkan script seperti berikut :

  Jalankan program dengan cara klik icon Run/F9 pada keyboard :

Hasil :