Oke kali ini saya akan sharing tentang Perulangan atau looping.
Perulangan adalah suatu perintah yang menjalankan suatu perintah tersebut secara terulang-ulang sampai suatu kondisi terpenuhi.
Perulangan di bagi menjadi tiga macam yaitu :
1. Perulangan For-do
2. Perulangan While-do
3. Perulangan Repeat-until
Perulangan For-do
Perulangan pascal yang paling mudah dipakai adalah for..to..do atau for..downto..do.. dimana for to do dipaki untuk perulangan yang naik dan for downto do digunakan untuk perulangan yang nilainya menurun.
Contoh program :
Program contoh_perulangan1;
Uses wincrt;
Var
a,b : integer ;
Begin
clrscr;
Writeln ('Masukkan Banyak Perulangan yang diinginkan :');
readln (a);
for b:= 1 to a do
Begin
Writeln ('Belajar Pascal Sangat Menyenangkan');
end;
readln;
end.
Contoh program :
Program contoh_perulangan1;
Uses wincrt;
Var
a,b : integer ;
Begin
clrscr;
Writeln ('Masukkan Banyak Perulangan yang diinginkan :');
readln (a);
for b:= 1 to a do
Begin
Writeln ('Belajar Pascal Sangat Menyenangkan');
end;
readln;
end.
Perulangan While-do
Proses perulangan While..Do adalah proses dengan suatu kondisi. Kondisi yang dimaksud sama seperti pada if.. Jadi dapat disimpulkan bahwa While..Do dapat disamakan dengan suatu kondisi If yang dapat melakukan perulangan.
Contoh program :
Program contoh_perulangan2;
Uses WinCrt;
Var
I : Integer;
Begin
Clrscr;
i := 1;
While I <= 10 do
Begin
Writeln (‘Nilai I adalah :’,i);
Inc(i)
End;
End.
Perulangan Repeat-until
Pada dasarnya, perintah repeat – until hampir sama dengan perintah perulangan while – do. Perbedaannya adalah perintah repeat – until akan menjalankan terlebih dahulu blok perintah yang akan diulang, lalu memeriksa kondisi kebenaran nilai. Perbedaan yang lebih mencolok dalam perintah repeat – until adalah blok perintah akan berhenti jika kondisi bernilai “Benar”.
Contoh Perulangan Repeat – unti:
program contoh_perulangan3;
uses wincrt;
var i:integer;
begin
{inisialisasi nilai indeks i dengan 1}
i:=1;
{melakukan pengulangan}
repeat
writeln('Andry Ganteng Banget');
i:=i+1;
until (i < 5);
end.
