Repeat Until 1

// Repeat Until 1

{

Repeat until adalah Perulangan Yang akan berhenti jika kondisi Until terpenuhi ...

Repeat = Ulang
Until = Kecuali

Contoh ...
repeat indra.katakan(i love you)  // ulang indra.katakan i love u

until Dia.katakan(i love u to ) // kecuali dia katakan i love you to ...


// jadi indra akan mengatakan terus menerus i love you ,, sampai dia mengatakan i love u to
}


// contoh delphi

//========================================

procedure TForm2.Button1Click(Sender: TObject);
var i: integer  ;
begin
i := 0 ;   // i adalah 0

repeat           // ulang
i := i + 1 ;     // i := nilai (i) + 1
memo1.Lines.Add(inttostr(i) ) ;     // Mengisi memo


until (i = 10);  // kecuali i = 10


end;


//===========================================

// jadi proses akan terus berulang sampai i dapat nilai 10 ..