Pengertian Perulangan FOR DO dalam Pascal
Perulangan, atau looping dalam bahasa inggris, adalah konsep pemrograman dimana kita mengulang baris program beberapa kali. “Beberapa kali” disini bisa dikatakan tidak terbatas, selama komputer masih bisa mengolahnya.
Sebagai contoh, saya ingin anda menulis teks “Hello World” sebanyak 1000 kali. Tentu sangat melelahkan mengetik semua ini (walaupun dengan di-copy paste). Menggunakan struktur looping, kita bisa membuatnya dalam waktu singkat dan cepat, hanya butuh beberapa baris kode program.
Salah satu struktur perulangan di dalam Pascal adalah FOR DO, berikut format penulisannya:
FOR (variabel_counter) := (nilai_awal) TO (nilai_akhir) DO
begin
(kode program yang ingin diulang disini...)
end;
variabel_counter adalah variabel yang berfungsi sebagai counter, atau penghitung di dalam perulangan. Variabel ini otomatis menaik dari nilai_awal hingga nilai_akhir. Dalam setiap kenaikan, blok kode program yang berada di dalam begin dan end; akan dijalankan. variabel_counter ini bisa digunakan sepanjang perulangan (jika diperlukan).
Mari langsung masuk ke contoh kode program.
Salin Program Dibawah Yang Sudah Saya Buat :
Program HELLO_WORLD;
Uses Crt;
Var Gator:Integer;
Begin
Clrscr;
For Gator:=1 To 1000 Do
Begin
Writeln('Hello World Ke - ',Gator);
End;
Readln;
End.
Keterangan :
Di bagian Var, saya membuat sebuah variabel Gator dengan tipe data Integer. Variabel ini saya siapkan sebagai variabel counter.
Untuk membuat perulangan sebanyak 1000 kali, saya menggunakan perintah For Gator:= 1 To 1000 DO. Ini bisa dibaca dengan “Untuk variabel Gator, jalankan perulangan mulai dari 1 hingga 1000”.
Apa yang akan diulang? Adalah blok program yang diawali perintah Begin, dan diakhiri perintah End;. Di dalam blok ini saya membuat sebuah perintah: Writeln('Hello World Ke -',Gator).
Dengan demikian, pascal akan menjalankan 1000 kali baris Writeln('Hello World Ke -',Gator).
Oke itu saja yang dapat saya sampaikan
Semoga bermanfaat :)
Jangan lupa untuk bookmark blog Ini.
See You Next Time Guys ●‿○

Comments
Post a Comment