ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №15 Лабораторна робота №15. Тема: Використання процедур і функцій модуля DOS. Мета: Ознайомлення з процедурами і функціями модуля DOS. Вивчити питання: Обробка переривань. Системний час і дата. Сервісні функції DOS. Обробка помилок модуля DOS. Стан зовнішнього носія. Представлення файлів у DOS. Читання змісту диску. Завдання до роботи: Скласти програму на мові Pascal з використанням не менше 5 процедур та функцій модуля DOS. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. ХІД РОБОТИ Скласти програму на мові Pascal з використанням не менше 5 процедур та функцій модуля DOS. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. uses Crt, DOS; var Hour, Minutes, Second, Hund:word; Year, Month, Day, Day_week:word; begin ClrScr; GetTime(hour, minutes, second, hund); GetDate(Year, Month, Day, Day_week); WriteLn('Time=', hour, ':', minutes, ':', second); WriteLn('Data=', Day, ' Day ', Month, ' Month ', Year, ' Year '); WriteLn('DiskSize= ', DiskSize(0) div 1024 div 1024,'Mb'); WriteLn('DiskFree= ', DiskFree(0) div 1024 div 1024,'Mb'); WriteLn('ExitCode', DosExitCode); readln; end. / / ВИСНОВОК На даній лабораторній роботі я працювала у середовищі Turbo Pascal з модулем DOS, також ознайомилася з процедурами і функціями модуля DOS.