Раздел 5.3 - Простые циклы

with Text_IO; use Text_IO;
procedure Forever is
begin
 loop
  Put_Line("Hello again!");
 end loop;
end Forever;

Цикл может быть завершен с помощью инструкций ``exit'' или ``exit when'' (похожих на инструкцию break языка С). Инструкция `exit' приводит к немедленному выходу из "самого внутреннего" цикла. Инструкция `exit when' приводит к выходу из "самого внутреннего" цикла только в случае истинности соответствующего условия.

Инструкция `exit when' особенно полезна в случае, если нужно выполнить некоторые действия для того, чтобы выяснить необходимость прекращения цикла. Такие конструкции, называемые ``loop-and-a-half'', начинаются словом "loop", производят вычисления, определяющие необходимость остановки цикла, затем используют `exit when' для выхода из цикла при выполнении условия остановки и далее обрабатывают результат.

Ниже приведен пример такой конструкции: программа считывает список чисел , печатает их квадраты и останавливается (без вывода на экран) когда встречает число `0':

with Text_IO, Ada.Integer_Text_IO;
use  Text_IO, Ada.Integer_Text_IO;
procedure Print_Squares is
 X : Integer;
begin
 loop
  Get(X);
 exit when X = 0;
  Put(X * X);
  New_Line;
 end loop;
end Print_Squares;

Упражнение:

Каим будет конечное значение A?

A := 1;
loop
 A := A + 1;
 exit when A > 3;
end loop;

1. 1
2. 2
3. 3
4. 4
5. 5

Перейти к предыдущему разделу	Перейти к следующему разделу	Вернуться к содержанию Урока 5

Исходная копия перевода размещена на сайте http://www.ada-ru.org