Контрольні запитання та вправи

1.Які складені типи даних мови ТР7.0 Ви знаєте? Коротко охарактеризуйте кожен із цих типів.

2.Які Ви знаєте стандартні процедури і функції для роботи з файлами?

3.Які Ви знаєте стандартні процедури і функції для роботи з рядковим типом даних?

4.Яка послідовність роботи із змінними файлового типу?

5.Модифікуйте програму FILE SLOVO так, щоб слова з непарною кількістю символів виводилися не на екран монітора, а записувалися в інший файл. Перегляньте результати її роботи.

3.7.Лабораторна робота №7

Написання програми з використанням графічних засобів мови ТР7.0

Кількість занять – 2(4 години)

Мета роботи – ознайомитися з графічними можливостями мови ТР7.0 та навчитися їх використовувати.

Підготовка до роботи – за матеріалами лекцій, методичною та додатковою літературою ознайомитися зі стандартним модулем Graph; відповісти на контрольні питання.

Послідовність виконання роботи

1.Отримати індивідуальне завдання.

2.Скласти алгоритм виконання завдання у вигляді графічної блок-схеми.

3.Написати мовою ТР7.0, яка реалізує даний алгоритм, із використанням графічних засобів.

4.Ввести, налагодити та виконати програму за комп’ютером.

5.Оформити і захистити звіт.

3.7.1. Графічні засоби мови ТР7.0 та їх використання

Для створення графічних зображень мова ТР7.0 має стандартний модуль Graph. Модуль Graph містить близько 80 графічних процедур та функцій. Схема використання графічних засобів мови ТР7.0 показана на рисунку 3.7.1.

Розглянемо кожний етап схеми окремо.

А) Під’єднання модуля до програми користувача виконується в розділі об’яв та узгоджень ТР-програми:

USES Graph;

Б) Перехід у графічний режим роботи ( з текстового режиму ) – так звана ініціалізація режиму – виконується за допомогою процедури InitGraph:

InitGraph (GraphDriver, GraphMode, DriverPath );

GraphDriver – тип графічного адаптера ( ціле число )

GraphMode – відеорежим ( ціле число )

DriverPath – шлях до драйвера ( рядок символів )

Кожному типові відео адаптера ставиться у відповідність певне число (константа), яке присвоюється змінній GraphDriver.

Кожний драйвер може підтримувати декілька відеорежимів, кожен із яких відрізняється розділювальною здатністю дисплея та набором кольорів. Кожному такому режимові ставиться у відповідність певне число (константа), яке присвоюється змінній GraphMode.

Параметр DrivePath указує шлях до каталогу, який містить необхідні файли драйверів. Наприклад :

’D:\TP\BGI’ або ’D:\tp\bgi’.

Приклад ініціалізації графічного режиму:

GrsphDriver:=9; {адаптер VGA}

GraphMode:=2 {режим із розділювальною здатністю 640х480, 16 кольорів}

InitGraph(GraphDriver,GraphMode,’D:\TP7\BGI’);

У тому випадку, коли вказані параметри наперед невідомі, змінний GraphDriver присвоюється значення Detect, після чого система переходить у режим автовизначення.

В)Для побудови зображення на екрані в графічному режимі застосовується система координат, яка зображена на рис.3.7.2. При цьому екран являє собою прямокутний масив (точок пікселів). Визначення значень максимальних координат екрана реалізується за допомогою функції GetMaxX та GetMaxY модуля Graph.

Які б зображення не виводились на екран монітора, всі вони побудовані з точок. У модулі Graph для відображення точки на екрані використовується процедура:

PUTРixel(X,Y, Color: INTEGER);

де X і Y-екранні координати точки, Color-її колір.

Можливі значення Color беруть із установленої палітри (див. таб.3.7.1).

Інша важлива процедура модуля Graph-процедура для виведення відрізка прямої, яка має вигляд:

LINE(X1,Y1,X2,Y2:INTEGER);

У ній (X1,Y1) ― координати початкової точки, а (X2,Y2) — координати кінцевої точки.

Коротко розглянемо ще декілька процедур для побудови зображень:

RECTANGLE(X1,Y1,X2,Y2:INTEGER)― процедура для побудови прямокутника на площині. (X1,Y1) ― координати лівого верхнього кута (X2,Y2)―координати правого нижнього кута прямокутника;

CIRCLE(X,Y:INTEGER;RADIUS:WORD)―процедура для побудови дуги кола, де (X1,Y1)―координати центра кола дуги, STANGLE, ENDANGLE― початковий і кінцевий кути в градусах, RADIUS―її радіус (див. 3.7.3.).

ELLIPSE(X,Y,:INTEGER;STANGLE,ENDANGLE:WORD;XR,YR: WORD)― процедура для побудови еліптичної дуги (див. рис.3.7.3.), де XR,YR—горизонтальна та вертикальна осі еліпса.

Якщо STANGLE=0, ENDANGLE=359, то отримаємо повний еліпс.

OUTTEXTXY(X,Y:INTEGER;TEXT:STRING)― процедура для виведення текстової інформації (рядок TEXT) на місце з координатами X,Y екрана.

Г) Коли всі дії з графікою завершені, необхідно вийти з графічного режиму. Це робиться за допомогою процедури, яка не має параметрів:

CLOSEGRAPH.

Під’єднання модуля Graph

Перехід у графічний режим

Побудова зображень

Вихід із графічного режиму

Рис.3.7.1. Схема використання графічних засобів мови ТР 7.0

(0,0) GETMAXX:INTEGER

X

GETMAXX:

INTEGER

Y

Рис.3.7.2.Система координат на екрані монітора при роботі в графічному режимі

Р ис.3.7.3.Побудова дуги кола та еліптичної дуги