Looping pada Pascal

Pada bahasa pemrograman pascal, setidaknya terdapat 3 fungsi yang dapat digunakan untuk looping, yaitu : FOR, WHILE dan REPEAT UNTIL.

For-To-Do :

• Langsung merupakan perulangan langsung. Program akan langsung mencetak    sesuai dengan kondisi yang telah ditetapkan.
• Diletakkan pada main program.

Repeat-Until :

• Terdapat harga awal.
•  Terdapat counter.
• Repeat digunakan untuk mengawali program perulangan.
• Until digunakan sebagai kondisi yang letaknya di bawah.
• Tidak menggunakan blok statemen begin dan end, karena repeat-until digunakan sebagai pengganti begin dan end.

While-Do :

• Terdapat harga awal.
•  Terdapat operator pembanding (<,>,=,dll).
• Terdapat counter.
• Menggunakan blok satatemen baru yaitu begin dan end untuk membuat program proses perulangan.

Berikut merupakan contoh program looping menggunakan FOR, WHILE dan REPEAT UNTIL pada Pascal.

uses wincrt;

var i : integer;

begin

     writeln('Loop Menggunakan FOR');

     for i := 1 to 5 do

         begin

              writeln('Hell-o');

              writeln('this is Loop ' ,i);

         end;

     writeln('');

     writeln('loop menggunakan repeat');

     writeln('');

     i :=0;

     repeat

           i := i +1;

             writeln('Hello');

             writeln('this is Loop ' ,i);

     until i = 5; 

     i :=0;

     writeln('');

     writeln('Loop Menggunakan While');

     writeln('');

     while (i < 5) do

     begin

          i := i +1

             writeln('Hello');

             writeln('this is Loop ' ,i);

     end;

end.

Dari contoh di atas kalian bisa mengetahui perbedaan looping menggunakan FOR, WHILE dan REPEAT UNTIL pada pascal.