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.

Jalankan programnya. Hasilnya akan tampil seperti berikut ini.

Selesai...

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. Eitss jangan seneng dulu, kalian bisa liat program yang aku sebutkan tadi pada tulisanku berikutnya HAHAHAHAH :P

Semoga tulisanku bisa membatu dan bermanfaat buat kalian semua.

Sampai jumpaaaaaa lagi yahh??

Kritik dan saran sangat membantu buat tulisan yang akan datang, 

Please leave a message, tengkyuu :) :) :) :)