Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Лабораторна робота №18
Інформація про навчальний заклад
ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №18
Лабораторна робота №18.
Тема: Створення модулів користувача.
Мета: Вивчення і застосування принципів модульного програмування.
Вивчити питання: Модульне програмування. Структура модуля. Компіляція і використання модулів.
Завдання до роботи:
Код програми, побудованої при виконанні лабораторної роботи №16, розділити на процедури за змістом. Зі складених процедур утворити окрему бібліотеку в формі модуля. Скласти програму, яка використовує скомпільований модуль для побудови зображення, у розділі операторів містить тільки виклики процедур. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін.
ХІД РОБОТИ
program graphex;
Uses
MyGraph;
Begin
DoGraphics;
parallelepiped;
FillCircle;
FillSector;
GreenEllipse;
GreenFillEllipse;
YellowArc;
CloseGraphics;
end.
unit MyGraph;
interface
procedure DoGraphics;
procedure parallelepiped;
procedure FillCircle;
procedure FillSector;
procedure GreenEllipse;
procedure GreenFillEllipse;
procedure YellowArc;
procedure CloseGraphics;
implementation
uses
Graph;
procedure DoGraphics;
var
gd, gm : integer; {integer הכ ֿׂ}
begin
gd:=Detect;
InitGraph (gd, gm, 'c:\bp\bgi');
SetBkColor(black);
ClearDevice;
end;
procedure parallelepiped;
begin
SetColor(blue);
SetFillStyle(SlashFill, blue );
Bar3D(170, 50, 200, 150, 50, True );
end;
Procedure FillCircle;
begin
SetColor(LightMagenta);
Circle(70, 70, 50 );
SetFillStyle(XhatchFill, LightMagenta);
FloodFill(70, 70, LightMagenta );
end;
Procedure FillSector;
begin
SetColor(red);
SetFillStyle( LineFill , red);
Sector(10, 340, 0, 30, 250, 150);
end;
procedure GreenEllipse;
begin
SetColor(green);
Ellipse(110, 210, 0, 360, 100, 50);
end;
procedure GreenFillEllipse;
begin
SetFillStyle( HatchFill, green );
FillEllipse(110, 210, 100, 50);
end;
procedure YellowArc;
begin
SetColor(Yellow);
Arc(160,415,90,30,60);
end;
procedure CloseGraphics;
begin
Readln;
CloseGraph;
end;
//
ВИСНОВОК
За допомогою даної лабораторної роботи я вивчила принципи модульного програмування та навчилася їх застосовувати.
03.05.2018 21:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора