Perulangan (loop) merupakan bentuk yang sering ditemui di dalam suatu program aplikasi. Di dalam bahasa pascal, dikenal 3 macam perulangan, yaitu dengan menggunakan statement for, while-do, dan repeat - until.
# Perulangan For
Perulangan dengan sistem statement for digunakan untuk mengulang statement atau satu blok statement berulang kali sejumlah yang ditentukan. Perulangan dengan statement For dapat berbentuk perulangan positif, perulangan negatif, dan perulangan bersarang.
For variabel kontrol := nilai awal to/downto nilai akhir do statemen
For variabel kontrol := nilai awal to/downto nilai akhir do statemen
Perulangan Positif adalah perulangan dengan penghitung (counter) dari kecil ke besar atau dengan kata lain pertambahan positif dapat dibentuk menggunakan statement For-to-Do. Dengan bentuk umum:
For variabel kontrol := nilai awal to nilai akhir do
Variabel -kontrol, nilai- awal, nilai-akhir harus mempunyai tipe yang sama, yaitu bertipe integer.
# Perulangan For Negatif
Perulangan for negatif adalah perulangan dengan penghitung (counter) dari besar ke kecil atau dengan kata lain pertambahannya negatif. Perulangan negtaif dapa dibentuk dengan menggunakan statemen For-Downto-do, dengan bentuk umum
For variabel kontrol := nilai awal downto nilai akhir do statement
#Perulangan Tersarang
Perulangan tersarang (nested loop) adalah perulangan yang berada di dalam perulangan yang lainnya. Perulangan yang lebih ddalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya
# Perulangan For Negatif
Perulangan for negatif adalah perulangan dengan penghitung (counter) dari besar ke kecil atau dengan kata lain pertambahannya negatif. Perulangan negtaif dapa dibentuk dengan menggunakan statemen For-Downto-do, dengan bentuk umum
For variabel kontrol := nilai awal downto nilai akhir do statement
#Perulangan Tersarang
Perulangan tersarang (nested loop) adalah perulangan yang berada di dalam perulangan yang lainnya. Perulangan yang lebih ddalam akan diproses terlebih dahulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari nilai awalnya dan seterusnya
contohnya yang perulangan tersarang gimana??
BalasHapusPROGRAM TAMPIL_For_bersarang;
BalasHapusUSES WINCRT;
VAR
I,J,Q:INTEGER;
BEGIN
Q:=1;
FOR I:=1 TO 4 DO
BEGIN
FOR J:=1 TO I DO
BEGIN
WRITE(Q,' ');
Q:=Q+1;
END;
WRITELN (' ');
END;
END.