Построить движущиеся изображения - Pascal
Формулировка задачи:
Задача №1.
Построить граф. изображение на любую тему используя 5 графических фигур.
Задача №2.
Построить изображение так что бы оно двигалось с Верху Вниз.
Помогите Пожалуста!!!!
Решение задачи: «Построить движущиеся изображения»
textual
Листинг программы
Program round; Uses crt,graph; Var gd,gm,x,y,xd,yd,k,l,kd,ld: integer; Begin gd:=detect; yd:=1; y:=32; xd:=1; x:=32; kd:=1; k:=608; ld:=1; l:=415; Initgraph(gd,gm,''); Setbkcolor(15); Repeat If (y<31) or (y>449) then yd:=-yd; If (x<31) or (x>609) then xd:=-xd; If (k<31) or (k>609) then kd:=-kd; If (l<31) or (l>449) then ld:=-ld; Setcolor(lightgreen); Circle(x,y,30); Setcolor(12); Circle(k,l,30); Delay(14); Setcolor(15); Circle(x,y,30); Circle(k,l,30); y:=y+yd; x:=x+xd; k:=k+kd; l:=l+ld; Until keypressed; Readkey; Closegraph; End.
Объяснение кода листинга программы
Список действий в коде:
- Начало выполнения программы
- Инициализация переменных: gd, gm, x, y, xd, yd, k, l, kd, ld
- Инициализация графического режима с помощью функции Initgraph
- Установка цвета фона на 15
- Переменная yd изменяется на противоположное значение yd, если y меньше 31 или больше 449
- Переменная xd изменяется на противоположное значение xd, если x меньше 31 или больше 609
- Переменная kd изменяется на противоположное значение kd, если k меньше 31 или больше 609
- Переменная ld изменяется на противоположное значение ld, если l меньше 31 или больше 449
- Рисование зеленого круга с координатами (x,y)
- Рисование круга с координатами (k,l)
- Задержка выполнения программы на 14 миллисекунд
- Рисование круга с координатами (x,y)
- Рисование круга с координатами (k,l)
- Изменение значения y на y+yd
- Изменение значения x на x+xd
- Изменение значения k на k+kd
- Изменение значения l на l+ld
- Повторение шагов с 9 по 17 до нажатия клавиши
- Чтение нажатой клавиши с помощью функции Readkey
- Закрытие графического режима с помощью функции Closegraph
- Конец выполнения программы