Re: random number generation

[Andrew <eagletalon@chartermi.net>]

tmoran@acm.org wrote:
>>I need to write a program to randomly grab a integer from 1 - 4,and
>>Does this exist in Ada?
> 
>   type Options is range 1 .. 4;
>   package Generate_Options is new Ada.Numerics.Discrete_Random(Options);
>   A_Generator : Generate_Options.Generator;
>   ...
>   X := Generate_Options.Random(A_Generator);
>   Ada.Text_IO.Put_Line("Selected option is" & Options'image(X));
> You could of course replace type Options with
>   type Suits is (Spades, Hearts, Diamonds, Clubs);
> and have several Dealers instead of a single A_Generator, and so forth.
> 
> 
>>     I don't believe it does from what I have been reading.
> 
>   What have you been reading?  If your book doesn't cover random
> number generation, you can go to the authoritative source, section
> A.5.2 of the Ada 95 Reference Manual (available online).


ok in the previous post .. I said thanks for the help.. and I've been 
trying to figure out how to implement the code that you gave me above..

the problem is I get errors such as
mazecreate.adb:18:04: statement not allowed in declarative part

or

mazecreate.adb:26:01: declarations must come before "begin"

depending on exactly how I set the code up.

here is the coding at it's current standing.
========================================
====================================

-- This program is to open file 'Map2', then print a bunch of characters 
'x' in the
-- form of a square.
 

with TEXT_IO;
use TEXT_IO;
procedure Mazecreate is
    spot: CHARACTER:='x';
    spott: CHARACTER:='T';
    sitt: Boolean:=True;
    orig: INTEGER:=5;  -- point of origin for map
    down: Integer:=10;  -- down map
    acros: INTEGER:=11; -- across map
    row: INTEGER:=1;
    col: INTEGER:=1;
    X: INTEGER;
    map_file:FILE_TYPE;

    A_Generator : Generate_Options.Generator;
    X:= Generator_Options.Random(A_Generator);
 

    package Number_IO is new INTEGER_IO(INTEGER);
    use Number_IO;
    package FLOAT1_IO is new FLOAT_IO(FLOAT);
    use FLOAT1_IO;

    type Options is range 1 .. 4;
    package Generate_Options is new
       Ada.Numerics.Discrete_Random(Options);

Begin
 
                         -- **********************
-- ** section to print **
-- **   the randomly   **
-- **  created number  **
-- **********************

   Ada.Text_IO.Put_Line("Selected option is" & Options'image(X));

 

    -- *********************
    -- **   section to    **
    -- **   create the    **
    -- ** square of Stars **
    -- *********************
 
                              Create (map_file, out_FILE, "Map2");
    if IS_OPEN(map_file) then
       for i in 1..down loop
          for j in 1..acros loop
          put (map_file, spot);
          end loop;
        NEW_LINE(map_file);
       end loop;
       Put(map_file, spott);
       CLOSE (map_file);
 

   else
      Put_Line("Map file didn't open .. Killing Program");
      Return;
end if;
 

end Mazecreate;
==============================
===============================================
Now I know I have something wrong on the above code.. but I can't figure 
out what is wrong.. and I've tried moving different sections of your 
code around.. but to no avail.

any help is appreciated.
Andrew