Программирование анимированных изображений

Программирование анимированных изображений

Автор:

Кулакова Кристина Рафаиловна

Учитель информатики

МБОУ ОСОШ №11

Воронеж 2018 год

Математическая модель задачи

С целью освоения практических навыков программирования графики на языке Turbo Pascal рассмотрим задачу вывода на экран изображения звезды, перемещающейся по эллиптической траектории. Из курса математики известно, что координаты точек, расположенных на окружности радиуса R, связаны соотношениями:

x=R*cos(i), y=R*sin(i), где 0<=i<2π.

В результате изменения величины угла получим изменение координат центра звезды (рис.1).

     Звезда состоит из полигональных фрагментов, образованных большими и малыми лучами. Координаты вершин большого (x₁,y₁) и малого (x₂,y₂) лучей фрагментов звезды вычисляются по формулам:

x₁:=x+ r*cos(a),

y₁:=y+ r*sin(a),

13

x₂:=x+ r_m*cos(a±da),

y₂:=y+ r_m*sin(a±da), где

x,y – координаты центра звезды, r – длина большого луча, r_m – длина малого луча фрагмента (рис. 2, 3).

В зависимости от количества фрагментовN угол между большим и малыми лучами фрагмента вычисляется по формуле: da= 2π /(2N).

Алгоритм решения задачи

Алгоритм решения поставленной задачи представлен в виде блок-

схемы:

14

15

Листинг программы

Реализация алгоритма решения задачи на языке программирования Turbo Pascal:

program Zvezda;

uses graph,crt;

const

Xc=300;Yc=230; {координаты центра траектории звезд}

R_tr=180; {радиус центра траектории звезд}

r=50; {длина большого луча звезды}

n=5; {количество лучей}

var

gd,gm,rm,x,y,x1,y1,x2,y2,i,f:integer;

a,da:real;

Begin

gd:=detect;

initgraph(gd,gm,'c:\bp\bgi');

randomize;

rm:=r div 2; {rm - длина малого луча звезды}

{ a - угол наклона первого большого луча звезды}

a:=3*pi/2;

{da - угол между большим и малым лучами}

da:=2*pi/(2*n);

i:=0;

repeat

cleardevice;

{случайный выбор цвета рисования}

16

setcolor(random(15));

i:=i+1;

{x, y - координаты центра звезды}

x:=Xc+round(R_tr*cos(i));

y:=Yc+round(R_tr*sin(i));

for f:= 1 to n do

begin

{ x1, y1 - координаты вершины большого луча}

x1:=x+trunc(r*cos(a));

y1:=y+trunc(r*sin(a));

{ x2, y2 - координаты вершины правого малого луча}

x2:=x+trunc(rm*cos(a-da));

y2:=y+trunc(rm*sin(a-da));

line(x,y,x2,y2);

line(x,y,x1,y1);

line(x1,y1,x2,y2);

{ x2, y2 - координаты вершины левого малого луча}

x2:=x+trunc(rm*cos(a+da));

y2:=y+trunc(rm*sin(a+da));

line(x,y,x2,y2);

line(x1,y1,x2,y2);

{вычисление угла наклона следующего большого луча звезды}

a:=a+da*2;

end;

delay(50000);

until keypressed;

closegraph;

End.

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/330195-programmirovanie-animirovannyh-izobrazhenij