Perulangan (Looping)

PERULANGAN (LOOPING)

            Perulangan digunakan untuk menjalankan satu atau beberapa pernyataan sebanyak beberapa kali. Dengan kata lain, perulangan memungkinkan kita untuk menjalankan beberapa pernyataan hanya degan menuliskan pernyataan tersebut satu kali saja.

Pernyataan dalam perulangan antara lain :

a.       Pernyataan for

Pernyataan pengulangan yang paling sering digunakan adalah for. Pernyataan ini digunakan jika kita telah mengetahui berapa kali kita akan mengulang satu atau beberapa pernyataan. Bentuk umum pernyataan for adalah sbg berikut:

For pencacah := nilai_awal to nilai_akhir do

Begin

(penyataan yang akan di ulang);

End;

b.      Pernyataan for tersarang

For tersarang adalah pernyataan for yang bisa dtuliskan dalam for atau bisa di bilang “for dalam for”.

Seperti:

For (x) := 1 to 3 do

For (y) := 1 to 2 do

            Writeln (x, ‘... ‘,y);

Maka, keluaran dari program di atas yakni:

11

12

21

22

31

32

c.       Pernyataan while-do

WHILE-DO digunakan untuk melakukan proses perulangan suatu blok statement selama kondisi pada WHILE bernilai BENAR. Bentuk Perintah:

   While do
   Begin

       pernyataan;

       inc(x);

  End;

d.      Pernyataan while-do tersarang

while-do tersarang merupakan perulangan while-do yang satu di dalam perulangan while-do yang lain.

e.       Repeat-until

Pernyataan perulangan ini hampir sama dengan pernyataan pengulangan while, dan biasanya digunakan bila jumlah belum dapat ditentukan pada saat program ditulis. Perbedaan pernyataan reeat... until dan while terletak pada pengecekkan kondisi.

  Jika pada pernyataan while, kondisi di cek pada awal kalang, sedangkan pada pernyataan repeat..until, kondisi di cek pada akhr kalang.

Perbedaan yang lain, bila pernyataan selama kondisi masih terpenuhi, sedangkan pernyataan repeat ..until mengulang pernyataan selama kondisi belum terpenuhi. Bentuk umum pernyataan repeat..until adalah sebagai berikut

repeat
(pernyataan - pernyataan yang akan di ulang)
until kondisi 

f.       Repeat-until tersarang

Repeat until bersarang adalah suatu perulangan repeat..until yang satu berada di dalam perulangan repeat unti yang lainnya.

contoh

uses crt;
var
  a,b,c : real;
  begin
  clrscr;
  writeln('================================');
  writeln(' sisi a     sisi b      sisi c  ');
  writeln('================================');
  a := 1;
  repeat
  b := 0;
    repeat
     c := sqrt (a * a + b * b);
     writeln (a:6:2, b:11:2, c:12:2);
     b := b + 5;
     until b > 25;
       a := a+1;
       until a > 3;
 writeln('=================================');
 readln;

 end.