Zufallsfunktion selbst schreiben... kann jemand helfen?

[glkgereon]

*kram c-buch raus und übersetz in pascal*

Zitat:

Zufallsfunktion selbst schreiben... kann jemand helfen?

ja ich hab ma sonne art zufallsfunktion rausgesucht:

Delphi-Quellcode:

const
  m=10000000;
  m1=10000;

var
  a:longint;

function mult(p, q:longint):longint;
var p1, p0, q1, q0:longint;
begin
p1:=p/m1; 
p0:=p mod m1;
q1:=q/m1;
q0:=q mod m1;
result:= (((p0*q1+p1*q0) mod m1)*m1+p0*q0 mod m;
end;

procedure seedrand(seed:longint);
begin
a:=seed;
end;

function getrandom:longint;
const 
  b=pi*10000000;
begin
result:=(mult(a,b) +1 ) mod m;
inc(a);//die zeile is von mir, da man sonst seed immer wieder aufrufen müsste.....
end;

ich hoffe ich hab das richtig übersetzt, da es in besagtem buch als c++-klasse dargestellt war...