ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №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; // ВИСНОВОК За допомогою даної лабораторної роботи я вивчила принципи модульного програмування та навчилася їх застосовувати.