Тема: [Delphi] l2top.ru
Показать сообщение отдельно

  #13  
Старый 01.03.2010, 01:38
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
По умолчанию

вот пример генерации))

Код:
Пример кода : Генерация набора челых чисел и чисел с плавающей запятой
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
 
Ответить с цитированием