Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Вниз

Как получить случайное Integer и Single ?   Найти похожие ветки 

 
randomizer   (2007-02-04 04:45) [0]

Не от 0 до 1, и не в диапазоне. А просто случайное Integer и Single.
Есть такие фукнции?


 
tesseract ©   (2007-02-04 05:41) [1]

Random(диапазон) - из простых. Они имеют парвномерное распределение. А так - изучать теорию, агоритмы генерации случайных чисел не из простых.


 
randomizer   (2007-02-04 05:50) [2]


> tesseract ©   (04.02.07 05:41) [1]
> Random(диапазон) - из простых.


То есть ты тоже не знаешь диапазона?


 
TUser ©   (2007-02-04 06:35) [3]

для Integer: Random (MaxInt) * (Random (1) * 2 - 1)

зы. ноль будет получаться в два раза чаще других чисел


 
randomizer   (2007-02-04 06:41) [4]

В том то и дело. Кроме того иногда будет возникать ошибка.


 
TUser ©   (2007-02-04 06:51) [5]

> Кроме того иногда будет возникать ошибка.

Что за ошибка?

Ну, если заняться нечем, то
var i, r: integer;
begin
 r := 0;
 for i := 0 to sizeof (r) * 8 - 1 do
   r := r or (Random (1) shl i);
 {r - искомое число}
 ...
end;


 
randomizer   (2007-02-04 06:57) [6]

Одно число не будет появляться никогда. Такая ошибка.


 
Думкин ©   (2007-02-04 07:05) [7]

round((random*2 - 1)*2*MaxInt)

Надо только помнить, что диапазон у random - [0,1) Но можно и тут - изменить смещение и масштаб. Считать лень.

А для Single - диапазон описан константами в Math.


 
TUser ©   (2007-02-04 07:45) [8]

Random (2) и рандом целочисленный использовать. Будет [0;2).



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.052 c
15-1170388196
Slider007
2007-02-02 06:49
2007.02.25
С днем рождения ! 2 февраля


15-1170671330
Dimedrol
2007-02-05 13:28
2007.02.25
Посоветуйте MySQL клиента с UTF-8


2-1170964857
Footballer
2007-02-08 23:00
2007.02.25
RichEdit


2-1170926132
kilop
2007-02-08 12:15
2007.02.25
как сделать так чтобы при запуске форма появлялась в центре


2-1170511122
Gamer
2007-02-03 16:58
2007.02.25
удаление строки с TStringGrid....не обновляется





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский