Re: Beginner issue..

[Marcus F <trenatos@gmail.com>]

On Sunday, June 16, 2013 1:54:29 AM UTC-5, Marcus F wrote:
> Hi!
> 
> 
> 
> I'm Marcus, I'm completely new to ADA but not to programming.
> 
> I'm looking at a simple tutorial guide to pick up some basics of ADA, but I ran into an issue that I don't understand.
> 
> 
> 
> Here's the trivial example I followed:
> 
> 
> 
> with Ada.Text_IO, Ada.Integer_Text_IO;
> 
> use Ada.Text_IO, Ada.Integer_Text_IO;
> 
>  
> 
> procedure Compute is
> 
> 
> 
>  procedure Double(Item : in out Integer) is
> 
>  begin -- procedure Double.
> 
>    Item := Item * 2;
> 
>  end Double;
> 
> 
> 
>  X : Integer := 1;   -- Local variable X of type Integer.
> 
> 
> 
> begin -- procedure Compute
> 
>  loop
> 
>   Put(X);
> 
>   New_Line;
> 
>   Double(X);
> 
>  end loop;
> 
> end Compute;
> 
> 
> 
> 
> 
> Now, I expect X to double once per loop, but when I build and run, I just get 0's scrolling down my screen.
> 
> 
> 
> Could someone help out a newbie?

Let me rephrase that, I just removed the loop part, and the variable and Double seems fine, and displays the values I expect, but why would it just show a single line of 0's when in a loop?