Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Лабораторна робота №20
Інформація про навчальний заклад
ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №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.
/ /
ВИСНОВОК
За допомогою даної лабораторної роботи я ознайомилася з принципами об'єктно-орієнтованого програмування.
03.05.2018 21:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора