Page 138 - Pemrograman Dasar kelas X

134 Pemrograman Dasar SMK Kelas X Sem 2

while(kondisi1)do
begin

while(kondisi2) do
begin
statement(s);

end;
statement(s);
end;

Untuk lebih jelasnya, perhatikan contoh kode program berikut, beserta dengan hasilnya.
program NestedLoops; {* contoh aplikasi mencari nilai prima *}

var
i, j:integer;

begin
for i := 1 to 5 do
begin

for j := 1 to i do
write('*');

writeln;
end;
end.

Output:
*

**
***
****

*****

Dalam program di atas diulangai dari i=1 sampai 5.

i=1, ulangi dari j=1 sampai 1 tuliskan ‘*’, kemudian ganti baris (writeln)
i=2, ulangi dari j=1 sampai 2 tuliskan ‘*’ sehingga ada dua ‘*’ , kemudian ganti baris (writeln)
i=3, ulangi dari j=1 sampai 3 tuliskan ‘*’ sehingga ada tiga ‘*’ , kemudian ganti baris (writeln)

i=4, ulangi dari j=1 sampai 4 tuliskan ‘*’ sehingga ada empat ‘*’ , kemudian ganti baris (writeln)
i=5, ulangi dari j=1 sampai 5 tuliskan ‘*’ sehingga ada lima ‘*’ , kemudian ganti baris (writeln)

Agar pemahaman kalian jelas mengenai penggunaan struktur perulangan kerjakan LKS berikut.

Mencoba/Mengumpulkan Informasi