Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Random

генерирует случайное целое число или число с плавающей точкой

|| 1 function Random : Extended;

|| 2 function Random ( LimitPlusOne : Integer ) : Integer;

Описание:

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

     0 <= число < 1.0

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

     0 <= число < LimitPlusOne

     Delphi Использует псевдо произвольный генератор чисел, который всегда возвращает ту же последовательность величин (232) всякий раз, когда программа работает. Эта особенность может быть использована в построении графических рисунков. Например, цикл, в котором проводиться 100 линий с началом в конкретной точке, если длину линий мы ограничиваем Random(100), то в результате получим своеобразную звезду, которая будет отображаться на всех компьютерах одинаково.

     Если же вас наоборот не устраивает эта особенность функция Random, то используйте процедуру Randomize. Эта процедура создаёт псевдо произвольную последовательность, основываясь на времени дня.

Пример кода:

var
   float : single;
   int : Integer;
   i : Integer;

begin
   // Get floating point random numbers in the range 0 <= number < 1.0
   for i := 1 to 5 do
   begin
     float := Random;
     ShowMessage('float = '+FloatToStr(float));
   end;

   ShowMessage('');

   // Get an integer random number in the range 1..100
   for i := 1 to 5 do
   begin
     int := 1 + Random(100); // The 100 value gives a range 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