Практическое задание N 1. 52
Модифицировать программу "пчелиный
рой":
1. Замедлить
перемещение роя и запрограммировать
изменение направления перемещения при
достижении края экрана.
2. Ускорить
перемещение роя и запрограммировать
движение по вертикали с изменением
направления перемещения при достижении
края экрана.
3. Создать два
роя разного цвета, один
из которых случайным образом
перемещающиеся по экрану,
а другой движется вслед за первым.
4. Создать два
роя разного цвета, один
из которых случайным образом
перемещающиеся по экрану,
а другой движется в
противоположную сторону.
5.
Смоделировать
движение кометы.
{------------------------------------------------------------------
Фрагмент N 8 программы
"мячик в коробке"
( рисование движущейся
окружности с анализом границ области по
цвету пиксела .
------------------------------------------------------------------}
x1:=100;
x2:=400; y1:=120; y2:=380; {Координаты углов наружной коробки}
dx:=
-5; dy:= 3; {
начальный шаг движения мяча }
r:= 4;
{
Радиус мяча }
SetColor(11); Rectangle(x1,
y1, x2, y2); {
Наружная коробка }
Rectangle(x1+30,
y1+70, x1+120, y1+90); {
Внутренние коробки }
Rectangle(x1+200, y1+90, x1+230, y1+200);
xc:= x1+90; yc:= y1+110;
Circle(xc, yc, r); {
Мячик }
ax:=
abs(dx); ay:= abs(dy); { число
пикселов по ходу движения }
Repeat
i2:= 0; i1:= 0;
{
признаки удара о стенку равны нулю }
zx:= dx div abs(dx); zy:=
dy div abs(dy); { направление движения }
for i:= 1 to ax do
if GetPixel(xc+(r+i)*zx, yc) > 0 then { удар
о
вертикальную
стенку }
begin dx:= -dx;
i1:= 1; break
end;
for
i:= 1 to ay do
if GetPixel(xc, yc+(r+i)*zy) > 0 then {
удар о горизонтальную стенку }
begin dy:= -dy; i2:=1;
break end;
if
(i1+i2 = 0) then for i:= 1 to ax do for k:= 1 to ay do
if (GetPixel(xc+(r+i)*zx, yc+(r+k)*zy)>0) then { удар
во
внешний
угол
}
begin dy:= -dy; dx:= -dx;
break end;
SetColor( 0);
Circle(xc, yc, r); {
стирание
мяча
}
xc:=
xc+dx; yc:= yc+dy;
{
приращение координат }
SetColor(14); Circle(xc, yc, r) {
рисование мяча }
Until
Keypressed;
{-----------------------------------------------------------------}
Операторами Rectangle рисуется лабиринт,
образованный прямоугольником,
содержащим два вложенных в него
прямоугольника. Внутри лабиринта
начинается перемещение окружности (мячика)
с центром (XC, YC) и радиусом "r".
Принцип движения мяча: рисование,
задержка, рисование
цветом фона (стирание), приращение
координат в цикле. По
цвету пиксела анализируется положение края
мяча относительно границ лабиринта (вертикальной
и горизонтальной), а
также внешний угол. Если
мячик "достигает" границы,
то соответствующее приращение
координат изменяет знак.
Момент смены направления движения
озвучен.
