Взаимодействие объектов презентация

if keypressed then
upr(x1, y1, sh, vs, h, green);
until ch=esc;

Шарик

Ракетка

значение.
Примеры:
вычисление , ,
расчет значений по сложным формулам
ответ на вопрос (выполнены условия или нет?)
Отличия
в заголовке
в теле функции: хотя бы раз имени функции должно быть присвоено значение

процедур
в конце заголовка через двоеточие указывается тип результата
функции располагаются ВЫШЕ основной программы

переменную, имя которой совпадает с названием функции; объявлять ее НЕ НАДО:

двух объектов:

if ((xр < xш) and (xш < xр + sh)) and
((abs(yш + r - yр) <= 3) or (abs(yш - r - yр - vs) <= 3)
then отскок;

sh

Здесь указаны условия отбивания от верхней и нижней грани ракетки, поэтому она должна быть узкой.

vs

and (x2 < x1 + sh)) and
((abs(y2 + r – y1) <= 3) or (abs(y2 – r – y1 - vs) <= 3)) then
proverka := true
else
proverka := false;
end;

repeat
neupr(x2, y2, hx, hy, r, yellow);
if keypressed then
upr(x1, y1, sh, vs, h, green);
if proverka(x1, y1, x2, y2) then hy:= -hy;
until ch=esc;

black);
bar(x, y, x + 50, y + 30);
str(n, s);
setcolor(col);
settextstyle(0, 0, 5);
outtextxy(x, y, s);
end;

//---В главной программе---
if proverka(x1, y1, x2, y2) then
begin
n := n + 1;
count(10, 10, n, red);
end;

Стираем предыдущий счёт

отбивания шарика
от ракетки.
3. Добавить 2 счёта. Отбитые шары и
пропущенные.
4. Добавить Конец игры (Game over).
5. Игра «Лузы». Подсчёт попаданий
для каждой лузы.
6. Игра «Собери шарики». Подсчет
пропущенных и собранных шаров.

14