Курсовой проект групп 3341 и 3382 / DMCore / Randomizer

unit Randomizer;

interface

uses
SysUtils,
Math;

type
TDMRnd = class
protected
m_seed : Integer;

public
constructor Create(m : Integer); overload;
procedure SetSeed(m : Integer);
function nextDouble : Double;
function nextInt(max : Integer) : Integer;
function next(s : Integer; num:Integer) : Integer;
end;

implementation

constructor TDMRnd.Create(m : Integer);
begin
m_seed := m;
end;

procedure TDMRnd.SetSeed(m : Integer);
begin
m_seed := m;
end;

function TDMRnd.nextDouble : Double;
var
seed : Integer;
n : Double;
begin
seed := Random(m_seed);
seed := (seed * 9301 + 49297) mod 233280;
n := abs(seed / 233280);
Result := n;
end;

function TDMRnd.nextInt(max : Integer) : Integer;
var
seed : Integer;
n : Double;
begin
Result := Round(max * nextDouble);
end;

function TDMRnd.next(s : Integer; num:Integer) : Integer;
var
seed:LongInt;
begin
seed:=s*1034567+12345 ;
// seed:=s*196314+907633 ;
if seed >= num -1 then seed:= seed mod num;
Result:= seed;
end;

end.