Графические возможности языка программирования Паскаль

Графические возможности

Вывод данных

Текстовый режим

Графический режим

Символьная сетка

Точечная сетка

Система координат

Декарт

Паскаль

y

640

0

x

x

0

y

480

Система координат (x,y)

640,0

0,0

320,240

0,480

640,480

Инициализация:

• Program Pr1;

Uses

Graph, Crt;

• Var

Gd,Gt:integer;

• Begin

Gd:=detect;

InitGraph(Gd,Gt, ‘C:\TP7\BGI’);

Графические процедуры:

• PutPixel – точка

син: PutPixel(x, y, color);

Пр: PutPixel(320, 240, White);

• Line – линия

син: Line(x1, y1, x2, y2);

Пр: Line(0, 0, 640, 480);

Графические процедуры:

• Rectangle – прямоугольник

син: Rectangle(x1, y1, x2, y2);

Пр: Rectangle(100, 50, 200, 100);

• Circle – окружность

син: Circle(x, y, r);

Пр: Circle(320, 240, 100);

Графические процедуры:

• OutTextXY – вывод текста

син: OutTextXY(x, y, ‘текст’);

Пр: OutTextXY(50, 50, ‘МЦМ-07’);

• ClearDevice – очистка экрана
• CloseGraph – выход из графического режима
• Delay – задержка вывода
• SetColor – выбор цвета

Цветовая палитра:

Цифра

Константа

0

Black

Значение

1

2

Черный

Blue

Синий

Green

3

4

Cyan

Зеленый

5

Red

Голубой

6

Magenta

Красный

7

Brown

Фиолетовый

LightGray

Коричневый

Ярко-серый

Цветовая палитра:

Цифра

Константа

8

DarkGray

Значение

9

10

Темно-серый

LightBlue

Ярко-синий

LightGreen

11

12

LightCyan

Ярко-зеленый

13

LightRed

Ярко-голубой

14

LightMagenta

Ярко-красный

15

Yellow

Ярко-фиолетовый

White

Желтый

Белый

Задача

• Составить Паскаль-программу для вывода на экран 64 окружностей на одной прямой. (см рис.)