Looping adalah perulangan untuk menjalankan statement berkali kali sesuai ketentuan. Looping pada Pascal dibagi 3, yaitu While-do, For-to-do, For-downto-do. Dalam materi ini kita akan mempelajari ketiga looping tersebut, masing-masing looping memiliki perbedaan dan kelebihan tersendiri.
While-Do
While-do yaitu perulangan yang dijalankan selama kondisi tersebut benar. Kondisi tersebut bisa ditentukan sesuai dengan ketentuan kita. While-do digunakan untuk mengulangi statement yang sama, lebih baik digunakan untuk perulangan yang membutuhkan banyak statement dengan 2 kemungkinan. Membutuhkan increment(penambahan otomatis) untuk melakukan perulangannya.
Contoh program:
program Looping_While;
uses
crt;
var
i:integer;
begin
i:=1;
while(i <= 10)do
begin
writeln('Ini bilangan ke-',i);
i:=i+1; //ini increment
end;
readln;
end.
crt;
var
i:integer;
begin
i:=1;
while(i <= 10)do
begin
writeln('Ini bilangan ke-',i);
i:=i+1; //ini increment
end;
readln;
end.
For-To-Do
For-to-do yaitu perulangan bernilai, maksudnya yaitu ada nilai awal dan nilai akhir, selama nilai tersebut sesuai dengan ketentuan, maka akan dilakukan looping sebanyak nilai tersebut. Baik digunakan untuk looping yang membutuhkan nilai banyak.
Nilai tersebut akan bertambah sendiri tanpa harus diinislisasi increment (penambahan otomatis).
Contoh program:
program Looping_For;
{$APPTYPE CONSOLE}
uses
crt;
crt;
var
i:integer;
begin
for i:=1 to 10 do
begin
writeln('Ini program for ke-',i);
end;
readln;
end.
i:integer;
begin
for i:=1 to 10 do
begin
writeln('Ini program for ke-',i);
end;
readln;
end.
For Downto Do
For-downto-do yaitu perulangan bernilai dari besar ke kecil, looping ini sama seperti for-to-do, hanya nilainya dari terbesar hingga terkecil, terdapat nilai awal dan nilai akhir. Perulangan tersebut akan dijalankan hingga batas nilai akhir.
Contoh program:
program Looping_For;
{$APPTYPE CONSOLE}
uses
crt;
var
i:integer;
begin
for i:=10 downto 1 do
begin
writeln('Ini program for downto ke-',i);
end;
readln;
end.
Sekian tutorial kali ini. Semoga dapat membantu kalian untuk lebih memahami pemrograman pascal dalam hal looping. Jangan lupa untuk selalu mencoba dan mengulik secara terus menerus.
Have A Nice Code!!!