Анимация имеющегося рисунка - Pascal ABC
Формулировка задачи:
Нужно сделать какую-нибудь анимацию к этому рисунку.
Решение задачи: «Анимация имеющегося рисунка»
textual
Листинг программы
setbrushcolor(clwhite); //белый цвет circle(x1,y1,15); //1 глаз центр x1,y1 circle(x2,y1,15); //2 глаз центр x2,y1 setbrushcolor(clblack);//черный цвет x3:=x1+round(r*cos(u));//координаты центра 1 зрачка по параметрическому уравнению окружности y3:=y1-round(r*sin(u));//(x=x0+r*cosu; y=y0-r*sinu) x4:=x2+round(r*cos(u)); //координаты 2 зрачка y4:=y1-round(r*sin(u)); circle(x3,y3,7); //рисум зрачки circle(x4,y4,7); delay(10); //задержка u:=u+0.1;//увеличим угол поворота зрачков redraw; //перерисовываем until keypressed //нажатие любой клавиши, выход из программы
Объяснение кода листинга программы
- setbrushcolor(clwhite); //белый цвет
- circle(x1,y1,15); //1 глаз центр x1,y1
- circle(x2,y1,15); //2 глаз центр x2,y1
- setbrushcolor(clblack);//черный цвет
- x3:=x1+round(r*cos(u));//координаты центра 1 зрачка по параметрическому уравнению окружности
- y3:=y1-round(rsin(u));//(x=x0+rcosu; y=y0-r*sinu)
- x4:=x2+round(r*cos(u)); //координаты 2 зрачка
- y4:=y1-round(r*sin(u));
- circle(x3,y3,7); //рисуем зрачки
- circle(x4,y4,7);
- delay(10); //задержка
- u:=u+0.1;//увеличим угол поворота зрачков
- redraw; //перерисовываем
- until keypressed; //нажатие любой клавиши, выход из программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д