Transcript Dasar-Dasar Pemrograman Struktur Perulangan FOR-DO, WHILE-DO, REPEAT-UNTIL FOR-DO Perintah FOR-DO digunakan untuk perulangan dengan jumlah perulangan yang pasti dan kenaikan 1. FOR-TO-DO digunakan untuk perulangan naik, sedankan FOR-DOWNTO-DO digunakan.

Dasar-Dasar Pemrograman
Struktur Perulangan
FOR-DO, WHILE-DO,
REPEAT-UNTIL
FOR-DO
Perintah FOR-DO digunakan untuk
perulangan dengan jumlah perulangan
yang pasti dan kenaikan 1.
FOR-TO-DO digunakan untuk perulangan
naik, sedankan FOR-DOWNTO-DO
digunakan untuk perulangan turun.
FOR-DO
 Bentuk:
FOR counter:=awal TO akhir DO
statement;
FOR counter:=akhir DOWNTO awal DO
statement;
 Bagian counter digunakan untuk
mendefinisikan variabel, bagian awal
merupakan awal penghitung, bagian akhir
merupakan akhir penghitung. Bagian
statement dapat berupa statement tunggal
maupun jamak.
FOR-DO Ex.
uses crt;
var x:integer;
begin
clrscr;
for x:=1 to 10 do
write(x:3);
readln;
end.
Hasil:
1 2
3
4
5
6
7
8
9
10
FOR-DO Ex.
uses crt;
var x:integer;
begin
clrscr;
for x:=10 downto 1 do
write(x:3);
readln;
end.
Hasil:
10 9
8
7
6
5
4
3
2
1
Nested FOR
Nested FOR merupakan perulangan FOR
di dalam FOR.
Bentuk:
for counter:=awal to akhir do
for counter:=awal to akhir do
statement;
Nested FOR Ex.
uses crt;
var x,y:integer;
begin
clrscr;
for x:=1 to 3 do
begin
for y:=1 to x do
write('*');
writeln;
end;
readln;
end.
Hasil:
*
**
***
WHILE-DO
Perulangan WHILE-DO digunakan untuk
perulangan dengan jumlah yang belum
tentu pasti.
WHILE-DO dilakukan dengan pengecekan
kondisi terlebih dahulu, dilanjutkan dengan
aksi, sehingga aksi belum tentu dilakukan.
WHILE-DO
 Bentuk:
WHILE (kondisi) DO
statement;
 statement dapat berupa statement tunggal
maupun blok statement.
 Proses perulangan akan dilakukan selama
kondisi bernilai benar dan perulangan akan
dihentikan bila kondisi bernilai salah.
 Terdapat kemungkinan bahwa statement tidak
akan diproses karena kondisi tidak terpenuhi
saat awal loop.
WHILE-DO Ex.
uses crt;
var x:integer;
begin
x:=1;
while (x<=10) do
begin
write(x:3);
x:=x+1;
end;
readln;
end.
Hasil:
1 2
3
4
5
6
7
8
9
10
WHILE-DO Ex.
uses crt;
var x:integer;
begin
x:=10;
while (x>=1) do
begin
write(x:3);
x:=x-1;
end;
readln;
end.
Hasil:
10 9
8
7
6
5
4
3
2
1
REPEAT-UNTIL
Perulangan REPEAT-UNTIL digunakan
untuk perulangan dengan jumlah yang
belum tentu pasti.
REPEAT-UNTIL dilakukan dengan aksi
terlebih dahulu, dilanjutkan dengan
pengecekan kondisi, sehingga aksi pasti
akan dilakukan minimal 1x.
REPEAT-UNTIL
 Bentuk:
REPEAT
statement;
UNTIL (kondisi);
 statement dapat berupa statement tunggal
atau blok statement.
 statement akan dieksekusi dan kemudian
kondisi dievaluasi. Jika kondisi benar maka
loop akan diulang, jika tidak loop berakhir. Jadi
statement minimal dieksekusi satu kali.
WHILE-DO Ex.
uses crt;
var x:integer;
begin
x:=1;
repeat
write(x:3);
x:=x+1;
until (x>10);
readln;
end.
Hasil:
1 2
3
4
5
6
7
8
9
10
WHILE-DO Ex.
uses crt;
var x:integer;
begin
x:=10;
repeat
write(x:3);
x:=x-1;
until (x<0);
readln;
end.
Hasil:
10 9
8
7
6
5
4
3
2
1