Sabtu, 17 Januari 2015

PERULANGAN (LOOPING) FOR

PERULANGAN (LOOPING)

     Perulangan (looping) merupakan bentuk yang sering ditemui dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan statemen For, While-Do danRepeat….Until. Struktur Perulangan Perulangan dengan statemen For digunakan untuk mengulang statemen atau satu blok statemen berulang kali sejumlah yang ditentukan. 


Bila statemen lebih dari satu perintah, maka blok perintah-perintah tersebut harus diawali dengan begin dan diakhiri dengan end. Perulangan for dapat berbentuk perulangan positif, negatif dan tersarang.

1. Perulangan Positif
    Merupakan perulangan dengan penghitung (counter) dari kecil ke besar. Bentuk umum pernyataan for positif adalah sebagai berikut.

     for pencacah := nilai_awal to nilai_akhir do
     begin
    (pernyataan yang akan di ulang)
     end.
Nilai awal dan nilai akhir harus mempunyai tipe yang sama, yaitu bertipe integer.

Contoh 1 :

        Program Perulangan_For_Positif;
        Uses crt;
        Var i : byte;
        Begin
        For i := 1 To 5 Do
        Writeln ('Belajar Pemrograman');
        Readln;
        End.

        Hasilnya :
          Belajar Pemrogrman
          Belajar Pemrogrman
          Belajar Pemrogrman
          Belajar Pemrogrman
          Belajar Pemrogrman

Contoh 2 :
     
        Program Perulangan_For_Positif;
        uses crt;
        Var i : byte;
        Begin
        For i := 1 To 5 Do
        Begin
        Write ('No ');
        Writeln (i);
        End;
        Readln;

        End.

        Hasilnya :
          No 1
          No 2
          No 3
          No 4
          No 5


2.  Perulangan Negatif
     Merupakan perulangan dengan penghitung (counter) dari besar ke kecil. Pendeklarasian perulangan ini adalah sebagai berikut :

     for pencacah := nilai_awal downto nilai_akhir do
     begin
    (pernyataan yang akan di ulang)
     end.

Contoh 1 :
        Program Perulangan_For_Negatif;
        Begin
        For i := 5 DownTo 1 Do
        Begin
        Write ('No ');
        Writeln (i);
        End;

        Readln;

        Hasilnya :
          No 5 
          No 4
          No 3
          No 2
          No 1


3. Perulangan Tersarang (Nested Loop)
   Merupakan perulangan yang berada di dalam perulangan yang lainnnya. Pada sistem perulangan ini, perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, kemudian mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya, dan seterusnya. Berikut contoh sederhana mengenai for bersarang

    for x := 1 to 3 do
         for y := 1 to 2 do
              writeln (x,' ', y);

Penjelasannya:
for yang luar (dengan pencacah variabel x) akan menjalankan for yang dalam (dengan pencacah y) akan dituliskan nilai x dan y. Berikut ini adalah keluaran dari program di atas 

     1 1
     1 2
     2 1
     2 2
     3 1
     3 2  

Pada saat x benilai 1, y diulang sebanyak 2 kali. jadi pada layar akan tertulis 1 1 dan 1 2. demikian juga pada saat x bernilai 2 y diulang sebanyak 2 kali. Jadi pada layar akan tertulis 2 1 dan 2 2. Hal yang sama terjadi pada saat x bernilai 3, y diulang sebanyak 2 kali. Sehingga pada layar tertulis 3 1 dan 3 2

0 komentar:

Posting Komentar