Re: creating an array

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

ok to everybody trying to help me thank you i didnt specify enough. i
have a program that takes two inputs from prompts, the first number is
an integer less than 10. the second number has the amount of digits
that the previous number specifies. what i want to do is split the
number up into single digits, sort them and out put the min ascending
order.

here is my code i cant get the split function right

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

-----------------------------------------------------------------------------------------------
   --| Recieves two inputs, one being a number les than ten and the
other number is a number with the same amount of digits
   --| as the first recieved number. the second number is then
seperated, the digits stored in an array and put into ascending order
   --| Author: Isaac Levin, Western Washington University
   --| Last Modified: February 2006

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

   type Index is Natural range 1 .. 10
   type Number is Natural range 000000000 .. 999999999;
   type Positivearray is array (Index) of Positive;

   Num1      : Number;
   Num_Array : Positivearray;
   Prompt    : Index;
   Numdigit  : Number;

   procedure Split (
         N1 : in     Number;
         A  : in out Positivearray ) is
      Temp : Integer := 1;
      Remain    : Number;
   begin
      for I in 1..(Prompt - 1) loop
         Temp := Temp * 10;
      end loop;
      for I in Positivearray'range loop
         A(N1) := Temp rem 10;
         Remain := Remain rem Temp;
         Temp := Temp / 10;
         if Num1(N1) /= 0 then
            N1 := N1 + 1;
         end if;
      end loop;
   end Split;

   procedure Sort (
         Thearray : in out Positivearray;
         Inuse    : in     Natural        ) is
      -- Sorts the elements of the array from smallest to largest
      Min      : Positive;
      Indexmin : Positive;
      Temp     : Positive;
   begin

      for I in 1..Inuse - 1 loop
         Min := Thearray(I);
         Indexmin := I;
         for J in I + 1 .. Inuse loop
            if Thearray(J) < Min then
               Min := Thearray(J);
               Indexmin := J;
            end if;
         end loop;
         Temp := Thearray(I);
         Thearray(I) := Min;
         Thearray(Indexmin) := Temp;
      end loop;
   end Sort;

   -- end of ascending procedure



begin
   Put(Item => " Please enter a number with ");
   Put(Item => Prompt);
   Put(Item => " or fewer digits: ");
   New_Line;
   Get(Item => Num1);
   New_Line;

   Split (Num1, Prompt);
   Sort (Num1, Prompt);
   New_Line;
   Put ("The numbers in sorted order are");
   New_Line;
   for I in 1..Prompt loop
      Put (Num1(I), 0);
      New_Line;
   end loop;

end test;

any help would be greatly appreciated