Perulangan Repeat Until di Turbo Pascal

Pada postingan kali ini saya akan membahas Perulangan Repeat Until di Turbo Pascal
Sebenarnya perulangan ini hampir sama dengan Perulangan While do di Turbo Pascal namun ada beberapa perbedaan antara repeat dan while,jika repeat iya akan menjalankan perintah yang akan diulang lalu mengeceknya, jika nilainya benar/true maka perulangan tersebut akan berhenti,namun jika masih salah/false maka akan terus melakukan perulangan sampai nilai itu benar/true

Contoh Perulangan Repeat Until di Turbo Pascal

1. Buka turbo  pascal yang anda punya

2. Ketikan script dibawah ini

program repeat_until;
uses crt;
var
 i,jumlah:integer;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');

 i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;
 
 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Penjelasan :

var
 i,jumlah:integer;

Mendeklarasikan variable i dan jumlah sebagai integer

i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;

Mengisi variable i dengan 1, lalu mengisi variable jumlah sesuai dengan jumlah yang kita inputkan
lalu melakukan perulangan sampai isi dari variable i lebih dari variable jumlah

Itulah penjelasan singkat dari saya
semoga berhasil