Практическое задание N 1. 50

Модифицировать программу "цветные волны точек":

1. Создать два перекрещивающихся набора волн: по горизонтали и по вертикали.

2. Изменить условие отражения точек от границ экрана: при достижении горизонтального края должны "прилипать" с изданием звука точки одного цвета, затем другого и т. д. до остановки всех точек.

3. Сгенерировать волны, движущиеся из левой верхней четверти экрана по диагонали. Изменять цвет точек при каждом их отражении от границ экрана.

4. Сгенерировать две волны, движущиеся из правого и левого верхних углов экрана по диагонали. Уменьшать скорость точек при каждом их отражении от границ экрана.

{-----------------------------------------------------------------

Фрагмент N 6 программы "молекулы газа в поле тяготения"

( рисование массива пикселов, хаотично перемещающихся в заданном направлении).

------------------------------------------------------------------}

for k:= 1 to N do begin X[k]:= random(Gx);

Y[k]:= random(Gy);

P[k]:= random(7)+9 end;

Repeat

for k:= 1 to N do begin

PutPixel(X[k], Y[k], 0);

dx:= -25 + random(51); dy:= -25 + random(71);

if (X[k]+dx > 0) and (X[k]+dx < Gx) then X[k]:= X[k] + dx;

if (Y[k]+dy > 0) and (Y[k]+dy < Gy) then Y[k]:= Y[k] + dy;

PutPixel(X[k], Y[k], P[k])

End

Until KeyPressed;

{-----------------------------------------------------------------}

В программе определены массивы координат точек X[1. . N], Y[1. . N] и цвета P[1. . N]. Точки гасятся, случайным образом смещаются их координаты на dx, dy, а затем точки вновь высвечиваются прежним цветом - создается иллюзия движения. Причем dx генерируется в диапазоне -25. . . 25, а dy - в диапазоне -25. . . 45, поэтому точки стремятся к нижней границе экрана, имитируя поведение молекул газа в толстом слое атмосферы. Введено ограничение на перемещение - если при очередном назначении dx или dy точка выйдет за границу экрана, то изменения соответствующей координаты не произойдет.