Для
того, чтобы картинки не были монотонными и
регулярными, можно задавать фигурам
случайные размеры, цвет, координаты. Для
этого имеется специальная функция Random.
Она генерирует случайные числа из [0, 1). Для
расширения первоначального промежутка
используется функция Random(I:
word),
которая выдает число из диапазона 0… I.
На самом деле эти функции генерируют
некоторую последовательность
псевдослучайных чисел, и чтобы добиться
иллюзии полной «случайности» используют
команду Randomize,
которая изменяет базу датчика случайных
чисел.
Пример.
Нарисовать в случайном месте экрана точку
случайного цвета
Фрагмент
программы:
Randomize
x:=random(640);
y:=Random(480); c:=Random(15);
PutPixel(x,
y, c);
Пример.
Нарисовать
5000 точек случайного цвета в случайном месте.
Фрагмент
программы:
For
i:=1 to 5000 do
begin
x:=Random(640);
y:=Random(480); c:=Random(15);
PutPixel(x,
y, c);
end;
<<<Предыдущий урок | К содержанию | Следующий урок>>>