Справочник функций и процедур Delphi: Random

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

|  усилитель интернет-сигнала коннект 2.0 для Yota, LTE  |

Random
Функция
Генерирует случайное целое число или число с плавающей запятой System unit
  
1 function Random : Extended;

2 function Random ( LimitPlusOne : Integer ) : Integer;

Google  
 
Описание
Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:

0 <= Number <1.0

или целые числа в диапазоне:

0 <= Number
Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).

Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.
Похожие команды
Randomize  Устанавливает генератор случайного числа на следующее значение

RandomRange  Генерирует произвольное число в пределах введённого диапазона

RandSeed  Устанавливает генератор случайного числа на следующее значение

 
Пример кода : Генерация набора челых чисел и чисел с плавающей запятой
var
  float : single;
  int   : Integer;
  i     : Integer;

begin
  // Получение случайных чисел с плавающей запятой в диапазоне 0 <= number <1.0
  for i := 1 to 5 do
  begin
    float := Random;
    ShowMessage('float = '+FloatToStr(float));
  end;

  ShowMessage('');

  // Получение целых случайных чисел в диапазоне 1..100
  for i := 1 to 5 do
  begin
    int := 1 + Random(100);    // Эти 100 значений дают диапазон 0..99
    ShowMessage('int = '+IntToStr(int));
  end;
end;
float = 2.3283064365387E-10
float = 0.031379981256104
float = 0.861048460006714
float = 0.202580958604813
float = 0.2729212641716


int = 68
int = 32
int = 17
int = 38
int = 43
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook