function RandG

Nemo_1
Дата: 08.06.2009 21:52:48
Доброго времени суток.
Вот нада создать генератор случайных чисел, по описанию RandG оч подходит. Копался в Хелпе, но так и не заработала.
Описание функции:
function RandG(Mean, StdDev: Extended): Extended;

Насколько понимаю тип Extended это диапазон значений(к примеру: 100-200).
Вставил функцию в соответствующий код програмы, но при компиляции выдает ошибку:
RandG(!500, 100-200);
Выдает ошибку перед цыфрой "500"(там где стоит восклицательный знак). Мотивирует тем чо там незватает какого-то знака(типа: '+' или '-' или еще чего-то). Функцию пришлось описать в Var'ре, описывал её естественно как Extended. Даже создавал переменную того же типа, присваивал функцию ей и переменную подставлял в код.

P.S. Random - не подходит, т.к. генерирование должно начинатся не с нуля и желательно, как в RandG, с зарание заданой величены.
Соколинский Борис
Дата: 08.06.2009 22:54:21
Nemo_1
P.S. Random - не подходит, т.к. генерирование должно начинатся не с нуля и желательно, как в RandG, с зарание заданой величены.
Это глупости. Если не знаешь, чем отличаются равномерное и нормальное распределения, напиши, что хочешь сделать.
misha mike
Дата: 09.06.2009 01:23:43
Nemo_1,
Это конгениально! Особенно про Extended.

P.S. Random(x)+y даст случайное число в диапазоне [y, y+x).
Nemo_1
Дата: 09.06.2009 02:32:48
misha mike
P.S. Random(x)+y даст случайное число в диапазоне [y, y+x).

СПС, этот вариант годится))

Соколинский Борис
напиши, что хочешь сделать.

Вообще хотелось бы чтоб можно было задать конкретное значение с которого начнется генерация.
Например, в диапазоне от 0-1000, генерация начиналась с 550, а не с 0-ля.

P.S. Странно но мне как раз говорили что через RandG это проще будет сделать. И хотелось бы узнать в чем ошибка при описании RandG. Там нуно было формулу вводить вместо одного из значений?
wellwell
Дата: 09.06.2009 05:01:57
uses Math;

function RandomRange(const AFrom, ATo: Integer): Integer;
Nemo_1
Дата: 09.06.2009 10:44:51
wellwell
uses Math;

function RandomRange(const AFrom, ATo: Integer): Integer;


СПС)
помогло)