Графика на языке программирования Turbo Pascal

Модули: GRAPH и CRT

В графическом режиме весь экран разбивается на отдельные точки "пикселы". Положение пиксела также задается двумя координатами X и Y.

Uses Crt, Graph;

Описание некоторых основных графических процедур и функций Arc(X, Y: Integer; U1, U2, R: Word) строит дугу окружности Circle(X, Y: Integer; R: Word) рисует текущим цветом окружность радиуса R c центром в точке (X,Y). Ellipse(X, Y: Integer; U1, U2, XR, YR: Word) рисует дугу эллипса текущим цветом Line(X1, Y1, X2, Y2: Integer) рисует линию от точки X1, Y1 до точки X2,Y2. SetBkColor(Соlor: Word) устанавливает цвет фона.

Константы цвета: Black = 0; {Черный} Blue = 1; {Синий} Green = 2; {Зеленый} Cyan = 3; {Голубой} Red = 4; {Красный} Magenta = 5; {Фиолетовый} Brown = 6;{Коричневый} LightGray = 7; {Светлосерый} DarkGray = 8; {Темносерый} LightBlue = 9; {Яркосиний} LightGreen =10; {Яркозеленый} LightCyan = 11; {Яркоголубой} LightRed = 12; {Розовый} LightMagenta = 13; {Малиновый} Yellow = 14; {Желтый} White = 15; {Белый}

Шаблоны штриховки: Номер Стиль штриховки Номер Стиль штриховки 0 Нет штриховки 6 Наклонная влево 1 Сплошная (заливка) 7 В клетку по образцу Горизонтальные линии 8 В клетку по образцу ххх 3 Наклонная вправо 9 Штриховка в мелкую клетку 4 Наклонная вправо толстыми линиями 10 Редкими точками 5 Наклонная вправо тонкими линиями 11 Частыми точками

Примеры графических программ

График функции

Солнце садится

Появляются звезды и луна

Фрактальная графика. Пересекающиеся круги

Концентрические окружности

Примеры графических объектов, созданных в Turbo Pascal

Движение разноцветных ломаных

Лошадь

Практическая работа