Perulangan

1.Teori
Dalam Pascal dikenal adanya 2 tipe perulangan yaitu:
- Iteration statement digunakan untuk melakukan perulangan sekumpulan
  statement (compound statement).

-Loop (iteration) structure menggambarkan perulangan dari satu atau lebih instruksi.

1. Perulangan For
Perulangan dengan statemen FOR digunakan untuk mengulang statemen atau
suatu blok statemen berulang kali. Bentuk perulangan ini merupakan bentuk perulangan yang
paling sederhana. Pengulangan dilakukan mulai dari suatu indeks awal, sampai dengan
indeks akhir, misalnya: for i:=1 to 5 do writeln('Hello'); akan mencetak 5 kali kata hello.
Perulangan dengan statemen FOR dapat berupa perulangan positif dan perulangan negatif.
Perulangan FOR positif
Contoh :

a. Perulangan positif untuk satu statement :

program perulangan_for_positif;
uses wincrt;
var i : Integer;
Begin

For i := 1 To 5 Do 
Writeln ('Universitas Negeri Papua');

End.

Maka bila program diatas dicompile hasilnya :
Universitas Negeri Papua
Universitas Negeri Papua
Universitas Negeri Papua
Universitas Negeri Papua
Universitas Negeri Papua

b. Perulangan FOR negatif
Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke
kecil. Statement yang digunakan adalah FOR-DOWNTO-DO
Contoh :

Program perulangan_for_negatif;
uses wincrt;
var i : Integer ;
Begin

For i := 10 DOWNTO 1 DO 
WRITE(i:3);

End.

Maka bila program diatas dicompile hasilnya :
10 9 8 7 6 5 4 3 2 1

2. Perulangan While
Penyeleksian kondisi digunakan untuk agar program dapat menyeleksi kondisi,
sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari
kondisi yang diseleksi tersebut. Aksi dalam while akan dilakukan selama kondisi memiliki
nilai true, dan aksi mungkin tidak dilakukan sama sekali jika di awal loop kondisi sudah
bernilai false. Hal yang perlu diperhatikan dalam loop ini adalah kepastian bahwa loop akan
berhenti (bahwa suatu saat kondisi akan bernilai false) atau dengan kata lain perulangan
WHILE-DO tidak dilakukan jika kondisi tidak terpenuhi.
Contoh :

Program perulangan_while;
uses wincrt;
var i : Integer;
BEGIN

i := 0;
While i < 5 do
Begin

Write(i:3);
INC(i); { sama dengan i:=i+1 }
End;

End.

Maka bila program diatas dicompile hasilnya :
0 1 2 3 4

3. Perulangan Repeat
REPEAT-UNTIL digunakan untuk mengulang statement-statemen atau blok statement
sampai (UNTIL) kondisi yang diseleksi di UNTIL tidak terpenuhi. Sintak dari statement ini
adalah :
Contoh

Program perulangan_repeat;
uses wincrt;
var i : Integer;
Begin

i:=0;
Repeat
i:= i+1;
Writeln(i);

Until i=5;

End.

Maka bila program diatas dicompile hasilnya :
1
2
3
4
5

Untuk referensi lebih jelasnya beserta contoh-contoh lainnya dapat anda download pada link berikut download disini.

Teman-teman juga dapat menyaksikan video tutorial kami di youtube pada channel pascal untuk pemula atau kalian dapat mengaksesnya ke youtube dengan mengklik disini.

well...
keep spirit and happy coding guys :3