- •Лабораторна робота № 1
- •1 Загальні відомості
- •1.1 Склад пакета Турбо Паскаль
- •1.2 Запуск інтеґрованого середовища Турбо Паскаль
- •1.3 Робоче середовище Турбо Паскаль
- •1.4 Призначення команд рядка «Меню»
- •1.4.1 Меню File
- •1.4.2 Меню Edit
- •1.4.3 Меню Search
- •1.4.4 Меню Run
- •1.4.5 Меню Compile
- •1.4.6 Меню Debug
- •1.4.7 Меню Tools
- •1.4.8 Меню Options
- •1.4.9 Меню Window і Help
- •2 Порядок виконання
- •3 Контрольні запитання
- •Лабораторна робота № 2
- •1 Загальні відомості
- •1.1 Порядок отримання *.Exe файла
- •1.2 Операторні дужки begin …end...
- •1.3 Оператори введення/виведення
- •2 Порядок виконання роботи
- •3 Контрольні запитання
- •Лабораторна робота № 3
- •1 Загальні відомості
- •Прості типи даних мови програмування Турбо Паскаль
- •1.2 Оператор присвоювання
- •Математичні функції й операції
- •Порядок виконання
- •Контрольні запитання
- •Лабораторна робота № 4
- •1 Загальні відомості
- •Структурні оператори. Складений оператор
- •Оператори розгалуження
- •1.2.1 Оператор if … then … else...
- •1.2.2 Оператор case … of … end...
- •Оператори циклу
- •1.3.1 Цикл із передумовою while … do …
- •Цикл із постумовою repeat … until …
- •Цикл із лічильником for … to … do …
- •Порядок виконання роботи
- •Контрольні запитання
- •Лабораторна робота № 5
- •1 Загальні відомості
- •Методи знаходження екстремумів функції
- •Методи розв’язування нелінійних рівнянь
- •Методи обчислення визначеного інтеґрала
- •1.4 Методи обчислення невласного інтеґрала
- •2 Порядок виконання роботи
- •3 Контрольні запитання
- •Лабораторна робота № 6
- •1 Загальні відомості
- •Символьний тип. Особливості застосування
- •Введення символів із клавіатури
- •Рядковий тип. Особливості застосування
- •Операції над рядками
- •2 Порядок виконання роботи
- •3 Контрольні запитання
- •Кодування символів відповідно до стандарту ansi
- •Лабораторна робота № 7
- •1 Загальні відомості
- •Структурні типи даних. Масиви
- •Опис масивів
- •1.2.1 Одновимірні масиви
- •1.2.2 Двовимірні масиви
- •2 Порядок виконання роботи
- •3 Контрольні запитання
- •Лабораторна робота № 8
- •1 Загальні відомості
- •Особливості використання модуля crt
- •Константи, типи і змінні
- •Порядок виконання роботи
- •Контрольні запитання
- •Лабораторна робота № 9
- •1 Загальні відомості
- •Особливості використання модуля Graph
- •Константи, типи і змінні
- •Порядок виконання роботи
- •Контрольні запитання
- •Лабораторна робота № 10
- •Загальні відомості
- •Особливості використання модуля Dos
- •Константи, типи і змінні
- •Порядок виконання роботи
- •Контрольні питання
- •Лабораторна робота № 11
- •1 Загальні відомості
- •Основні методи сортування
- •1.2 Оцінка алгоритмів сортування
- •1.3 Методи сортування
- •Порядок виконання роботи
- •Контрольні запитання
Порядок виконання роботи
Ознайомтеся з першим пунктом даної лабораторної роботи.
Створіть у середовищі ТР програму під ім'ям Proba2_1(1).pas.
Підключіть модуль СRT і, використовуючи його методи, виведіть посредині екрана термінала повідомлення, у якому необхідно указати П І П розроблювачів.
Унизу вікна вивести запрошення для подальшої роботи «Для продовження натисніть будь-яку клавішу».
Після цього вивести посередині екрана вікно, у якому на синьому тлі білими буквами написати назву ВНЗ і факультет (цілком).
Унизу вікна вивести запрошення для подальшої роботи «Для продовження натисніть будь-яку клавішу».
Далі вивести наступне вікно, де на малиновому тлі миготливими буквами коричневого кольору вивести шифр групи.
У завершенні очистити цілком екран, і вивести повідомлення «Завершити роботу <Y/N>». При одержанні позитивної відповіді завершити роботу програми.
Збережіть зміни і відкомпілюйте програму. У випадку неуспішної компіляції виправте помилки і повторно відкомпілюйте програму.
Створіть іншу програму Proba2_1(2).pas. Дана програма повинна змінювати режими монітора з З40 на З80 і навпаки із затримкою 5 с, до натискання клавіші завершення роботи. При зміні режиму необхідно видавати відповідне повідомлення.
Результати роботи і листинги програм записати до звіту.
Контрольні запитання
Процедури і функції керування курсором.
Особливості застосування процедур Highvideo, LowVideo, NormVideo.
Зміна кольору тла і кольору виведеного тексту.
Опишіть режими монітора.
Особливості застосування функцій ReadKey: char, KeyPressed: boolean.
Процедури керування звуком.
Лабораторна робота № 9
Тема. Вивчення основних процедур і функцій модуля Graph. Текстовий режим роботи в системі ТР 7.0
Мета: навчитися використовувати основні процедури і функції модуля Graph. Вивчити константи і змінні даного модуля
1 Загальні відомості
Особливості використання модуля Graph
Модуль GRAPH реалізує повну бібліотеку графічних програм - від викликів процедур і функцій високого рівня, до програм, орієнтованих на роботу з бітами. Підтримується кілька видів зафарбовування і типів ліній, кілька шрифтів, які можна змінювати за величиною, вирівнювати й орієнтувати –горизонтально чи вертикально.
Для компіляції програми, що використовує модуль GRAPH, не потрібно ніяких зовнішніх файлів (крім, звичайно, вихідного тексту програми, компілятора і доступу до стандартних модулів у TURBO.TPL). Для запуску програми, - що використовує модуль GRAPH, крім програми з розширенням .ЕХЕ, буде потрібний один чи більше графічних драйверів (*.BGI), і потрібно також один чи декілька файлів шрифтів (*.CHR), якщо в програмі використовуються які-небудь шрифти. Відповідно до ліцензійних умов можна поширювати файли .CHR і .BGI поряд із програмами.
Основні процедури і функції даного модуля подані в таблиці
Опис. |
Застосування. |
InitGraph(var граф_драйвер: integer; var граф_режим: integer;шлях_драйвер: string); |
Ініціює графічну систему і переводить апаратуру в графічний режим |
Arc(X,Y: integer; нач_кут, кін_кут, радіус: word); |
Викреслює дугу кола від початкового кута до кінцевого кута. Точка (х, у) використовується як центр кола. |
Ваr(х1, yl, х2, у2: integer); |
Рисує колонку, використовуючи стандартний тип і колір зафарбування. |
Bar3D(x1,y1,x2,y2: integer; глибина: word; вершина: boolean); |
Використовуючи поточний тип і колір зафарбування, рисує тривимірний паралелепіпед |
Circle (X,У:integer; радіус: word); |
Малює коло. Точка (х, у) вважається центром кола |
ClearDevice; |
Скидає стан поточного графічного екрана і підготовлює його для виводу даних |
ClearViewPort; |
Очищає поточну область екрана (вікно). |
CloseGraph |
Припиняє роботу графічної системи |
DrawPoly(числ_коорд: word; var коорд_верш) ; |
Використовуючи поточний тип прямої та поточний колір, малює контур многокутника. |
Ellipse (X,У: integer; нач_кут, кін_кут: word; радХ,раду: word); |
Малює еліптичну дугу від початкового кута до кінцевого, використовуючи (x, у) як точку центра |
FillEllipse (X,У: integer; Храдиус,Yрадиус: word); |
Рисує зафарбований еліпс |
GetBkColor: word; |
Повертає поточне значення фонового кольору |
Line (xl, yl, x2, y2: integer); |
Рисує пряму лінію з точки (xl, у1) до точки (х2, у2) |
LineRel (Дх, Ду) ; |
Проводить пряму в точку, задану відносною відстанню від поточного покажчика |
LineTo(x,у: integer); |
Рисує пряму лінію з точки, у якій знаходиться поточний покажчик, у точку (х, у) |
MoveRel(Дх,Ду: integer) ; |
Переміщає поточний покажчик на відстань, задана відносними координатами від його поточної позиції |
MoveTo (х,у: integer); |
Переміщає поточний графічний покажчик (СР) у точку (х,у) |
OutText (рядок: string); |
Пересилає рядок на пристрій виводу в те місце, у якому знаходиться поточний покажчик |
PieSlice (х,у: integer; нач_кут,кін_кут,радіус: word); |
Рисує і заповнює кольором сектор кола |
PutPixel (х,у: integer;эл_изображ: word); |
Будує елемент зображення в точці (х, у) |
Rectangle(xl,yl,x2,x2: integer); |
Рисує прямокутник, використовуючи поточний колір і тип рядка |
Sector (х,у: integer; нач_кут,кін_кут,ХРадиус,YРадиус: word); |
Викреслює і заповнює еліптичний сектор |
RestoreCrtMode; |
Повертає режим екрана у вихідний стан |
SetActivePage(сторінка: word); |
Установлює для графічного виводу активну сторінку |
SetAspectRatio(Xacn,Уасл,: word):word; |
Змінює прийняте за умовчанням значення коефіцієнта відносного подовження |
SetBkColor(колір: word); |
Використовуючи палітру, установлює поточний фоновий колір |
SetColor (колір: word); |
Використовуючи палітру, установлює поточний колір рисунка |
SetLineStyle (тип_рядка: word; зразок: word; товщина: word); |
Установлює поточну товщину і тип лінії |
SetTextJustify(гориз,верт: word); |
Установлює значення вирівнювання тексту |
SetTextStyle (шрифт: word; напрямок: word; разм_символу: CharSizeType); |
Установлює поточний шрифт, тип і коефіцієнт розміру символу |
SetViewport (xl,yl,x2,y2: word; отсек: boolean); |
Установлює для графічного виводу поточну область (вікно) для перегляду |
SetVisualPage (сторінка: word); |
Задає номер відображуваної графічної сторінки |
