» » » Loop atau Perulangan Pada Pascal

Loop atau Perulangan Pada Pascal

Oleh

Loop atau Perulangan Pada Pascal. 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

*-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;.
Ada tiga bentuk perulangan For..Do yaitu:
  1. For..Do PositifFor..Do positif adalah looping dari perhitungan kecil ke perhitungan besar.bentuk umumnya adalah :
    For var_int:=var_int to var_int do   Statement yang diulang;
     untuk lebih jelasnya coba perhatikan contoh dibawah ini
    Uses crt;
    var  i : integer;
         nilai:char;
    begin
         clrscr;
         nilai :='Fahmi Idrus';
         For i:= 1 to 5 do
         writeln(nilai);
    End.
    outputnya :
     
  2. For..Do NegatifFor..Do positif adalah looping dari perhitungan kecil ke perhitungan besar.bentuk umumnya adalah :
    For var_int:=var_int to var_int do   Statement yang diulang;
    untuk lebih jelasnya coba perhatikan contoh dibawah ini
    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.
    outputnya :
  3. For.. do Bersarang
    For..do tersarang yaitu looping yang ada di dalam looping lainnya. Looping yang lebih dalam akan diproses terlebih dahulu hingga habis kemudian looping yanglebih luar bertambah atau berkurang dan memproses kembali looping yang palingdalam. Untuk lebih jelasnya, perhatikan listing code program berikut :
    program looping_tersarang;
    uses wincrt;
    var i,j:integer;
    begin
        for i:= 1 to 2 do
        begin
          for j:=1 to 3 do
          write(i,j,’ ‘);
          writeln;
       end;
    readln:
    end.
    outputnya :


    4.  
*- While..Do
Perulangan while \u2013 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 \u201cBenar\u201d. Terkadang jika salah dalam pembuatan statemen ini, perulangan while \u2013 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 

uses crt;
var    i:integer;
Begin
   clrscr;        
   i:=0;        
   while i < 5 Do      
   begin       
     writeln(i);             
     i:= i+1;       
   end;
readln;
end
Outputnya :
 
 *-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. Dalam pengulangan ini kondisi akan dituliskan di akhir blok. Hal ini tentu menyebabkan pada blok pengulangan jenis ini statemen minimal akan dieksekusi satu kali, walaupun ternyata kondisi yang didefinisikan terpenuhi atau bernilai true. Pengulangan jenis ini pada umumnya digunakan untuk kasus-kasus pengulangan yang tidak bergantung pada kondisi awal.

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





Sekian Untuk artikel kali ini semoga bermanfaat




0 Komentar untuk "Loop atau Perulangan Pada Pascal"

Back To Top