Basic Pascal Tutorial/Chapter 3/REPEAT..UNTIL/bg
│
български (bg) │
English (en) │
français (fr) │
日本語 (ja) │
中文(中国大陆) (zh_CN) │
REPEAT...UNTIL
Конструкцията repeat .. until се нарича цикъл с постусловие защото контролното условие се проверява на края на изпълнението на цикъла.
Има следния синтаксис:
repeat
statement1;
// statement2;
// further statements...
until BooleanExpression;
Цикълът repeat-until затваря операторите в тялото си, което означава, че няма нужда да се използва допълнителен блок begin ... end. Отбележете, че цикъла repeat продължава да се изпълнява докато условието му стане True; за разлика от цикъла while-do, който продължава докато условието му стане False.
Например, тялото на следния цикъл repeat ще се изпълни поне веднъж:
repeat
WriteLn(Node.Text);
Node := GetNextNode;
until not Assigned(Node);
Тук се предполага, че в самото начало променливата Node не е равна на Nil. Ако това на е така програмата ще се издъни.
Цикълът while-do е по-безопасен, понеже проверката се прави преди да се започне с изпълняване на операторите в тялото:
while Assigned(Node) do
begin
WriteLn(Node.Text);
Node := GetNextNode;
end;
Използвайте цикъл repeat-until когато операторите в тялото трябва да се изпълнят поне веднъж, независимо от началната стойност на контролното логическо условие.
Не е трудно по невнимание да се напише условие, контролиращо цикъл repeat-until, което никога не става True. Това поражда безкраен цикъл и кара програмата да увисне.
Един начин за програмиране е умишлено да се създаде безкраен цикъл и да се вмъкне оператор Break или Exit, контролиран от някакво условие по средата на цикъла, и по този начин да се излезе от иначе безкрайното повторение:
repeat
statement1;
if Condition then // Задължително трябва да стане True!
Break;
statement_that_might_affect_the_Condition;
until False;
Успешното използване на този подход зависи от условието, което в даден момент задължително трябва да стане вярно, без изключение. В противен случай сте вградили гарантирано безкраен цикъл.