Nested Loop PASCAL

NESTED LOOP

Pengertian sederhananya dari Nested Loop adalah adanya Loop didalam Loop , atau bisa disebut pengulangan bersarang.

Langsung saja kita ke contoh programnya.

Contoh Program NESTED LOOP sederhana :

Program NL;
Var
i,j:integer;
Begin
For i := 1 To 10 Do
Begin
For j := 1 To 8 Do
Write ('+');
Writeln;
End;
End.

hasil coding akan membentuk + dengan panjang 10 dan lebar 8 dikarenakan ada looping untuk i row dan j kolom

Contoh program nested if yang lainnya bisa diliat coding dibawah akan membantuk coding 2 persegi :

Program duasegi(output);

Var

baris, kolom : Integer;

Begin

For baris := 1 To 10 Do

Begin

For kolom := 1 To 8 Do

Write('+');

Write (' ');

For kolom := 1 To 8 Do

Write ('+');

Writeln;

End;

End.

hasil coding akan membentuk dua persegi sesuai dengan loop baris dan kolom, 1-10 baris membuat panjang kedua persegi , dan kolom loop pertama 1-8 membuat lebar + setelah loop 8 selesai akan ada sepasi yang terjadi untuk membagi dua persegi ' ' lalu melanjutkan kembali loop kedua baris 1-8 untuk lebar persegi kedua, maka terjadilah 2 persegi.