Perulangan (looping) terakhir yang akan kita bahas adalah perulangan REPEAT UNTIL. Inilah yang akan kita praktekkan dalam tutorial bahasa pemrograman PASCAL kali ini.
Konsep Dasar Perulangan REPEAT UNTIL dalam Pascal
Pada dasarnya, perulangan REPEAT UNTIL mirip seperti perulangan WHILE DO, dimana kita akan melakukan pengecekan dalam setiap iterasi apakah nilai variabel counter masih dipenuhi atau tidak.
Bedanya, pada REPEAT UNTIL, pemeriksaan kondisi ini dilakukan di akhir perulangan, bukan di awal seperti WHILE DO.
Berikut format dasar penulisan perulangan REPEAT UNTIL dalam bahasa pemrograman PASCAL:
REPEAT begin (kode program yang ingin diulang disini...) (kode program yang untuk mengubah condition..) end; UNTIL (condition)
Karena condition dicek di akhir, setidaknya isi perulangan akan dijalankan minimal 1 kali, meskipun condition tidak dipenuhi. Inilah perbedaan mendasar dari REPEAT UNTIL dengan perulangan lain seperti FOR DO dan WHILE DO.
Mari kita lihat contoh kode programnya.
Contoh kode Program Perulangan REPEAT UNTIL dalam Pascal
Kembali, saya ingin menampilkan teks “Hello World” sebanyak 10 kali, berikut kode programnya menggunakan perulangan REPEAT UNTIL:
program repeat_until; uses crt; var i: integer; begin clrscr; i:= 0; repeat begin writeln('Hello World'); i:= i + 1; end; until i = 10; readln; end.
Terlihat sangat mirip dengan WHILE DO, bedanya variabel counter i akan di cek di akhir perulangan.
Mari kita tampilkan nilai variabel i dalam setiap iterasi:
program repeat_until; uses crt; var i: integer; begin clrscr; i:= 0; repeat begin writeln('Variabel i sekarang bernilai: ',i); i:= i + 1; end; until i = 10; readln; end.
Kembali, jika anda sudah paham konsep perulangan WHILE DO, tidak akan sulit memahani perulangan REPEAT UNTIL.
Perbedaan mendasar, bagaimana jika nilai variabel counter ini sudah tidak bisa dipenuhi saat perulangan di jalankan? Mari kita coba:
program repeat_until; uses crt; var i: integer; begin clrscr; i:= 10000; repeat begin writeln('Variabel i sekarang bernilai: ',i); i:= i + 1; end; until i > 10; readln; end.
Perhatikan di awal kode program, saya mengisi variabel counter i dengan nilai 1000. Di akhir looping REPEAT UNTIL, saya membuat kondisi until i > 10. Artinya, kondisi ini sudah tidak memenuhi. 1000 tentu lebih besar dari 10, sehingga i > 10 akan menghasilkan nilai FALSE.
Namun inilah keunikan perulangan REPEAT UNTIL. Karena kondisi diperiksa di akhir perulangan, isi perulangan itu bisa berjalan minimal 1 kali. Berikut hasil kode program tersebut:
Sebagai contoh terakhir, saya ingin membuat deret angka kelipatan 5 menggunakan perulangan REPEAT UNTIL. Berikut kode programnya:
program repeat_until; uses crt; var i: integer; begin clrscr; i:= 5; writeln('Berikut deret untuk kelipatan 5: '); repeat begin write(i,' '); i:= i + 5; end; until i > 100; readln; end.
Kunci dari pembuatan deret ini ada di variabel counter. Saya menggunakan perintah i:= i + 5 dalam perulangan. Artinya, variabel i ditambahkan 5 dalam setiap iterasi. Hasil akhir berupa deret dari 5, 10, 15, dst hingga 100.
Sebagai latihan, bisakah anda membuat deret dengan kenaikan 7? Silahkan buat dalam 3 jenis looping yang sudah kita pelajari sejauh ini: FOR DO, WHILE DO, dan REPEAT UNTIL.
Berikutnya, kita akan membahas perulangan bersarang, atau nested loop, atau boleh juga disebut perulangan dalam perulangan, dalam Tutorial Belajar Pascal: perulangan bersarang (nested loop) dalam pascal (1).
Min, ada gak contoh codingan repeat until yang cara kerjanya seperti ini
tekan y jika ingin keluar
nah disitu hanya tekan y saja yg bisa keluar, selebihnya diulang lagi seperti ini
tekan y jika ingin keluar
tekan y jika ingin keluar
tekan y jika ingin keluar
tekan y jika ingin keluar
tolong bantu ya min, thanks :)
Saya akan buatkan tutorialnya y gan, biar yang lain bisa baca juga. Mungkin bisa dalam beberapa hari ini…
Oke min ditunggu updatenya yaa ;)
Oh iya, mau nanya lagi dong? Saya punya tugas seperti ini (tugas algo pascal)
Tampilkan deret bilangan 2, 5, 8,11,… Sampai dengan 50 elemen, nah saya bingung cara nampilin 50 elemen di repeat until sama while do bisa gak ya?
Thanks ya admin ????
Di artikel ini sudah ada contoh pembuatan deret tuh, silahkan di modif saja. Yang penting mesti paham cara pembuatan loopnya, kapan sebuah loop mulai, dan kapan loop itu selesai.
Bisa gan. kalo agan masih ingat rumus deret Aritmatika sama notasi Sigma, gampang tuh. soal dari agan beda setiap bilangan b=3. lalu nilai awalnya a=2.
Un=a+(n-1)b
Un=2+(n-1)3
Un=2+3n-3
Un= 3n-1——-Rumus Sigma
Un= 3(50)-1 = 149 ——nilai suku ke 50
jadi agan pake repeat rumus ''Variabel A=3n-1'' sama kondisi until-nya (variabel B= 149)
kapan bang updatenya yang tekan y apabila mau menghitung ulang dan t untuk tidak
Pake if then else keknya itu
Gan ditunggu post selanjutnya
Siip,…
gan bikin gini pake apa ?
4
4 8
4 8 12
4 8 12 16
4 8 12 16 20
Silahkan baca2 tutorial ini gan: https://www.duniailkom.com/tutorial-belajar-pascal-cara-membuat-segitiga-bintang-bahasa-pemrograman-pascal/
Tinggal di modif dikit agar bisa menjadi angka.
Bukannya deret menggunakan loop FOR DO tidak bisa ya Bang? Saya sudah buat latihan deret kelipatan 7 menggunakan WHILE DO dan REPEAT UNTIL, tapi saya bingung membuat deret menggunakan FOR DO..
Ternyata penjelasannya ada di halaman https://www.duniailkom.com/tutorial-belajar-pascal-cara-membuat-deret-dalam-bahasa-pascal/ . Hehe
Hehe.. siip…
kalau begini bagaimana
angka yang anda masukkan misal x
x
xx
xxx
xx
x
Request ditampung dulu ya, kalau ini merupakan tugas sekolah / kuliah, bisa dicoba2 dulu. Sekalian melatih kemampuan algoritma…
repeat until apakah kita tidak ada menentukan nilai awal dan nilai akhirnya gan?
sampai kode mengubah kondisinya bernilai false.
i:=0
=========
i:= i +1;
until
i > 10;
bukannya i >10; adalah bernilai false pada saat program dijalan gan?
Setelah memahami operator dan urutan prioritas operator, jawab soal-soal
dibawah ini.
1. 10 div 5 * 4 + 4 – 3 = ?
2. 5 * 10 / 2 – 13 + 7 = ?
3. ( 10 mod 3 ) + ( 5 * 3 +3 ) = ?
4. 4.5 * 2 mod 2 = ?
5. 3 + 5 * 3 < 10 = ?
• Tulislah seluruh perhitungan diatas kedalam Bahasa pemrograman pascal
min tolon buatin tutornya dong ini mumet banget asli masih mahasiswa baru minn
Boleh coba ikuti tutorial Pascal di web duniailkom ini dari part 1, saya rasa nanti akan bisa sendiri. Terutama setelah sampai di part tentang operator aritmatika