Re: invalid parameter list

["jimmaureenrogers@worldnet.att.net" <jimmaureenrogers@worldnet.att.net>]

isaac2004 wrote:
> hello
> i am getting an error about an invalid parameter in this code
>
...
>
>    procedure Sociable_Chain (
>          Start,
>          Max   : Natural) is
>       A : array (1 .. 30) of Positive;
>       I : Positive;
>
>    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;
>
>    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 choose the length of your chain. ");
>    Get(Item => Max);
>
>
>
>    --         for N in Minnumber..Maxnumber loop
>    --            Sociable_Chain(Minnumber, Length);
>
>    --         end loop;
>
> -- Put (Item => Sum_Of_Divisors (Start), Width => 0  ) ;
>
> ---------------------------------------------------error here
>    Put (Item => Sociable_Chain ( Start, Max ), Width => 0  ) ;
>
> -----------------------------------------------------------------------------------------
>
>
> end Assignment3 ;
>
> am i specifying the wrong values for my procedure

The Put procedure you are calling expects the value associated
with Item to be an Integer. You call procedure Sociable_Chain.
Procedures do not return values. The procedure Put has no
value to associate with its Item parameter.

Have you considered converting Sociable_Chain to a
function returning a Natural?

Jim Rogers