MATERI PERULANGAN PADA PASCAL

BAB II

PEMBAHASAN

    A.  PENGERTIAN PERULANGAN

              Perulangan adalah sebuah perintah yang menjalankan suatu perintah tertentu berulang-ulang sampai suatu kondisi terpenuhi

              Disinilah letak kelebihan komputer dibanding manusia, yaitu mampu melakukan hal yang sama berulang kali tanpa kesalahan akibat bosan atau lelah(asalkan script nya bener aja ini,lau script salah berarti komputer mampu membuat kesalahan .perulangan sering dikenal juga dengan sebutan loop/looping.Bicara tentang Loop atau Perulangan  hampir semua bahasa pemrograman menggunaka looping (Perulangan).ada 3 jenis dari perulangan yaitu, For..Do, Repeat..Until, dan While.. Do. Di artikel kali ini saya membahas tentang bagaimana menggunakan perulangan - perulangan dalam pascal.

     

        1.) For..Do 

               Looping for-do digunakan untuk mengulang statement berulang kali sejumlah yang ditentukan. Bila terdapat lebih dari satu statement yang ada di dalam looping maka menggunakan begin...end;, jika hanya satu blok saja tidak perlu menggunakan begin...end;.

Contoh programnya sebagai berikut :

 Program PanggilNama;

Var

Counter : integer; 

Begin

Writeln(‘Panggil nama saya 3x’);

  For counter := 1 to 3 do

Writeln(‘muhfaisal’);

  Readln; 

  End.

          Ada tiga bentuk perulangan For..Do yaitu:

 For..Do Positif

        For..Do positif adalah looping dari perhitungan kecil ke perhitungan besar.bentuk umumnya adalah :

Contoh programnya sebagai berikut :

Uses crt;
var  i : integer;
  nilai:char;
begin
     clrscr;
     nilai :='Fahmi Idrus';
     For i:= 1 to 5 do
     writeln(nilai);
End.

For..Do Negatif

       For..Do negatif adalah looping dari perhitungan besar ke perhitungan kecil bentuk umumnya adalah :

Contoh Programnya :

             Uses crt;

           var  i : integer;
             nilai:integer;
      begin
          clrscr;
          nilai:=1;
          For i:= 5 to 1 do
       begin
          writeln(nilai);     nilai:=nilai + 1;
          end;
       End.

     

           2.) While...Do

               Perulangan while...do adalah perulangan bersyarat yang paling umum digunakan. Perintah ini akan terlebih dahulu memeriksa kebenaran nilai yang diujikan, kemudian menjalankan dan mengulang perintah selama hasil pengujian nilai bernilai. Terkadang jika salah dalam pembuatan statemen ini, perulangan while…do dapat mengakibatkan perulangan yang tidak dapat berhenti atau dapat dikenal dengan istilah infinite loop, hal ini dapat mengakibatkan terkurasnya ruang memory yang kosong. untuk lebih jelasnya perhatikan listing dibawah ini .
        
          Contoh Programnya :

         uses crt;
         var    i:integer;
          Begin
                 clrscr;     
                 i:=0;     
                 while i < 5 Do   
              begin    
        writeln(i);          
        i:= i+1;    
             end;
       readln;
       end.

         3.) Repeat...Until

                       Blok pengulangan jenis ini sebenarnya mirip dengan blok pengulangan while          perbedaannya hanya pada jenis ini pengulangan akan terus dilakukan apabila kondisi          yang didefinisikan masih bernilai false. Jadi dengan kata lain pengulangan hanya akan          dihentikan apabila kondisi bernilai true.                       

      Bentuk umum pendeklarasiannya:

       program statement repeat1;

uses wincrt;
var
    i:integer;
begin
    clrscr;
    i:=1;
    repeat
      writeln(‘Bahasa Pemograman Pascal’);
      i:=i+1;
   until (i>5);
readln;
        end.