Практическое задание 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;
{-----------------------------------------------------------------}
