Apa yang ada di benak anda ketika pertama kali mendengar kata Perulangan, perulangan menurut saya adalah sebuah proses atau kegiatan yang di lakukan secara berulang-ulang.
Di dalam pemprograman pascal Perulangan merupakan sebuah proses eksekusi operasi program yang di lakukan secara berulang-ulang hingga menemui kondisi untuk mengakhiri eksekusi tersebut.
PERULANGAN FOR DO DI PASCAL
Tujuan perulangan dengan statemen FOR DO disini adalah untuk mengulang statement atau blok statement berulang kali sesuai sejumlah yang ditentukan pemakai.
Perlu anda ketahui ada dua jenis perulangan dengan statemen FOR DO yaitu perulangan positif dan perulangan negatif, untuk lebih memahaminya kita akan belajar terlebih dahulu mengenai struktur perulangan FOR DO di dalam Pascal.
FOR (variabel_counter) := (nilai_awal) TO (nilai_akhir) DO
begin
(kode program)
end;
Anda harus paham apa itu Variabel Counter, variabel_counter sendiri yaitu variabel yang berfungsi sebagai penghitung di dalam perulangan yang artinya progam akan terus berjalan atau berulang dari nilai_awal sampai ke nilai_akhir sesuai dengan nilai yang telah di tentukan.
CONTOH PROGRAM FOR DO DI PASCAL
Setelah anda paham dengan struktur perulangan FOR DO di dalam pemrograman Pascal, maka kita akan membuat sebuah program sederhana perulangan positif terlebih dahulu. Sehingga harapannya nanti anda dapat memahami dan menyimpulkan sendiri perbedaan Perulangan positif dan Perulangan negatif dengan labih mudah.
(* Created by Budi Santoso *)
program Perulangan_FOR;
uses crt;
var
i :integer;
begin
clrscr;
for i := 1 to 9 do
begin
writeln('Latihan OSN Hari - ',i);
end;
readkey;
end.
Kita akan coba pahami lebih detail dari program di atas, pertama di bagian var, saya membuat sebuah variabel i dengan tipe data integer. Variabel ini saya siapkan sebagai variabel counter, kemudian di bagian program di mulai dari clrscr untuk membersihkan layar, for i sebagai index untuk mebuat perulangan dari 1 sampai 9. Selanjutnya kita tampilkan ke layar menggunakan statemen writeln, sehingga akan menghasilkan outpute program seperti gambar di bawah ini.
FOR-DOWNTO-DO DI PASCAL
Kemudian jika anda ingin membuat program perulangan dengan menghitung (counter ) dari besar dan kecil yaitu dengan menggunakan perulangan negatif, Caranya bagaimana?? dengan menggunakan Statement FOR-DOWNTO-DO. Nah untuk lebih jelasnya anda dapat melihat programnya di bawah.
(* Created by Budi Santoso *)
program PERULANGAN_FORDOWN;
uses crt;
var
i :integer;
begin
clrscr;
for i := 9 downto 1 do
begin
writeln('Latihan OSN Hari - ',i);
end;
readkey;
end.
Tidak berbeda dari program di atas, saya hanya merubah di bagian begin yang sebelumnya for i := 1 to 9 do saya ubah menjadi for i := 9 downto 1 do. Maka hasil program akan berubah dan akan menghitung mundur dari angka 9 ke angka 1, berikut gambar otupute dari program di atas.
Nah misalkan anda penasaran, ingin mencoba program for i := 9 to 1 do, tanpa memakai down maka program yang di hasilkan hanya layar ksosong.
Mungkin itu saja pembahasan saya mengenai Perulangan For do dari positif hingga negatif, semoga bermanfaat dan tetap tersenyum.
