22 lines
405 B
ObjectPascal
22 lines
405 B
ObjectPascal
var
|
|
bsdseed, msseed: int64;
|
|
|
|
function bsdrand: cardinal;
|
|
begin
|
|
bsdseed := (1_103_515_245 * bsdseed + 12_345) and $7fffffff;
|
|
bsdrand := bsdseed;
|
|
end;
|
|
|
|
function msrand: cardinal;
|
|
begin
|
|
msseed := (214_013 * msseed + 2_531_011) and $ffffffff;
|
|
msrand := msseed shr 16;
|
|
end;
|
|
|
|
begin
|
|
writeln(' BSD MS');
|
|
bsdseed := 0;
|
|
msseed := 0;
|
|
loop 10 do writeln(bsdrand:12, msrand:12);
|
|
end.
|