Random. отрицательные и положительные числа

[Seran4ek]

Пожалуйста, подскажите, как генерировать случайные положительные и отрицательные числа?
RandomRange конечно хорош, но он генерит целые числа. да, могу я и с ним поработать через коэфициенты, но есть ли способы полегче?

[Neeter]

Вот пример:

procedure TForm1.Button3Click(Sender: TObject);
var
 b: boolean;
begin
 b := boolean(random(2)); //Случайно выбираем, добавится положительное или отрицательное число
 if b then memo1.Lines.Add(IntToStr(random(1000)))
 else memo1.Lines.Add(IntToStr(-random(1000)));
end;

[mihali4]

Генерите два числа и делите друг на друга - получите вещественные...

[Alex Cones]

Ну, насколько я помню паскаль, существует еще и Random - даст 0<X<1 и еще Random*X - Даст вещественное число от 0 до 55.

[Seran4ek]

Neeter
очень интересный метод.
я вот хотел создать массив со знаком + и минус и через рандомрэндж выбирать позицию элемента в массиве.
но у вас чуть по проще будет.

но тут меня осинило.
RandomRange(-100,100)/100;
впринципе это тот же рандом от 0 до 1, ток генерит и отрицательные))

всем спасибо)

[kornei]

Seran4ek
а не легче через (random(a)-a/2) где вместо а числа?

[Tanushangel]

Я завожу в код:
A[i]:=random(100)-50+random(10000)/10000;
А оно закрывает экзешник и говорит что так и было, что делать?

[Serge_Bliznykov]

что значит - "закрывает экзешник"?! Вообще никаких ошибок не выдаёт?
А не должна закрывать?
Давайте полностью код вашей программы, будет повод для разговора!

[Tanushangel]

К сожалению, того кода уже нет( Я поговорила с преподавателем и узнала, что мне рандом вообще не нужен)

[type_Oleg]

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

Генерите два числа и делите друг на друга - получите вещественные...

Если X, Y - независимые равномерно распределенные случайные числа, то Z = X/Y - тоже случайное, но распределение совсем не равномерное.