STRUKTUR PERULANGAN

STRUKTUR PERULANGAN

1. Perulangan For….Do…

         Digunakan untuk perulangan yang telah diketahui berapa kali akan diulang. Perulangan For dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.

    a. Perulangan Positif 

          Adalah perulangan dengan penghitung (counter) dari kecil ke besar atau pertambahannya positif.

Bentuk Umum :

For variabel_kontrol := nilai_awal to nilai_akhir do

Statement ; 

Contoh 1 :

Var 

           I : integer ;

Begin

          For i:= 1 to 5 do

          Write(’Pascal ‘);

Readln

End.  

Contoh 2 :

Uses crt;

var

            i : integer ; 

Begin 

            For i := 1 to 5 do

                    Begin

                             Writeln(‘Pascal’) ;

                             end;

readln

end.

Contoh 3 :

uses crt;

var

        i : integer ;

begin

            for i:= 1 to 5 do

                    begin

                             writeln (i);

                             writeln(‘Pascal’);

                             end;

readln

end.

   b. Perulangan Negatif

adalah perulangan dengan penghitung (counter) dari besar kecil atau pertambahannya negatif.

Bentuk Umum :

For variabel_kontrol := nilai-awal downto nilai_akhir do

statement;

Contoh :

uses crt;

var

             i : integer ;

begin

             for i := 1 to 5 do

            writeln (‘angka ke’, i,”Pascal’);

readln

end. 

    c. Perulangan Tersarang (nested loop)

         adalah perulangan yang berada dalam perulanagan lainnya. perulanagn yang lebih dalam akan diproses terlebih dahulu sampai habis. kemudian perulanagan yang luar baru bertambah, mengerjakan perulanagn yang lebih dalam lagi mulai dari awal dan seterusnya.

Contoh :

uses crt;

var

            i, j : integer ;

begin

           for i := 1 to 5 do

            begin

                 for j := 1 to 5 do

                 write (i:8, j:5);

                 writeln;

                  end;

readln

end.

2. Perulangan While….Do…

           Digunakan untuk melaksanakan blok statemen selama kondisinya benardalam perulangan ini sudah diketahui.

Bentuk Umum :

while ungkapan_logika Do

statemen ;

Contoh:

Uses crt;

Var

            I:integer;

Begin

            I := 0;

            While i < 4 do

            Begin

                      Writeln(‘Belajar’);

                      I := i+1;

                      End;

            Writeln(‘Pascal);

Readln

End.

    a. Perulanagn While-Do Tersarang

       adalah suatu perulangan While-Do yang ada didalam perulangan While _Do yang lain.

Contoh :

uses crt;

var

            i, j : integer ;

begin

           i := 1 ;

           while i < 5 do 

          begin

                j := 1 ;

                while i < 2 do

                begin 

                        writeln (i:5, j:5);

                         j := j + 1 ; 

                        end;

readln

end.

3. Perulangan REPEAT-UNTIL

           Perulangan ini melakukan uji kondisi pada akhir perulangan artinya perulangan dikerjakan terlebih dahulu, kemudian baru diuji. Proses akn diulang sampai suatu kondisi yang diberikan bernilai benar.

Bentuk Umum  :

Repeat

       Statemen ;

       Until ungkapan_logika ;

Contoh:

Uses crt;

Var 

            I:integer;

Begin

            I:=0;

            Repeat

                      I:=i+1;

                      Writeln(i);

            Until I = 5;

Readln

End.

Repeat-Until Tersarang

           adalah suatu perulanagn Repeat-Until yang berada didalam perulangan repeart-Until yang lain.

contoh :

uses crt;

var

            i, j : integer ;

begin

           i := 1 ;

           repeat

                 i := i + 1;

                j := 0;

                repeat 

                             j := j + 1 ;

                             writeln (i:5, j:5);

                       unntil j = 3 ;

                       until j = 3 ;

readln

end.

Iklan