ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №17 Лабораторна робота №16. Тема: Побудова анімаційних зображень Мета: Вивчення і застосування методів побудови рухомих графічних об'єктів. Вивчити питання: Графічний режим. Константи модуля Graph. Стандартні графічні процедури і функції. Побудова графічних примітивів. Зображення і стилі. Стандартні засоби для роботи з відеосторінками. Мультиплікація. Вивід текстової інформації. Обробка помилок. Завдання до роботи: Скласти програму на мові Pascal для побудови об'єкта, який рухається за однією з траєкторій: y=x, по колу, за синусоїдою. Рух організувати зліва праворуч чи згори до низу та у зворотному напрямку. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. ХІД РОБОТИ uses crt,graph; var x,y,r,a,x0:integer; procedure Trg(x,y,d:integer); var ax,ay,bx,by,cx,cy:integer; begin ax:=x;ay:=y-d; bx:=x-round(d*cos(pi/6));by:=y+round(d*sin(pi/6)); cx:=x+round(d*cos(pi/6));cy:=y+round(d*sin(pi/6)); line(ax,ay,bx,by); line(bx,by,cx,cy); line(cx,cy,ax,ay); end; begin x:=0; initgraph(x,y,''); x0:=getmaxX div 2; r:=10; a:=100; x:=getmaxX div 2; y:=r; while y<getmaxY do begin x:=x0-round(sin(y*pi/180)*a); setcolor(14); Trg(x,y,r); delay(20); setcolor(0); Trg(x,y,r); y:=y+1; end; while y>0 do begin x:=x0-round(sin(y*pi/180)*a); setcolor(14); Trg(x,y,r); delay(20); setcolor(0); Trg(x,y,r); y:=y-1; end; setcolor(12); outtextXY(getmaxX div 2-50,getmaxY-30, 'end '); readln end. // ВИСНОВОК За допомогою даної лабораторної роботи я вивчила методи побудови рухомих графічних об'єктів та навчилася їх застосовувати.