ashtho

Perulangan atau Looping

Pengulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan pernyataan For, While-Do, dan Repeat…Until.

1.1 Struktur Perulangan For

Perulangan dengan pernyataan For digunakan untuk mengulang pernyataan atau satu blok pernyataan berulang kali sejumlah yang ditentukan. Perulangan dengan pernyataan For dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.

1. Perulangan positif.

Perulangan positif adalah perulangan dengan penghitung dari kecil ke besar atau pertambahan positif. Perulangan positif dapat dibentuk dengan menggunakan pernyataan For-To-Do, dengan bentuk umum:

For variabel-kontrol:=nilai awal To nilai akhir Do pernyataan

Variabel kontrol, nilai awal, nilai akhir harus betipe integer

Contoh :
Var
I:Integer;
Begin
For I:= 1 to 5 Do Writeln(‘Pascal’);
End.

Bila program dijalankan akan menghasilkan:

Pascal

Pascal

Pascal

Pascal

Pascal

Penjelasan:

Pernyataan Writeln(‘Pascal’) akan diulang sebanyak 5 kali, yaitu dengan penghitung dari nilai awal 1 sampai dengan nilai akhir 5.

Apabila pernyataan diulang lebih dari satu pernyataan maka seteleh DO harus memakai Begin kemudian beberapa pernyataan yang akan diulang dan diakhiri dengan End;.

Contoh

Var
I:Integer;
Begin
For I:= 1 to 2 Do
Begin
Write(‘Pascal’);
Writeln(‘Turbo’);
End;
End.

Bila program dijalankan akan menghasilkan:

PascalTurbo

PascalTurbo


2. Perulangan negatif

Perulangan negatif adalah perulangan dengan penghitung dari besar ke kecil atau pertambahan negatif. Perulangan negatif dapat dibentuk dengan menggunakan pernyataan For-DownTo-Do, dengan bentuk umum:

For variabel-kontrol:=nilai awal DownTo nilai akhir Do penyataan

Contoh

Var
I:integer;
Begin
For I:=5 downto 1 do
Begin
Writeln(I);
End;
End.

Bila program dijalankan maka akan menghasilkan:

5

4

3

2

1


3. Perulangan tersarang

Perulangan tersarang adalah perulangan yang berbeda di dalam perulangan yang lainnya. Perulangan yang lebih dalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan akan bertambah, mengerjakan perulangan yang lebh dalam lagi mulai dari nilai awalnya dan seterusnya.

Contoh

Var
I,J:Integer;
Begin
For I:=1 to 5 Do
Begin
For j:=1 to 3 Do
Begin
Write(I:8,J:3);
End;
Writeln;
End;
End.

Bila program dijakankan akan menghasilkan:

1 1     1 2        1 3

2 1     2 2        2 3

3 1     3 2        3 3

4 1     4 2        4 3

5 1     5 2        5 3

Perulangan tersarang banyak digunakan dalam aplikasi matrik dengan menggunakan variabel tipe larik. (Lebih lanjut akan di bahas pada materi matrik)

1.2 Struktur Perulangan While-Do

Perulangan ini menggunakan pernyataan While—Do. Pernyataan While—Do digunakan untuk melakukan proses perulangan suatu pernyataan atau blok pernyataan terus-menerus selama kondisi ungkapan logika pada While masih bernilai logika benar.


Bentuk Umum

While kondisi ungkapan Do Pernyataan

Contoh

Var
I:Integer;
Begin
I:=0;
While I<5 br="" do="">
Begin
Writeln(I);
I:=I+1;
End;
End.


Bila program dijalankan akan menghasilkan:

0
1
2
3
4

Penjelasan:
Perulangan dari while akan terus menerus dikerjakan bila kondisinya masih benar. Dalam hal ini kondisinya adalah I dan bila nilai I kurang dari 5, berarti kondisi di dalam While masih terpenuhi dan perulangan akan selesai setelah nilai I lebih besar atau sama dengan 5.

1.3 Struktur Repeat…Until
Struktur Repeat…Until digunakan untuk mengulang pernyataan-pernyataan atau blok pernyataan sampai kondisi yang diseleksi di Until tidak terpenuhi. Bentuk mumnya adalah:

Repeat pernyataan Until

Contoh
Var
I:Integer
Begin
I:=0;
Repeat
I:=I+1;
Writeln(I);
Until I=5;
End.


Bila program dijalankan akan menghasilkan:

1
2
3
4

Download Theme Arctic Wildlife

Download Theme Arctic Wildlife


                Humpback Whale Feeding in Frederick Sound in Alaska, USA

Catatan :
Link di bawah ini akan mengantarkan sobat ke situs adf.ly. Jika situs tersebut sudah terbuka, silahkan tunggu 5 detik dan klik tombol SKIP AD yang berada di pojok kanan atas dari Browser sobat untuk masuk ke Hosting download.

Download Theme Arctic Wildlife

Download Theme Antarctic Wildlife Antarctic Wildlife

Download Theme Antarctic Wildlife Antarctic Wildlife


                King Penguin Standing in Surf

Catatan :
Link di bawah ini akan mengantarkan sobat ke situs adf.ly. Jika situs tersebut sudah terbuka, silahkan tunggu 5 detik dan klik tombol SKIP AD yang berada di pojok kanan atas dari Browser sobat untuk masuk ke Hosting download.

Download Theme Antarctic Wildlife Antarctic Wildlife

Download Theme Animal Affection

Download Theme Animal Affection

Two Amazonian milk frogs (Phrynohyas resinifictrix)

Catatan :
Link di bawah ini akan mengantarkan sobat ke situs adf.ly. Jika situs tersebut sudah terbuka, silahkan tunggu 5 detik dan klik tombol SKIP AD yang berada di pojok kanan atas dari Browser sobat untuk masuk ke Hosting download.

Download Theme Animal Affection