Генератор случайных ВЕЩЕСТВЕННЫХ чисел (Паскаль)

[igor_564]

Я знаком с функцией random(x) в Паскале, но она генерирует случайные целые положительные числа.
Есть ли в Паскале генератор случайных вещественных чисел?
Здорово бы ещё было чтоб они были отрицательными и положительными. Если такой функции нет то просто направьте меня в нужном направлении (если можно это как-то реализовать через другие операторы).

[Vistar]

x := Random(50)-25
что то типа этого. тоисть генерируеш число и от него отнимаеш какое то число. вот этот пример будет генерировать число от -25 к 50.. Randomize не забудь..

[igor_564]

Спасибо, хорошая мысль.

P. S. Если у кого ещё есть мысли --- буду рад!
P. S. Что-то у меня и без Randomize хорошо работает. Хотя везде о нём пишут.

[Vistar]

Без Randomize программа будет генерировать одно и то же число вообщето.

[maladoy]

randomize;
xr:=random(100)-70+random(100000)/100000;

[bondik]

randomize;
xr:=random(1000)/(random(1000)-random(1000));

[ivashka_1]

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

Без Randomize программа будет генерировать одно и то же число вообщето.

Ну вообще то да

[igor_564]

Ага, понял. Спасибо огромное!

P. S. Вот что в итоге получилось:

program len; {Для тех, кому не хочется придумывать 100
и более вещественных элементов массива}
var
vvod : text;
i : integer;
x : real;
begin
assign(vvod, 'C:\BP\My_pro~1\Level_4\TXT\files\vvod.txt'); rewrite(vvod);
randomize;
for i:=1 to 1001 do begin
					x:=random(1001)/(1+random(1001))-random(101)/(1+random(101));
					writeln(vvod, x:10:3);
					end;
end.

P. S. Исправил.

[Serge_Bliznykov]

igor_564
это плохой КОД!
Т.к. функция random генерит числа от нуля, то Вы можете иногда получать исключения вида Divide by Zero
(деление на ноль)
рекомендую везде, где вы делите на randоm сдвинуть шкалу, увеличив делитель на единицу. Например, так:

x:=random(1001)/(1+random(1000))-random(101)/(1+random(100));

[mihali4]

http://www.programmersforum.ru/showthread.php?t=75628