STRUKTUR PERULANGAN
1. Perulangan For….Do…
Digunakan untuk perulangan yang telah diketahui berapa kali akan diulang. Perulangan For dapat berbentuk perulangan positif, perulangan negatif dan perulangan tersarang.
a. Perulangan Positif
Adalah perulangan dengan penghitung (counter) dari kecil ke besar atau pertambahannya positif.
Bentuk Umum :
For variabel_kontrol := nilai_awal to nilai_akhir do
Statement ;
Contoh 1 :
Var
I : integer ;
Begin
For i:= 1 to 5 do
Write(’Pascal ‘);
Readln
End.
Contoh 2 :
Uses crt;
var
i : integer ;
Begin
For i := 1 to 5 do
Begin
Writeln(‘Pascal’) ;
end;
readln
end.
Contoh 3 :
uses crt;
var
i : integer ;
begin
for i:= 1 to 5 do
begin
writeln (i);
writeln(‘Pascal’);
end;
readln
end.
b. Perulangan Negatif
adalah perulangan dengan penghitung (counter) dari besar kecil atau pertambahannya negatif.
Bentuk Umum :
For variabel_kontrol := nilai-awal downto nilai_akhir do
statement;
Contoh :
uses crt;
var
i : integer ;
begin
for i := 1 to 5 do
writeln (‘angka ke’, i,”Pascal’);
readln
end.
c. Perulangan Tersarang (nested loop)
adalah perulangan yang berada dalam perulanagan lainnya. perulanagn yang lebih dalam akan diproses terlebih dahulu sampai habis. kemudian perulanagan yang luar baru bertambah, mengerjakan perulanagn yang lebih dalam lagi mulai dari awal dan seterusnya.
Contoh :
uses crt;
var
i, j : integer ;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
write (i:8, j:5);
writeln;
end;
readln
end.
2. Perulangan While….Do…
Digunakan untuk melaksanakan blok statemen selama kondisinya benardalam perulangan ini sudah diketahui.
Bentuk Umum :
while ungkapan_logika Do
statemen ;
Contoh:
Uses crt;
Var
I:integer;
Begin
I := 0;
While i < 4 do
Begin
Writeln(‘Belajar’);
I := i+1;
End;
Writeln(‘Pascal);
Readln
End.
a. Perulanagn While-Do Tersarang
adalah suatu perulangan While-Do yang ada didalam perulangan While _Do yang lain.
Contoh :
uses crt;
var
i, j : integer ;
begin
i := 1 ;
while i < 5 do
begin
j := 1 ;
while i < 2 do
begin
writeln (i:5, j:5);
j := j + 1 ;
end;
readln
end.
3. Perulangan REPEAT-UNTIL
Perulangan ini melakukan uji kondisi pada akhir perulangan artinya perulangan dikerjakan terlebih dahulu, kemudian baru diuji. Proses akn diulang sampai suatu kondisi yang diberikan bernilai benar.
Bentuk Umum :
Repeat
Statemen ;
Until ungkapan_logika ;
Contoh:
Uses crt;
Var
I:integer;
Begin
I:=0;
Repeat
I:=i+1;
Writeln(i);
Until I = 5;
Readln
End.
Repeat-Until Tersarang
adalah suatu perulanagn Repeat-Until yang berada didalam perulangan repeart-Until yang lain.
contoh :
uses crt;
var
i, j : integer ;
begin
i := 1 ;
repeat
i := i + 1;
j := 0;
repeat
j := j + 1 ;
writeln (i:5, j:5);
unntil j = 3 ;
until j = 3 ;
readln
end.
[…] https://1nuy4s4.wordpress.com/2011/11/12/struktur-perulangan/ […]
[…] https://1nuy4s4.wordpress.com/2011/11/12/struktur-perulangan/ […]