PERULANGAN REPEAT … UNTIL

III. PERULANGAN REPEAT … UNTIL

Makna dari kata repeat disini berarti bahwa perulangan akan terjadi, sementara kata until berarti sampai nilai yang ditetapkan pada until ditemukan. Sehingga perulangan akan dilakukan secara terus menerus sampai menemukan nilai terpenuhi pada until. Jika nilai pada until ditemukan maka perulangan di berhentikan.

Jika dilihat dari bentuk algoritma flowchartnya, perulangan ini mirip dengan perulangan FOR..DO, sementara jika dilihat dari struktur programnya, perulangan ini justeru terlihat mirip dengan perulangan WHILE..DO.

Akan tetapi ternyata, perulangan ini jelas berbeda dari keduanya. Dimana pada perulangan for..do dan while..do, perulangan akan dilakukan selama nilai variabel perulangan benilai benar, sampai menemukan nilai variabel tidak lagi memenuhi syarat pengulangan.

Sementara, pada peruluangan repeat..until, proses justeru akan terus berulang sampai menemukan nilai pada until (atau nilai pada until bernilai benar). Lebih jelas perulangan ini bisa dilihat dari bentuk flowchart berikut :

MENERAPKAN PERULANGAN REPEAT..UNTIL DALAM PASCAL

Mari kita terapkan perulangan repeat until dalam pascal. Untuk menggunakannya, terlebih dahulu kita harus memahami struktur program pascalnya. Adapun struktur program pascal untuk repeat..until adalah sebagai berikut :

Dari gambar flowchart diatas, dapat dijelaskan algoritmanya sebagai berikut :

1. Step 1 : memulai program (start)
2. Step 2 : mengenalkan variabel m, dan memberi nilai awal = 1
3. Step 3 : memproses perulangan. Proses yang dimaksud disini, bisa proses mencetak ke monitor, atau melakukan perubahan nilai variabel dari nilai sebelumnya.
4. Step 4 : membuat pengujian / menguji nilai m. Apakah m = nilai pada until. Dimana until = 10? Jika m = 10, maka nilai variabel telah terpenuhi, dan perulangan berhenti. Dan jika nilai m tidak memenuhi syarat pada until, maka perulangan terus dilakukan sampai menemukan nilai 10.
5. Step 6 : mengakhiri perulangan (stop).

Baik, langsung saja, buka program turbo pascalnya, dan ikuti panduan program seperti pada gambar-gambar berikut :

1. Buka program turbo pascal, dan ketik kode program berikut :






2. Kompile program, dan pastikan sukses






3. Run program, akan tampil hasil program sebagai berikut :

LATIHAN
Buatlah (tiga) program untuk :

1. Mencetak kalimat "Pascal DOSBOX sebanyak 10 kali
2. Mencetak bilangan bulat ganjil saja
3. Mencetak bilang bulat genap saja

Semoga Belajar !!!