💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

Теоретическая часть. «Донской государственный технический университет»

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО

ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

«Донской государственный технический университет»

(ДГТУ)

Кафедра «Программное обеспечение вычислительной техники и автоматизированных систем»

ЛАБОРАТОРНАЯ РАБОТА

«СОЗДАНИЕ ИЗОБРАЖЕНИЙ ИЗ ГРАФИЧЕСКИХ ПРИМИТИВОВ»

Ростов-на-Дону

Цель работы: научиться составлять сложные изображения из графических примитивов.

Теоретическая часть

Графические примитивы представляют собой процедуры, осуществляющие рисование в графическом окне.

Рисование осуществляется текущим пером (линии), текущей кистью (заливка замкнутых областей) и текущим шрифтом (вывод строк).

procedure SetPixel(x, y: integer; c: Color);

Закрашивает пиксел с координатами (x, y) цветом c

procedure PutPixel(x, y: integer; c: Color);

Закрашивает пиксел с координатами (x, y) цветом c

function GetPixel(x, y: integer): Color;

Возвращает цвет пиксела с координатами (x, y)

procedure MoveTo(x, y: integer);

Устанавливает текущую позицию рисования в точку (x, y)

procedure LineTo(x, y: integer);

Рисует отрезок от текущей позиции до точки (x, y). Текущая позиция переносится в точку (x, y)

procedure LineTo(x, y: integer; c: Color);

Рисует отрезок от текущей позиции до точки (x, y) цветом c. Текущая позиция переносится в точку (x, y)

procedure Line(x1, y1, x2, y2: integer);

Рисует отрезок от точки (x1, y1) до точки (x2, y2)

procedure Line(x1, y1, x2, y2: integer; c: Color);

Рисует отрезок от точки (x1, y1) до точки (x2, y2) цветом c

procedure FillCircle(x, y, r: integer);

Заполняет внутренность окружности с центром (x, y) и радиусом r

procedure DrawCircle(x, y, r: integer);

Рисует окружность с центром (x, y) и радиусом r

procedure FillEllipse(x1, y1, x2, y2: integer);

Заполняет внутренность эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1, y1) и (x2, y2)

procedure DrawEllipse(x1, y1, x2, y2: integer);

Рисует границу эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1, y1) и (x2, y2)

procedure FillRectangle(x1, y1, x2, y2: integer);

Заполняет внутренность прямоугольника, заданного координатами противоположных вершин (x1, y1) и (x2, y2)

procedure FillRect(x1, y1, x2, y2: integer);

Заполняет внутренность прямоугольника, заданного координатами противоположных вершин (x1, y1) и (x2, y2)

procedure DrawRectangle(x1, y1, x2, y2: integer);

Рисует границу прямоугольника, заданного координатами противоположных вершин (x1, y1) и (x2, y2)

procedure FillRoundRect(x1, y1, x2, y2, w, h: integer);

Заполняет внутренность прямоугольника со скругленными краями; (x1, y1) и (x2, y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

procedure DrawRoundRect(x1, y1, x2, y2, w, h: integer);

Рисует границу прямоугольника со скругленными краями; (x1, y1) и (x2, y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

procedure Circle(x, y, r: integer);

Рисует заполненную окружность с центром (x, y) и радиусом r

procedure Ellipse(x1, y1, x2, y2: integer);

Рисует заполненный эллипс, ограниченный прямоугольником, заданным координатами противоположных вершин (x1, y1) и (x2, y2)

procedure Rectangle(x1, y1, x2, y2: integer);

Рисует заполненный прямоугольник, заданный координатами противоположных вершин (x1, y1) и (x2, y2)

procedure RoundRect(x1, y1, x2, y2, w, h: integer);

Рисует заполненный прямоугольник со скругленными краями; (x1, y1) и (x2, y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

procedure Arc(x, y, r, a1, a2: integer);

Рисует дугу окружности с центром в точке (x, y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

procedure FillPie(x, y, r, a1, a2: integer);

Заполняет внутренность сектора окружности, ограниченного дугой с центром в точке (x, y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

procedure DrawPie(x, y, r, a1, a2: integer);

Рисует сектор окружности, ограниченный дугой с центром в точке (x, y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

procedure Pie(x, y, r, a1, a2: integer);

Рисует заполненный сектор окружности, ограниченный дугой с центром в точке (x, y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

procedure DrawPolygon(points: array of Point);

Рисует замкнутую ломаную по точкам, координаты которых заданы в массиве points

procedure FillPolygon(points: array of Point);

Заполняет многоугольник, координаты вершин которого заданы в массиве points

procedure Polygon(points: array of Point);

Рисует заполненный многоугольник, координаты вершин которого заданы в массиве points

procedure Polyline(points: array of Point);

Рисует ломаную по точкам, координаты которых заданы в массиве points

procedure TextOut(x, y: integer; s: string);

Выводит строку s в прямоугольник к координатами левого верхнего угла (x, y)

procedure FloodFill(x, y: integer; c: Color);

Заливает область одного цвета цветом c, начиная с точки (x, y).

procedure Curve(points: array of Point);

Рисует кривую по точкам, координаты которых заданы в массиве points

procedure DrawClosedCurve(points: array of Point);

Рисует замкнутую кривую по точкам, координаты которых заданы в массиве points