Вы, наверное, помните, что звёзды на небе различаются не только положением, но и яркостью, и даже цветом, а волшебное явление дисперсии показывает их нам даже с лучами...
Для начала сделаем звёзды разноцветными.
• Вы, конечно, помните, что в Pascal доступны 16 цветов (с номерами от 0 до 15). Какой командой можно загадать случайное число из этого промежутка? (random(16))
• Измените программу так, чтобы на экран выводились точки случайного цвета.
• Запустите её.
Да, звёзды теперь разноцветные, но что-то уж слишком тёмные, не бывает таких звёзд! Чтобы звёзды выводились только в светлых тонах, необходимо вместо промежутка [0;15] взять промежуток [9;15] (вспомните таблицу цветов). Как же получить такой промежуток?
Давайте порассуждаем:
функция random(16) возвращает случайное число из промежутка, длиной в 16 значений;
в промежутке [9;15] содержится 15-(9-1)=7 значений;
значит, нам нужна функция random(7) — она вернёт значение из промежутка [0:6];
чтобы «сдвинуть» этот промежуток до требуемого, достаточно к значению функции прибавить 9 — получится random(7)+9.
• Измените формулу в программе так, чтобы звёзды были светлыми.
