use_of_exit.adb

来自「This contains the following topics and m」· ADB 代码 · 共 17 行

with Ada.Text_IO; use Ada.Text_IO;
procedure use_of_exit is
   Count : Integer; --count as Integer object
   --Count_To : constant Integer := 10; --integer constant
   Count_To : Integer := 10; --integer constant
begin
   Count := 1;
   loop
      Put (Integer'Image (Count));
      exit when Count = Count_To; --Exit loop when ...
      Count := Count + 1;

   end loop;
   New_Line;
   Put ("hai");
end use_of_exit;