Re: invalid parameter list

["Björn Persson" <spam-away@nowhere.nil>]

isaac2004 wrote:
> the output for this is writing the chains to a txt file and then
> outputting them on the screen. my loop would look something like this
> 
> for N Start.. Stop loop
> 
> Sociable_Chain ( N, Max) ;
> 
> end loop;
> 
> that is how am i thinking will this be buggy or what

You can do the writing either inside Sociable_Chain or in another 
procedure. If you'll do it in another procedure you'll need to get the 
whole array out of Sociable_Chain and pass it to that other procedure.

>    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;

If I call this function with N=9 it will return 7. Is that really right?

Why Integer? What should the function return if N is -38? (What are the 
proper divisors of 1 or 0 anyway?)

-- 
Bj�rn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu