Генерация Случайных Чисел

[kop]

Здравствуйте!
Нужно написать функцию "генерация случайных в диапазоне [-x;x]"
Может у кого-то есть исходник?
нужно написать свою функцию, а не ту что есть в библиотеке MAth
ЗАранее спасибо

[NetSpace]

//скажем, от -10 до +10
Randomize;
n:=(1-2*random)*10;

если надо целые, то

n:=Round((1-2*random)*10)

[kop]

Сообщение от NetSpace

//скажем, от -10 до +10
Randomize;
n:=(1-2*random)*10;

если надо целые, то

n:=Round((1-2*random)*10)

так это же встроенная функция Random, просто я пишу собственную библиотеку Dll, и там Random не опознает

[Camaro Chevelle]

генератор целых это
x[i+1]=(A*x[i]+B) mod P как-то так
P простое, B вроде тоже, про А не помню
x[i] очередное сгенерированное число