forloop_whileloop.adb

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

with Ada.Text_IO; use Ada.Text_IO;
procedure forloop_whileloop is
   Count    : Integer; --count as Integer object
   Count_To : constant Integer := 10; --integer constant
begin
   Count := 1;
   while Count <= Count_To loop --While loop
      Put (Integer'Image (Count));
      Count := Count + 1;
   end loop;
   New_Line;
   for Count in reverse  1 .. Count_To loop --count declared here
      Put (Integer'Image (Count));
   end loop;
   New_Line;
end forloop_whileloop;