home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Random.def < prev    next >
Text File  |  1994-05-25  |  2KB  |  48 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLFP
  3. |#PROJECT #|"ImportHelp"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE Random;
  11.  
  12. (*----------------------------------------------------------------------------*)
  13. (* Funktion  : Intitialiert den Zufallsgenerator neu.                         *)
  14. (*----------------------------------------------------------------------------*)
  15.  
  16. PROCEDURE Randomize;
  17.  
  18. (*----------------------------------------------------------------------------*)
  19. (* Funktion  : Liefert eine zufällige Realzahl.                               *)
  20. (* Parameter :                                                                *)
  21. (*              -> Zufällige Realzahl.                                        *)
  22. (*----------------------------------------------------------------------------*)
  23.  
  24. PROCEDURE RealRND():LONGREAL;
  25.  
  26. (*----------------------------------------------------------------------------*)
  27. (* Funktion : Liefert eine zufällige Longcardzahl aus einem bestimmten Bereich*)
  28. (* Parameter:                                                                 *)
  29. (*            Max <-  Maximal  mögliche Zufallszahl.                          *)
  30. (*                 -> Zufällige Longcardzahl.                                 *)
  31. (*----------------------------------------------------------------------------*)
  32.  
  33. PROCEDURE RND(Max IN 2 : LONGCARD):LONGCARD;
  34.  
  35. (*----------------------------------------------------------------------------*)
  36. (* Funktion  : Liefert einen zufälligen Boolwert.                              *)
  37. (* Parameter :                                                                *)
  38. (*              -> Zufälliger Boolwert.                                       *)
  39. (*----------------------------------------------------------------------------*)
  40.  
  41. PROCEDURE BoolRND():BOOLEAN;
  42.  
  43.  
  44. GROUP
  45.   All   = Randomize,RealRND,RND,BoolRND;
  46.  
  47. END Random.
  48.