- •34. Компонент MainMenu
- •35. Компонент StringGrid
- •36. Модель двухключевой криптосистемы
- •37. Методы класса tString
- •39. Модули, назначение, структура модуля, правила записи
- •41. Основные методы класса tCanvas для построения изображения
- •43. Оператор цикла с постусловием Repeat.. Until. Специальный выход из цикла
- •44. Процедуры и функции для преобразования данных.
- •46.Библиотека dll, назначение структура библиотеки правила записи
- •47. Стандарты шифрования des
- •49. Графика
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 не годится для ситуации, когда операторы цикла не должны выполнятся ни разу.