STUKTUR PENGULANGAN DALAM PASCAL

Gambar contoh pengulangan: daily activity

Struktur kontrol pengulangan dalam bahasa pemrograman dikenal dengan loop. Pengulangan dilakukan terus sampai dipenuhi keadaan tertentu. Dalam pascal dikenal tiga jenis pengulangan dan pernyataan yang digunakan adalah:

1. for

2. while-do

3. repeat-until

1. Pengulangan dengan for

Perulangan for dapat berbentuk perulangan positif, negatif dan bersarang. Pada pengulangan dengan for diperlukan variabel kontrol, nilai awal untuk inisialisasi sehingga pengulangan bisa dilakukan,dan nilai akhir untuk kondisi mengakhiri pengulangan.

Bentuk Menaik :

for variabel-kontrol:=nilai-awal to nilai-akhir do pernyataan;

Bentuk Menurun :

for variabel-kontrol:=nilai-awal downto nilai-akhir do pernyataan;

Bentuk loop dalam loop :

for variabel-kontrol1:=nilai-awal1 to nilai-akhir1 do

for variabel-kontrol2:=nilai-awal2 to nilai-akhir2 do

pernyataan;

Contoh 1

{ File : writefor.pas }

Program WriteFor;

Var

i,N: Integer;

Begin

Writeln('Baca N, print 1 s/d N');

Write('N=');

Read(N);

For i:=1 to N do

            Writeln(i);

Writeln('Akhir program');

Readln;

End.

Contoh 2

Perulangan dengan menggunakan for naik.

{ File : fornaik.pas }

Program ForNaik;

Var

i,awal,akhir : Integer;

Begin

awal:=1;

akhir:=5;

for i:=awal to akhir do

Writeln(i);

End.

Contoh 3

Perulangan dengan menggunakan for turun.

{ File : forturun.pas }

Program ForTurun;

Var

i,bawah,atas : Integer;

Begin

bawah:=1;

atas:=5;

for i:=atas to bawah do

writeln(i);

read(i);

End.

2. Pengulangan dengan while do.

Pada pengulangan jenis ini, pengecekan syarat dilakukan diawal. Pengulangan dengan while-do ini digunakan untuk melakukan proses perulangan suatu pernyataan atau blok pernyataan terus-menerus selama kondisi ungkapan logika pada syarat masih bernilai logika benar.

Gambar 4.2. Flowchart while do.

Bentuk Umum :

While syarat do perintah;

Contoh 4

{ File : while.pas }

Program _while;

Uses crt;

Var

i: Integer;

Begin

i:=1;

while i<=5 do

begin

writeln(i);

i:=i+1;

end;

readkey;

End.

3. Loop Repeat...Until.

Berbeda dengan dua jenis pengulangan sebelumnya, syarat pengulangan pada repeat...until dicek pada akhir perulangan. Repeat...Until digunakan untuk mengulang statemen-statemen sampai (until) kondisi yang diseleksi di Until terpenuhi.

Bentuk Umum:

repeat

perintah

…

until syarat;

Contoh 5

{ File : repeatUn.pas }

Program RepeatUntil;

Var

i : Integer;

Begin

i:=0;

Repeat

            Writeln(i);

            i:=i+1;

until i=5;

End.

  

Klik disini untuk mengerjakan tugas