a.
Perulangan For – To - DoPerulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu
proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai
terkecil ke besar.
Bentuk Umum :
For variabel := nilai awal to nilaiakhir statement
Catatan : semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data
sama. Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit 1 dengan hasil
sebagai berikut =
Perulangan
For – DownTo-DoPerulangan For-Dowbto-Do adalah perulangan yang mengihutng suatu proses dengan nilai awal
besar dan nilai akhinya lebih kecil, maka variabel sebagai control program yang diperoleh
adalah dari besar ke kecil.
Bentuk Umum :
For Variabel := nilai-awal Downto Nilai-akhir Do Pernyataan
b.
Perulangan While DoPerulangan While Do adalah statement perulangan akan terus melakukan suatu proses selama
kondisi/syarat yang ditentukan bernilai benar.
Bentuk Umum
Statement While – Variabel Syarat – Do Pernyataan
c.
Perulangan Repeat UntilPerulangan repeat until digunakan untuk mengulang suatu kondisi sampai (until) kondisi
bernilai salah.
Bentuk Umum :
Repeat - Statement/penyataan — Until - - - ungkapan logika
CONTOH PROGRAM
procedure Tform1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 1 to 7 do
edit1.SelText := inttostr(i);
end; end.
Dan hasilnya sebagai berikut :
Percobaan 2
Buatlah proyek baru tambahkan 1 label, 1 button dan 1 edit pada sebuah form seperti
tampilan berikut ini :
procedure Tform1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 7 downto 1 do
edit1.SelText := inttostr(i);
end;
Percobaan 3
Buatlah proyek baru tambahkan 1 label, 1 button dan 1 edit pada sebuah form seperti
tampilan berikut ini :
procedure Tform1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i < 7 do
begin
edit1.selText := inttostr(i);
i := i + 1;
end;
end;
Percobaan 4
Buatlah proyek baru tambahkan 1 label, 1 button dan 1 edit pada sebuah form seperti
tampilan berikut ini :
procedure Tform1.Button1Click(Sender: TObject);
var
i : integer;
begin
i := 1;
repeat
i := i + 2;
edit1.selText := inttostr(i);
until i = 15;
end;
ADS HERE !!!