Построить движущиеся изображения - 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.

Объяснение кода листинга программы

Список действий в коде:

  1. Начало выполнения программы
  2. Инициализация переменных: gd, gm, x, y, xd, yd, k, l, kd, ld
  3. Инициализация графического режима с помощью функции Initgraph
  4. Установка цвета фона на 15
  5. Переменная yd изменяется на противоположное значение yd, если y меньше 31 или больше 449
  6. Переменная xd изменяется на противоположное значение xd, если x меньше 31 или больше 609
  7. Переменная kd изменяется на противоположное значение kd, если k меньше 31 или больше 609
  8. Переменная ld изменяется на противоположное значение ld, если l меньше 31 или больше 449
  9. Рисование зеленого круга с координатами (x,y)
  10. Рисование круга с координатами (k,l)
  11. Задержка выполнения программы на 14 миллисекунд
  12. Рисование круга с координатами (x,y)
  13. Рисование круга с координатами (k,l)
  14. Изменение значения y на y+yd
  15. Изменение значения x на x+xd
  16. Изменение значения k на k+kd
  17. Изменение значения l на l+ld
  18. Повторение шагов с 9 по 17 до нажатия клавиши
  19. Чтение нажатой клавиши с помощью функции Readkey
  20. Закрытие графического режима с помощью функции Closegraph
  21. Конец выполнения программы

Оцени полезность:

14   голосов , оценка 4.429 из 5
Похожие ответы