PEMOGRAMAN DASAR

PEMOGRAMAN DASAR

Perulangan for do

Pengertian perulangan FOR DO dalam FREE PASCAL

Selain struktur percabangan program seperti IF THEN, IF THEN ELSE dan CASE, struktur program lain yang wajib kita ketahui adalah looping, atau perulangan, atau disebut juga dengan iterasi.

3 Jenis perulangan dalam pascal :

Di dalam Pascal terdapat 3 jenis perulangan, yakni FOR DO, WHILE DO, dan REPEAT UNTIL

perulangan/looping

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.

contoh :

 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.

contoh perulangan dalam free pascal :

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;

Penjelasan :

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).

contoh program :

Contoh Kode Program PASCAL untuk Perulangan FOR DOSebagai contoh pertama, saya ingin membuat 1000 teks “Hello World”. Berikut kode programnya:

output dari codingan

program for_do_loop;

uses crt;

var i: integer;

begin

  clrscr;

  for i := 1  to 1000 do

      begin

        writeln('Hello World');

      end;

     readln;

end;

penjelasan isi codingan diatas

Untuk membuat perulangan sebanyak 1000 kali, menggunakan perintah for i := 1 to 1000 do. Ini bisa dibaca dengan “Untuk variabel i, 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’).

contoh :

Membuat kode program yang merupakan daftar perkalian 7, yakni 7 x 1 = 7, 7 x 2 = 14, 7 x 3 = 21, dst hingga 7 x 10 = 70.

Disini kita harus menggunakan variabel counter i agar setiap perkalian naik dari 1 hingga 10. Berikut kode program yang saya gunakan

contoh program

program for_do_loop;

uses crt;

var  i: integer;

begin  

clrscr;     

for i := 1  to 10 do      

begin       

writeln('7 x ',i,' = ',7 * i);      

end;       

readln;

end.

penjelasan :

Ini sebenarnya modifikasi dari kode program perulangan Hello World. Saya merangkai tampilan daftar perkalian menggunakan perintah writeln(‘7 x ‘,i,’ = ‘,7 * i).Tanda koma digunakan untuk memisahkan mana bagian teks, dan mana variabel Pascal.