Як намалювати в паскалі

Як намалювати в паскалі

Мова програмування Turbo Pascal дозволяє малювати в графічному режимі на екрані різні фігури. За допомогою точок, ліній, дуг можна побудувати будь-яку графіку. Pascal використовує растровий режим графіки з роздільною здатністю екрану 640 х 480. Малювання полягає в завданні графічним процедурам координат початкової та кінцевої точки виводимого об 'єкта. Колір об 'єкта, товщина ліній, як і їх стиль, також визначаються як параметри графіки. Для малювання за допомогою програмних засобів потрібно підключити графічний модуль Pascal.

Вам знадобиться

  • Середовище програмування Turbo Pascal

Інструкція

1. Розберіть вказаний об 'єкт для малювання на складові елементи. Виділіть окремі лінії, дуги, кола, прямокутники та точки. Саме ці фігури можна намалювати за допомогою процедур мови Turbo Pascal.

2. На самому початку програмного коду підключіть графічний додаток. Для цього запишіть рядок вигляду: uses graph. Далі створіть цілочисельні змінні для ініціалізації графічного режиму: var gdet, gm: integer.

3. У тілі програми за ключовим словом begin проініціалізуйте змінні, присвоївши одній з них нульове значення, а другій значення detect. Далі вкажіть запуск графічного режиму малювання, введіть рядок виду: initgraph(gdet, gm, ''). Спорожніть пристрій виводу графічних даних: cleardevice.

4. Встановіть колір тла для малювання та колір ліній об 'єктів, що малюються. Використовуйте для цього процедури SetBkColor (white) і SetColor (8). У дужках вказується встановлений колір. Всього в Pascal використовується 16 кольорів, і кожен з них задається або цифрою, або словом із спеціальної таблиці кольорів.

5. Зобразіть координатну сітку екрану, де вісь х розташована зліва направо, а вісь біля проходить зверху вниз. На початку цієї системи координат, тобто в лівому верхньому куті екрану, знаходиться координата (0,0). Вирахуйте координати розташування першої графіки. Всі координати для малювання фігур задавайте саме в даній системі.

6. Намалюйте лінію за допомогою процедури line (x, y, x1, y1), де координати х, у є точкою початку лінії, а х1, у1 - її кінцем. Якщо необхідно, змініть товщину або тип лінії. Для цього використовується процедура SetLceStyle (0,0, NormWidth). Першим параметром процедури можна змінити лінію, зробивши її штрихом, пунктиром - поміняйте дану цифру на 1 або 2. Третій параметр визначає товщину ліній. Типово, завжди встановлено параметр NormWidth - тонкі лінії, для товстих ліній поставте ThickWidth. Змінений тип лінії малюватиметься після виклику цієї процедури.

7. Поставте точку на екрані за допомогою процедури PutPixel (x, y, color), тут х і у також координати точки, а color - її колір. Перед малюванням замкненої фігури можна вказати її заливку. Для цього викличте процедуру SetFillStyle (EmptyFill, 0), де перший параметр вказує на суцільну заливку фігури, а другий - визначає колір заливки.


8. Прямокутна фігура малюється процедурою Rectan^ (x, y, x2, y2) - координати задають лівий верхній і правий нижній кути фігури. Щоб малювати коло, напишіть рядок Circle (x, y, R), де x, y, R - координати центру і радіус кола також у пікселях. Еліпс намалювати складніше, для цього використовується набагато більше параметрів: Ellipse(x, y, BegA, EndA, RX, RY). Тут x, y той же центр еліпсу, а BegA і EndA вказують кут, на якому потрібно починати еліптичну дугу і закінчувати її. Змінні RX, RY задають радіус еліпса по осі х і у відповідно.

9. Якщо у вас вказана фігура, малювання якої найпростіше провести окремими відрізками, використовуйте для цього процедури MoveTo і LceTo. Спочатку встановіть поточний курсор у потрібну вам точку: MoveTo (х, у). Потім проведіть лінію до наступної точки LceTo (x1, у1) і знову намалюйте пряму лінію LceTo (x2, у2) і так до тих пір, поки не отримаєте вихідну фігуру.

10. В кінці малювання в програмному коді закрийте графічний режим рядком: closegraph. Завершіть тіло програми, як завжди, словом end. Тепер код можна компілювати і запускати на виконання.