Построение многоугольников

Многоугольники можно рисовать самыми разными способами, например, с помощью процедур Line или LineTo. В паскале имеется процедура DrawPoly, которая позволяет строить любые многоугольники с помощью линий текущего цвета, стиля и толщины. Она имеет следующий синтаксис:

DrawPoly(NumPoints: word, var Polypoints)

DrawPoly позволяет отображать на экране любую ломаную, заданную совокупностью координат некоторого множества точек. Это может быть как сложная геометрическая фигура, так и график математической функции, заданной в табличном виде. Параметр NumPoly это количество точек ломаной. В качестве параметра PolyPoints задается переменная, тип ее может быть произвольным.

Обычно множество вершин многоугольника представляется как массив записей типа PointType. Именно к такой структуре производится значение параметра PolyPoint при работе процедуры DrawPoly.

Построение дуг, эллипсов и окружностей

(х,у)

R

Для изображения окружностей используется процедура

Circle(x,y: integer; R: word)

Здесь (х,у) – координаты центра окружности, а R – ее радиус.

В ряде случаев, в частности для имитации объемных фигур, используются дуги. Их можно вычертить с помощью процедуры

Arc(x,y: integer, StAngle, EndAngle R: word)

EndAngle

StAngle

(x,y)

R

где (х,у) – центр окружности дуги, StAngle и EndAngle – начальный и конечные углы, отсчитываемые от горизонтальной оси против часовой стрелки, R –радиус. Очевидно, что если StAngle =0 и EndAngke =359, то вычерчивается полная окружность.

Для построения эллиптических дуг предназначена процедура

Ellipse(x,y: integer, StAngle, EndAngle x R, yR: word)

(x,y)

xR

yR

где (х,у) – центр эллипса, xR и yR – горизонтальная и вертикальная оси. Дуга эллипса вычерчивается текущим цветом от начального угла StAngle до конечного угла EndAngle, как и в процедуре Arc. Значения StAngle =0 и EndAngke =359 приведут к вычерчиванию полного эллипса.

Тематика и краткое описание лабораторных и студийных работ

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

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ

Цель работы:

1. Изучить некоторые возможности интегрированной среды Turbo Pascal: редактирование исходного текста; компиляцию исходных модулей; запускпрограмм на исполнение; отладку программ.

2. Изучить структуру и правила записи программ на языке Turbo Pascal.

3. Приобрести начальные навыки работы в системе Turbo Pascal на примере программирования линейных алгоритмов.

КРАТКИЕ СВЕДЕНИЯ ИЗ ТЕОРИИ