23 FreeBASIC - блуждающих точек рой(ещё)

Поизменяем немного программу прошлого примера. Когда счёт идет на тысячи элементов слишком накладно хранить столь мелкие числа в integer достаточно будет типа short. А если немного подумать можно расход памяти уменьшить ещё в два раза. Это правда усложнит вычисления и читаемость программы, но знать о такой возможности надо.

Ещё поговорим здесь о константах. Константа это как бы такая переменная, но не переменная)) Переменная - изменяется, константа не изменяется, а в остальном они похожи. Обычно имя константы пишут ЗАГЛАВНЫМИ_БУКВАМИ. Это просто такая договорённость чтобы по тексту их всегда видеть. Если помните цвет задаётся кодом от 0 до 15, а помните какой цвет какому коду отвечает? Это можно было задать константами (BLACK=0...GRAY=7...WHITE=15)

Зачем константа в нашем примере? Если мы хотим запустить программу несколько раз, с разным количеством точек, нам придется три раза менять это количество просматривая весь текст программы.

А используя константу достаточно будет изменить её начальное значение лишь раз. Вас не насторожило слово изменить? Изменить константу? Уточню - значение константы не изменяется в процессе работы программы. Тут ещё одна выгода будет - если попытаться изменить константу компилятор об этом предупредит и одной ошибкой в программе будет меньше.

const N as integer = 100

Сто разноцветных точек смотрятся не хуже 100 000)))

screen 19
const N as integer = 100
dim as short x(N),y(N)
dim as byte c(N)
dim as long i

for i=1 to N
    x(i)=400:y(i)=300:c(i)=int(rnd()*8)+8
next i

do
    for i=1 to N
        x(i)=x(i)+int(3*rnd()-1)
        y(i)=y(i)+int(3*rnd()-1)
        pset(x(i),y(i)),c(i)
    next i
    
    sleep 5
    cls
loop while inkey=""