Perulangan/Looping

Komputer memiliki kelebihan tidak akan merasa lelah atau bosan karena mengerjakan pekerjaan yang sama secara berulang-ulang. Perulangan adalah instruksi yang diberikan kepada komputer untuk melakukan suatu task secara berulang-ulang berdasarkan parameter tertentu atau sampai suatu kondisi terpenuhi.

Macam-Macam Bentuk Perulangan

For Do

For Do adalah bentuk perulangan yang menggunakan counter sebagai indikator dijalankan atau dihentikannya sebuah perulangan. Perulangan bentuk ini ada yang menaik, artinya counter dimulai dari angka tertentu dan akan bertambah ketika suatu task selesai dijalankan. Ada juga yang menurun, maksudnya setiap suatu perulangan selesai counter akan berkurang satu.

(* Perulangan Menaik *)
for i:=m to n  do
    statement;
    
(* Perulangan Menurun *)
for i:=m downto n  do
    statement;

Contoh Soal

Buatlah perulangan untuk mencetak teks "Lorem ipsum dolor sit amet." sebanyak sepuluh kali.

program lipsum;
    var
        i:integer;
    begin
        for i:=1 to 10 do
            writeln(i,' : Lorem ipsum dolor sit amet.');
        readln();
    end.

While Do

Perulangan bentuk while do akan menjalankan pernyataan selama suatu kondisi bernilai benar. Pengecekan kondisi akan dilakukan pada awal perulangan.

while (kondisi) do
begin
    statement;
end;

Contoh Soal

Buatlah perulangan yang menampilkan hasil penjumlahan 1 - 10.

program whileLoop;
    var 
        i,j:integer;
    begin
        i := 1;
        while (i <= 10) do
        begin
            write(i,' + ',j,' = ');
            j := j + i;
            write(j);
            writeln();
            inc(i);
        end;
        readln();
    end.

Repeat Until

Repeat until adalah bentuk perulangan yang mirip dengan while loop. Hanya saja bentuk ini melakukan pengecekan kondisi pada akhir perulangan, sehingga bentuk ini setidaknya akan melakukan satu kali perulangan.

repeat 
    statement;
until (kondisi);

Contoh Soal

Buatlah perulangan yang menampilkan bilangan kelipatan dua yang kurang dari 50.

program repeatUntil;
    var 
        i:integer;
    begin
        i := 2;
        repeat 
            writeln(i);
            i := i * 2; 
        until (i >= 50);
        readln();
    end.