Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
инфа 34-49.docx
Скачиваний:
2
Добавлен:
19.09.2019
Размер:
53.41 Кб
Скачать

41. Основные методы класса tCanvas для построения изображения

procedure Arc (XI, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integer) ; Метод рисует сегмент эллипса. Эллипс определяется описывающим прямоугольником (X1,Y1) — (X2,Y2); его размеры должны лежать в диапазоне от 2 до 32767 точек. Начальная точка сегмента лежит на пересечении эллипса и луча, проведенного из его центра через точку (X3.Y3). Конечная точка сегмента лежит на пересечении эллипса и луча, проведенного из его центра через точку (X4.Y4). Сегмент рисуется против часовой стрелки.

procedure Chord(Xl, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integer);Рисует хорду и заливает отсекаемую ею часть эллипса. Эллипс, начальная и конечная точки определяются, как в методе Arc.

procedure Ellipse(Xl, Yl, Х2, Y2: Integer) ; Рисует и закрашивает эллипс, вписанный в прямоугольник (X1.Y1) — (X2.Y2).

procedure LineTo(X, Y: Integer); Проводит линию текущим пером из текущей точки в (X,Y).

procedure MoveTo(X, Y: Integer); Перемещает текущее положение пера (свойство PenPos) в точку (X,Y).

procedure FillRect(const Rect: TRect) ;Производит заливку прямоугольника (текущей кистью).

procedure FrameRect(const Rect: TRect); Производит оконтуривание прямоугольника цветом текущей кисти (без заполнения).

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic); Осуществляет рисование объекта Graphic в заданном прямоугольнике Rect. Если размеры их не совпадают, Graphic масштабируется.

procedure Pie (XI, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integer)- Рисует сектор эллипса, описываемого прямоугольником (X1,Y1) — (X2,Y2). Стороны сектора лежат на лучах, проходящих из центра эллипса через точки (X3.Y3) и (X4,Y4).

procedure Polygon(const Points: array of TPoint) ; Строит многоугольник, используя массив координат точек Points. При этом последняя точка соединяется с первой и внутренняя область закрашивается.

procedure Polyline(const Points: array of TPoint) ;Строит ломаную линию, используя массив координат точек Points.

procedure Rectangle(XI, Yl, Х2, Y2 : Integer) ; Рисует прямоугольник с верхним левым углом в (XI ,Y1) и нижним правым в (X2.Y2).

procedure RoundRect (XI, Yl, Х2, Y2, ХЗ, Y3: Integer); Рисует прямоугольник с закругленными углами. Координаты вершин — те же, что и в методе Rectangle. Закругления рисуются как сегменты эллипса с размерами осей по горизонтали и вертикали ХЗ и Y3.

42. структура данных. характеристика данных. способы хранения данных

43. Оператор цикла с постусловием Repeat.. Until. Специальный выход из цикла

Оператор цикла repeat … until имеет следующий формат:

repeat

<Оператор>

<Оператор>

<Оператор>

until <Логическое условие>;

где

<Оператор> … <Оператор>- оператор (операторы) цикла;

<Логическое условие> - логическое условие или логическое выражение, операнды которого могут быть записаны явно или вычислены в программе.

Оператор repeat … until не требует операторных скобок в случае составного оператора. Эту функцию выполняют ключевые слова repeat и until.

Алгоритм работы оператора цикла с постусловием

Вначале выполняются операторы цикла, затем проверяется логическое условие. В случае, когда условие ложно (False), происходит вычисление логического условия и повторение операции до тех пор, пока (until) условие ложно. В случае истинности логического условия (True), происходит выход из цикла и выполнение следующего за циклом оператора. Поскольку проверка логического условия происходит в конце оператора цикла, то циклическая операция выполняется хотя бы один раз. Это означает, что оператор repeat … until не годится для ситуации, когда операторы цикла не должны выполнятся ни разу.