Repeat..Until döngüsü
Repeat deyimi ile until deyimi arasında kalan işlemleri untildeki koşul yanlış olduğu sürece tekrarlar. Untildeki koşul(lar) doğru olduğu anda döngüden çıkar.
Repeat
...
işlemler;
...
Until koşul(lar);
Örnek :
Var
I : Integer;
begin
repeat
Write('Bir sayı giriniz : ');
ReadLn(I);
until (I >= 0) and (I <= 9);
writeln(‘Sayı 0..9 arasındadir.’);
End.
Ne olursa olsun şarta bakana kadar döngüyü bir kez çalıştırır.
Until'de belirtilen şart doğru olduğu sürece çalışır.
Repeat deyimi ile until deyimi arasında kalan işlemleri untildeki koşul yanlış olduğu sürece tekrarlar. Untildeki koşul(lar) doğru olduğu anda döngüden çıkar.
Repeat
...
işlemler;
...
Until koşul(lar);
Örnek :
Var
I : Integer;
begin
repeat
Write('Bir sayı giriniz : ');
ReadLn(I);
until (I >= 0) and (I <= 9);
writeln(‘Sayı 0..9 arasındadir.’);
End.
Ne olursa olsun şarta bakana kadar döngüyü bir kez çalıştırır.
Until'de belirtilen şart doğru olduğu sürece çalışır.