Repeat-Until

Repeat-Until
Bir program bloğunun belli bir şart sağlanıncaya kadar üst üste çalıştırılmasını sağlayan REPEAT deyiminin genel formu aşağıdaki şekildedir.
Repeat
.
Program Satırları
.
Until (Boolean Şartı)

Burada repeat, tekrar etme anlamında olup, tekrar etme işi UNTIL deyimindeki boolean ifadesi sağlanıncaya kadar devam eder. Bu deyim program satırları bölümüne herhangi bir şey yazılmaksızın kullanılabilir.
Bu döngünün en büyük avantajı belirli bir sayı ile sınırlandırılmamış olmasıdır. Boolean ifadesindeki şart sağlanıncaya kadar işlemlere devam edilmektedir.
Dikkat edilirse şart cümlesinin aldığı değer ne olursa olsun program bloğu bir kez çalışmaktadır.
Örnek : Aşağıda verilen Pascal programı karton fabrikasındaki kenar kesme ünitesinde, kesme makinasından çıkan kartonların ortalama ağırlıklarını hesaplamaktadır. Karton ağırlığı olarak 0 girildiğinde programın çalışması sona ermektedir.
Program ornek_repeat;uses wincrt;vari,sayi:integer;top,ort:real;beginclrscr; i:=0;top:=0;ort:=0;Repeati:=i+1;Write(i,'. Kartonun Ağırlığını Giriniz =');Readln(sayi);Top:=top+sayiUntil (Sayi=0);ort:=top/(i-1);Writeln;Writeln;Writeln(i-1,' Adet Kartona ait Ağırlık Ölçümü Yapılmıştır.');Writeln(i-1,' Adet Kartonun Toplam Ağırlığı =',top3);Writeln('Girilen sayıların ortalaması =',ort3);repeat until KeyPressed;end.