Лабораторна робота №18. Лабораторна робота з Основи програмування та алгоритмічні мови. Робота № 530153

Лабораторна робота №18

Інформація про навчальний заклад

ВУЗ:

Ужгородський національний університет

Інститут:

Не вказано

Факультет:

Програмна Інженерія

Кафедра:

Не вказано

Інформація про роботу

Рік:

2018

Тип роботи:

Лабораторна робота

Предмет:

Основи програмування та алгоритмічні мови

Завантажити

Частина тексту файла (без зображень, графіків і формул):

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

Лабораторна робота Основи програмування та алгоритмічні мови

justlife_

03.05.2018 21:41

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись