номер 4, страница 67 - гдз по информатике 8 класс учебник Котов, Лапо

4.Придумайте и реализуйте анимацию движения нескольких объектов на фоне какого-либо рисунка. Например, кошка догоняет мышку. За основу можно взять пример 8.3. Рисунки подберите самостоятельно.

4.Решение задачи: создание программы анимации движения двух объектов на языке PascalABC.NET (с использованием графического модуля GraphABC, как в примере 8.3 учебника).

1. Подготовка графических файлов:
Для реализации сюжета, в котором кошка догоняет убегающую мышку на фоне комнаты, необходимо подготовить и поместить в одну папку с файлом программы три изображения:

• fon.jpg — фоновое изображение комнаты (размером $800 \times 500$ пикселей);
• mouse.png — изображение убегающей мышки на прозрачном фоне;
• cat.png — изображение догоняющей кошки на прозрачном фоне.

2. Алгоритм работы программы:
Мышка начинает движение впереди кошки, но кошка бежит с большей скоростью. На каждом шаге цикла перерисовывается фон (чтобы стирать предыдущее положение объектов), затем выводятся мышка и кошка со смещением по координате $x$. Чтобы изображение не мерцало, используется буферизация с помощью процедур LockDrawing и Redraw.

Программный код на PascalABC.NET:

uses GraphABC; var fon, cat, mouse: Picture; xCat, yCat: integer; xMouse, yMouse: integer; begin SetWindowSize(800, 500); SetWindowTitle('Кошка догоняет мышку'); // Загрузка графических файлов fon := Picture.Create('fon.jpg'); mouse := Picture.Create('mouse.png'); cat := Picture.Create('cat.png'); // Начальные координаты персонажей xCat := 20; yCat := 330; xMouse := 300; yMouse := 360; LockDrawing; // Отключение мерцания // Цикл анимации: продолжается, пока кошка не догонит мышку while xCat < xMouse do begin fon.Draw(0, 0, 800, 500); // Рисуем фон mouse.Draw(xMouse, yMouse, 80, 50); // Рисуем мышку cat.Draw(xCat, yCat, 150, 100); // Рисуем кошку Redraw; // Выводим кадр на экран Sleep(30); // Задержка 30 миллисекунд xCat := xCat + 6; // Скорость кошки: 6 пикселей за кадр xMouse := xMouse + 3; // Скорость мышки: 3 пикселя за кадр end; end.

Альтернативная реализация на языке Python (библиотека tkinter):

from tkinter import * import time root = Tk() root.title("Кошка догоняет мышку") canvas = Canvas(root, width=800, height=500) canvas.pack() # Загрузка изображений (формат PNG/GIF) fon_img = PhotoImage(file="fon.png") mouse_img = PhotoImage(file="mouse.png") cat_img = PhotoImage(file="cat.png") # Размещение объектов на холсте canvas.create_image(0, 0, anchor=NW, image=fon_img) mouse = canvas.create_image(350, 370, anchor=NW, image=mouse_img) cat = canvas.create_image(50, 350, anchor=NW, image=cat_img) # Анимация движения while True: cat_coords = canvas.coords(cat) mouse_coords = canvas.coords(mouse) if cat_coords[0] + 120 >= mouse_coords[0] + 40: break # Кошка догнала мышку canvas.move(mouse, 3, 0) # Смещение мышки на +3 canvas.move(cat, 6, 0) # Смещение кошки на +6 root.update() time.sleep(0.03) root.mainloop()

Пояснение к результату: оба объекта плавно перемещаются в горизонтальном направлении на фоне неподвижного рисунка. За счет того, что скорость кошки $v_1 = 6\text{ пкс/кадр}$, а скорость мышки $v_2 = 3\text{ пкс/кадр}$, расстояние между ними постепенно сокращается, создавая реалистичный эффект погони.