home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / RandomNumber.def < prev    next >
Encoding:
Modula Definition  |  1988-09-14  |  575 b   |  22 lines
  1. (* $N- *)
  2. DEFINITION MODULE RandomNumber; (* jr/2jul87 *)
  3.  
  4. PROCEDURE Random(): REAL;
  5. (*
  6.   This function returns real pseudo-random numbers in the range [0,1).
  7.   It is guaranteed that the period of the sequence is greater than 2^23.
  8. *)
  9.  
  10. PROCEDURE RND(n: LONGINT): LONGINT;
  11. (*
  12.   This function returns integer pseudo-random numbers in the range [0,n).
  13.   It's function can be thought as rolling a dice with n sides. So you can
  14.   implement a 'true' dice with a function like: eyes:=RND(6)+1
  15. *)
  16.  
  17. PROCEDURE GetSeed(VAR s:LONGINT);
  18.  
  19. PROCEDURE PutSeed(s:LONGINT);
  20.  
  21. END RandomNumber.
  22.