Perulangan Pada Pascal

PENGERTIAN PERULANGAN

Perulangan adalah sebuah perintah yang menjalankan suatu perintah tertentu berulang-ulang sampai suatu kondisi terpenuhi. perulangan terbagi menjadi tiga bagian yakni for, repeat, while-do.


1. PERNYATAAN FOR

digunakan untuk menghasilkan pengualngan sejumlah kali yang telah ispesifikasikan.jumlah pengualngan diketahui atau dapat ditentukan sebelum di eksekusi.

Contoh Program :

program for_a;

var awal, akhir:integer;

begin

     writeln(' masukkan jumlah perhitungan : ');readln(akhir);

     for awal:=1 to akhir do

         begin

           writeln(' Urutan ke - ',awal);

           end;

         readln;

end.

hasil eksekusi :

2. PERNYATAAN REPEAT

Pernyataan repeat (repeat statements) digunakan untuk melakukan perulangan terhadap suatu pernyataan, dimana proses pemeriksaan syaratnya berada pada akhir pernyataan repeat tersebut. Pernyataan pernyataan yang ada pada repeat akan dijalankan (diulang terus) sampai kondisi yang diseleksi di until tidak terpenuhi.

contoh program :

program repeat_a;

uses crt;

var i,j:integer;

begin

     i:=1;

     writeln(' masukkan jumlah pengulangan :   ');readln(j);

     repeat

           writeln(' urutan yang ke- ',i);

           i:=i+1;

     until (i=j);

     readln;

end.

hasil eksekusi: 

3. PERNYATAAN WHILE

Pernyataan while (while statements) hampir sama dengan pernyataan repeat, dengan sedikit perbedaan bahwa pernyataan while melakukan pengujian syarat pada awal proses berulang (pernyataan repeat melakukannya di akhir proses).

Pengujian awal digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Pada pernyataan-pernyataan yang ada pada while tidak akan dijalankan jika kondisi tidak terpenuhi.

contoh program:

var

     i, j: Integer;

     M: Char;

begin

     Write('Masukkan sembarang karakter : ');Readln(M);

     i := 1;

     while i <= 10 do

     begin

             j := 1;

             while j <= i do

             begin

                     Write(M);

                     Inc(j);

             end;

             Writeln;

             Inc(i);

      end;

Readln;

end.

hasil eksekusi:

cukup sekian teman-teman tentang pembahasan perulangan, semoga bermanfaat. 

sumber:

http://makcum-abdu.blogspot.co.id/2012/09/pascal-pernyataan-repeat-repeat-statements.html

http://fendri-informatika.blogspot.co.id/2011/07/fungsi-looping-pada-pascal.html