*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...