Re: Ada.Text_IO.Create

["isaac2004" <isaac_2004@yahoo.com>]

alright everybody who helped me thank you because i am near completion

i only have one more question. when i run my code for a length of 30 it
hits a range error, any help on how on fix it

with Ada.Text_Io;
use Ada.Text_Io;
with Ada.Integer_Text_Io;
use Ada.Integer_Text_Io;
procedure Assignment3 is

---------------------------------------------------------------------
   --| program that takes a range in the form of a minimum and maximum
number,
   --| and prompts for the length, to find all sociable chains inside
of the range
   --| to that desired chain
   --| Isaac Levin, Western Washington
   --| February 2006

---------------------------------------------------------------------------

   Start  : Natural;
   Stop   : Natural;
   Max    : Natural range 1 .. 30;
   Chains : File_Type;


function Sum_Of_Divisors (
         N : Integer)
     return Integer is
       C: Integer;
      Sum : Integer;

   begin
      Sum := 1;
      C:=2;
      while C**2 <= N loop --Number

         if N mod C = 0 then
            if C * 2 = N then
               Sum := Sum + C;
            else
               Sum := Sum + C + N / C;
            end if;
         end if;
         C := C + 1 ;
      end loop;
      return Sum ;

   end Sum_Of_Divisors;



   procedure Sociable_Chain (
         Start,
         Max   : Natural) is
      A : array (1 .. 30) of Natural;
      I : Natural                    := 2;

   begin
      A(1) :=Start; -- makes first number of array the prompt number
      A(2) := Sum_Of_Divisors (A(1));
      -- 2nd number in array is sum of divisors of prompt
      while I < Max and A (1) /= A(I) loop
         -- loop till length is reached and till A(I) = A(1)
         I:= I + 1;
         A(I) := Sum_Of_Divisors (A(I - 1));
      end loop;
      if A(1) = A(I) then
         for Index in 1 .. I loop
            Put(
               File  => Chains,
               Item  => A (Index),
               Width => 0);
            New_Line (File => Chains) ;
            Put(
               Item  => A (Index),
               Width => 0);
            New_Line ;
         end loop;
         New_Line (File => Chains) ;
         New_Line ;
      end if ;
   end Sociable_Chain;

begin


   Put(Item => "Please enter your starting integer.");
   Get(Item => Start);
   New_Line;
   Put(Item => " Please enter your ending integer.");
   Get(Item => Stop);
   New_Line;
   Put(Item => " Please enter the length of largest chain. ");
   Get(Item => Max);




   Create(
      File => Chains,
      Mode => Out_File,
      Name => "chains.txt");

   for N in Start .. Stop loop
      Sociable_Chain ( N, Max) ;
   end loop;

   Close (File => Chains) ;

end Assignment3 ; 
   

thank you