28 

    28 

    29 procedure SetRandomSeed(Seed: shortstring);

    29 procedure SetRandomSeed(Seed: shortstring);

    30 function  GetRandom: hwFloat; overload;

    30 function  GetRandom: hwFloat; overload;

    31 function  GetRandom(m: LongWord): LongWord; overload;

    31 function  GetRandom(m: LongWord): LongWord; overload;

    32 function  rndSign(num: hwFloat): hwFloat;

    32 function  rndSign(num: hwFloat): hwFloat;

    36 

    33 

    37 implementation

    34 implementation

    39 

    35 

    40 var cirbuf: array[0..63] of Longword;

    36 var cirbuf: array[0..63] of Longword;

    41     n: byte;

    37     n: byte;

    42 

    38 

    43 function GetNext: Longword;

    39 function GetNext: Longword;

    74 GetRandom.QWordValue:= GetNext

    70 GetRandom.QWordValue:= GetNext

    75 end;

    71 end;

    76 

    72 

    77 function GetRandom(m: LongWord): LongWord;

    73 function GetRandom(m: LongWord): LongWord;

    78 begin

    74 begin

    80 GetNext;

    75 GetNext;

    81 GetRandom:= GetNext mod m

    76 GetRandom:= GetNext mod m

    82 end;

    77 end;

    83 

    78 

    84 function rndSign(num: hwFloat): hwFloat;

    79 function rndSign(num: hwFloat): hwFloat;

    85 begin

    80 begin

    86 num.isNegative:= odd(GetNext);

    81 num.isNegative:= odd(GetNext);

    87 rndSign:= num

    82 rndSign:= num

    88 end;

    83 end;

    98 

    84 

    99 procedure initModule;

    85 procedure initModule;

   100 begin

    86 begin

   101     n:= 54;

    87     n:= 54;

   102     FillChar(cirbuf, 64*sizeof(Longword), 0);

    88     FillChar(cirbuf, 64*sizeof(Longword), 0);