1) Перемещение объекта по экрану.
Представим, что экран монитора это ночное небо, а на нем перемещается спутник (белая точка). Напишем фрагменты программы, перемещающие спутник по горизонтали слева направо и справа налево, по вертикали вниз и вверх, по диагоналям в ту и другую стороны. В любом из указанных случаев, фрагмент программы должен реализовать алгоритм:
В цикле от начального положения до конечного:
а) рисуем точку;
б) задерживаем;
в) стираем точку, наложив на нее черную;
г) изменяем координаты местоположения точки, на нужный шаг с помощью оператора присваивания или (и) автоматически.
Фрагменты программ могут выглядеть так:
| Вид движения | Фрагмент программы | Пояснение |
| Y=240 FOR X=0 TO 640 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT X | При движении вдоль оси Х изменяется соответствующая координата (автоматически, как параметр), можно добавить шаг, тогда движение будет скачками. |
| Y=240 FOR X=640 TO 0 STEP -1 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT X | При движении вдоль оси Х изменяется соответствующая координата (автоматически, как параметр), но в обратном направлении (шаг отрицательный) |
| X=320 FOR Y=0 TO 480 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT Y | При движении вдоль оси Y изменяется соответствующая координата (автоматически, как параметр), можно добавить шаг, тогда движение будет скачками. |
| X=320 FOR Y=480 TO 0 STEP -1 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 NEXT Y | При движении вдоль оси Y изменяется соответствующая координата (автоматически, как параметр), но в обратном направлении (шаг отрицательный) |
| X=0 FOR Y=0 TO 480 STEP 2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X+3 NEXT Y Так как экран не квадрат, то координату X нужно изменятьри движении вдоль оси хковую четностьрдинаты с большим шагом. | При движении по диагонали изменяются обе координаты. По вертикали экран короче, поэтому ось Y удобней изменять автоматически, как параметр, а X – с помощью присваивания. |
| X=640 FOR Y=480 TO 0 STEP -2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X-3 NEXT Y | Изменяются обе координаты. Ось Y автоматически, как параметр (шаг отрицательный, т.к. движение к 0), а X – с помощью присваивания (значение координаты тоже стремится к 0). |
| X=640 FOR Y=0 TO 480 STEP 2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X-3 NEXT Y | Изменяются обе координаты. Ось Y автоматически, как параметр, а X – с помощью присваивания (значение координаты уменьшается). |
| X=0 FOR Y=480 TO 0 STEP - 2 PSET(X,Y),15 FOR W=1 TO 500 NEXT W PSET(X,Y),0 X=X+3 NEXT Y | Изменяются обе координаты. Ось Y автоматически, как параметр (шаг отрицательный, т.к. движение к 0), а X – с помощью присваивания (значение координаты увеличивается). |
Задание:
Написать программу движения мяча произвольного радиуса, по фиксированной траектории в форме треугольника. Движение осуществляется по часовой стрелке. Треугольник изображать не нужно.
| |||||||
| |||||||
Решение:
Пусть радиус мяча будет вводиться с клавиатуры и храниться в переменной R.
Мяч движется вначале из точки (80,400) до точки (320, 160), затем до точки (560, 400) и возвращается в точку (80,400). Это движение может реализоваться при последовательном использовании трех циклов с параметром. Данные точки будут центрами окружности, изображающей мяч. Стирать мяч будем с помощью черного квадрата, описанного около окружности. В программе будет реализован следующий алгоритм:
1. Вводим значение радиуса;
2. Зафиксируем значение переменной х=80;
3. В цикле с параметром у от 400 до 160 с отрицательным шагом:
а) рисуем мяч;
б) задерживаем;
в) стираем;
г)изменяем координату по оси х с помощью оператора присваивания на величину шага со знаком «+».
4. В цикле с параметром у от 160 до 400 с положительным шагом:
а) рисуем мяч;
б) задерживаем;
в) стираем;
г)изменяем координату по оси х с помощью оператора присваивания на величину шага со знаком «+».
5. В цикле с параметром х от 560 до 80 с отрицательным шагом:
а) рисуем мяч;
б) задерживаем;
в) стираем.
Программа:
CLS
PRINT “введите радиус мяча”
INPUT R
X=80
FOR Y=400 TO 160 STEP -1
CIRCLE(X, Y), R, 4
PAINT(X, Y), 4, 4
FOR W=1 TO 500
NEXT W
LINE(X-R, Y-R)-(X+R, Y+R), 0, BF
X=X+1
NEXT Y
FOR Y=160 TO 400
CIRCLE(X, Y), R, 4
PAINT(X, Y), 4, 4
FOR W=1 TO 500
NEXT W
LINE(X-R, Y-R)-(X+R, Y+R), 0, BF
X=X+1
NEXT Y
FOR X=560 TO 80 STEP -1
CIRCLE(X, Y), R, 4
PAINT(X, Y), 4, 4
FOR W=1 TO 500
NEXT W
LINE(X-R, Y-R)-(X+R, Y+R), 0, BF
NEXT Y
END
