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