forloop_whileloop.adb.npp

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

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;