Perulangan Batas Tertentu dengan FOR

Fungsi perulangan sering digunakan untuk menggandakan eksekusi baris program  dalam batas tertentu. Sintaknya adalah sebagai berikut:

for variabel := angka1 to Batas do begin
   {isi program}
end;

variabel harus bertipe integer atau word dan diisi dari nilai angka1 sampai Batas. Jika program hanya berisi satu baris perintah saja, Anda tidak harus menggunakan begin end.

for i:= 1 to 3 do writeln('Saya ganteng');

Namun jika lebih dari satu baris perintah,  blok kode program harus diapit oleh begin end. Contoh program dibawah ini akan mencetak kode ASCII dari 1 s.d. 6:

program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i : word; begin try Writeln('Mencetak Kode ASCII 1 s.d. 6'); for i := 1 to 6 do begin if i <> 6 then write(Char(i) + ', ' ) else write(Char(i)) end; readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; end.

 Perulangan For tidak hanya maju. Kita juga dapat menggunakannya untuk hitungan mundur. Pada program dibawah ini, saya akan membalik string dengan bantuan hitungan mundur dengan mengganti kata to menjadi downto.

Nama := 'Yohanes Octa'; balik := EmptyStr; for i := length(nama) downto 1 do begin balik := balik + copy(nama,i,1); end; writeln(balik);

Fungsi perulangan tidak hanya FOR di Delphi. Kekurangan dari FOR, batas keluar dari perulangan selalu angka dan harus integer. Sementara, terkadang kita bisa memakai boolean atau lainnya. Batas FOR juga harus diberitahukan secara tertentu, sedangkan kita terkadang membutuhkan batas yang ditentukan kemudian.

Perulangan Batas Tertentu dengan FOR 2018-12-06T15:02:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer