W sytuacjach, gdy chcesz aby program wykonywał się aż do momentu spełnienia jakiegoś warunku pomocą jest pętla repeat until. Jest wyjątkowa pod tym względem, że wykonuje wszystkie instrukcje znajdujące się pomiędzy nią, więc nie trzeba używać poleceń BEGIN i END.
Przykład
uses Crt;
begin
repeat
until KeyPressed;
end.
Powyższy przykład pokazuje w jaki sposób można zbudować program czekający na naciśnięcie dowolnego klawisza. Wykorzystuje on funkcję KeyPressed z modulu Crt, trzeba więc poinformować komputer że będziemy korzystali z Crt;
Zadanie 1
Napisać program do wyświetlenia liczb od 1 do 10
program liczby;
Zadanie 2
Napisać program który korzystając z pętli Repeat…until wyświetli pięć razy literę B
Podpowiedź
Zadanie 3
Napisać program który prosi o podanie numeru PIN. Po trzykrotnym błędnym podaniu numeru PIN, program zawiesza się wyświetlając komunikat “BLOKADA”.
Podpowiedź
