Презентация на тему Программирование графической анимации

по диагонали экрана (щелкните по шарику на рисунке)

1
y = 1
dx = 1
dy = 1
FOR k =

0 TO 10000
CIRCLE (x, y), 3, 6
PAINT (x, y), 6
FOR i = 1 TO 10000: NEXT i
CIRCLE (x, y), 3, 4
PAINT (x, y), 4, 4
x = x + dx
y = y + dy
NEXT k

Программа движения шарика по диагонали выглядит следующим образом:

Здесь dx, dy – приращения соответствующих координат.

какой-либо границы экрана, отскакивал от нее как от стенки

(щелкните по шарику на рисунке).

Чтобы шарик не вылетал за верхний край экрана, необходимо, чтобы ордината объекта не превышала 350 pix (при стандартном размере экрана 640х350)
В связи с возникшей ситуацией в нашей задаче, когда необходимо выполнить определенные условия, напомним, что такое условный оператор.

выполняется, то выполняется «оператор1», в противном случае выполняется «оператор2».

В

записи условия можно использовать следующие символы:
=, >, >=, <, <=, <>

Существует неполная форма оператора:

IF <условие> THEN оператор1

= 350, причем, этот условный оператор мы должны добавить

в цикл, где в каждой итерации при каждом увеличении координаты Y происходит проверка данного условия. Как только оно выполнится, так координата Y, которая до сих пор увеличивалась с приращением dy = +1, должна будет уменьшаться и приращение станет равно: dy = -1.

Вот как будет выглядеть программа с добавлением условного оператора, которое учитывает столкновение шарика с верхней границей экрана:

1
y = 1
dx = 1
dy = 1
FOR k =

0 TO 10000
CIRCLE (x, y), 3, 6
PAINT (x, y), 6
FOR i = 1 TO 10000: NEXT i
CIRCLE (x, y), 3, 0
PAINT (x, y), 0, 0
IF y = 350 THEN dy = -1
x = x + dx
y = y + dy
NEXT k

0
y = 0

Запустим программу на выполнение:

шарик должен отскочить вниз так, как указано на схеме:
В

этом случае координата Y будет по-прежнему уменьшаться, т.е. dy = -1. Координата X, которая до сих пор увеличивалась, после выполнения условия x = 640 начнет уменьшаться или dх = -1, что то же самое.

dx = +1
dy = +1

1
y = 1
dx = 1
dy = 1
FOR k =

0 TO 10000
CIRCLE (x, y), 3, 6
PAINT (x, y), 6
FOR i = 1 TO 10000: NEXT i
CIRCLE (x, y), 3, 0
PAINT (x, y), 0, 0
IF y = 350 THEN dy = -1
IF x = 640 THEN dx = -1
x = x + dx
y = y + dy
NEXT k

Вот так будет выглядеть программа с добавлением второго условного оператора, где предусмотрено условие столкновение шарика с верхней границей экрана:

0

Запустим вновь программу на выполнение:
dx = +1
dy = +1

шарик должен отскочить вверх так, как указано на схеме:

dy

= -1

dy = +1

x = 0
y = 0

В этом случае координата Y начнет увеличиваться, т.е. dy = +1, а координата X будет по-прежнему уменьшаться, т.е. dх = -1.

dx = +1
dy = +1

dx = +1
dy = +1

dx = -1

условного оператора, где предусмотрено условие столкновение шарика с нижней

границей экрана:

SCREEN 9
COLOR 1, 0
WINDOW (0, 0)-(640, 350)
x = 1
y = 1
dx = 1
dy = 1
FOR k = 0 TO 10000
CIRCLE (x, y), 3, 6
PAINT (x, y), 6
FOR i = 1 TO 10000: NEXT i
CIRCLE (x, y), 3, 0
PAINT (x, y), 0, 0
IF y = 350 THEN dy = -1
IF x = 640 THEN dx = -1
IF y = 0 THEN dy = +1
x = x + dx
y = y + dy
NEXT k

0
y = 0

Запустим программу на выполнение:
dx = -1
dy =

+1

dx = +1
dy = +1

– столкновение его с левой границей. Достигнув этой границы

экрана, шарик должен отскочить вверх так, как указано на схеме:

dy = -1

dy = +1

dx = +1

x = 0
y = 0

В этом случае после выполнения условия x = 0 координата Х должна увеличиваться, т.е. dх = +1, а координата Y, которая до сих пор увеличивалась, по-прежнему будет увеличиваться, т.е. dy = +1..

dx = -1

dx = +1
dy = +1

1
y = 1
dx = 1
dy = 1
FOR k =

0 TO 10000
CIRCLE (x, y), 3, 6
PAINT (x, y), 6
FOR i = 1 TO 10000: NEXT i
CIRCLE (x, y), 3, 0
PAINT (x, y), 0, 0
IF y = 350 THEN dy = -1
IF x = 640 THEN dx = -1
IF y = 0 THEN dy = +1
IF x = 0 THEN dx = +1
x = x + dx
y = y + dy
NEXT k

Так будет выглядеть программа с добавлением четвертого условного оператора, где предусмотрено столкновение шарика с левой границей экрана:

0
y = 0

Запустим программу на выполнение и вот, что

получим:

dx = -1

dx = +1
dy = +1

двумя. Приращения по координатам dx и dy будут менять

знаки на противоположный.

SCREEN 9
COLOR 1, 0
WINDOW (0, 0)-(640, 350)
x = 1
y = 1
dx = 1
dy = 1
FOR k = 0 TO 10000 STEP 1
CIRCLE (x, y), 3, 6
PAINT (x, y), 6
FOR i = 1 TO 4000: NEXT i
CIRCLE (x, y), 3, 0
PAINT (x, y), 0, 0
IF y = 350 or y=0 THEN dy = - dy
IF x = 640 or x=0 THEN dx = - dx
x = x + dx
y = y + dy
NEXT k

на достаточное количество, то движение биллиардного шарика выглядит следующим

образом:

…и т.д.