PERULANGAN / LOOPING Repeat Until
Hi semuaaa.... Kali ini aku akan melanjutkan tulisan aku sebelumnya mengenai perulangan/looping. Sudah dibahas sebelumnya apa itu perulangan/looping? Kalo kalian lupa, oke aku jelaskan kembali yah :D Perulangan/looping adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu. Udah ingat bukan? :D Kalo sebelumnya kita membahas tentang perulangan For To Do, kali ini kita akan membahas mengenai Repeat Until. Apa sih perulangan Repeat Until itu?? Perulangan Repet Until adalah perulangan yang bekerja sampai kondisi yang diinginkan tercapai. Perulangan ini bisa digunakan sebagai perulangan yang menggunakan banyak kondisi keluar (multi condition loop). Contoh perulangan Repeat Until Aku akan mencontohkan program yang menampilkan 10 kata "YADIKA". Berikut scriptnya...
uses
SysUtils;
var
i:integer;
begin
writeln('PROGRAM PERULANGAN MENGGUNAKAN REPEAT UNTIL');
writeln('===========================================');
i :=1;
repeat
writeln(i,'yadika');
i :=i+1;
until i>10;
readln;
end.
Script terbebut masukkan ke dalam pemrograman Delphi. seperti pada gambar berikut ini
.
Tidak hanya itu saja, kita juga bisa menentukan deret angka ganjil, kuadrat bahkan menjumlahkannya. Tenang, kali
ini aku baik hati bakal membagi program~program tersebut buat kalian semua. Semoga postinganku bisa membatu
dan bermanfaat buat kalian semua.
Sampai jumpaaaaaa lagi yahh??
Kritik dan saran sangat membantu buat tulisan yang akan datang,
