Программирование в среде Турбо Паскаль. Закутский С.Н - 61 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

61
Имя
модуля
Имя процедуры
или функции
Назначение подпрограммы
Procedure SetBkColor
123
(Color
124
: word)
Устанавливает цвет фона
Procedure SetColor
(Color: word)
Устанавливает основной цвет, которым
будет осуществляться рисование
Procedure SetFillStyle
125
(Pattern
126
, Color :
word)
Устанавливает образец штриховки и цвет
Procedure SetLineStyle
127
(LineStyle, Pattern,
Thickness
128
: word)
Устанавливает толщину и стиль линий
Procedure SetPalette
129
(ColorNum, Color : word)
Заменяет цвет палитры с номером
ColorNum
на
Color
В качестве иллюстративного примера по использованию стандартных
модулей ниже приведена программа , в которой реализована задача по-
строения n квадратов, вершины которых располагаются на сторонах пре-
дыдущего квадрата . Положение вершин очередного квадрата находится
путем деления стороны предыдущего квадрата по правилу
x = x
1
+(x
2
-x
1
)*mu/(1+mu); y = y
1
+(y
2
-y1)*mu/(1+mu), где mu-параметр деле-
ния отрезка . Координаты вершин начального квадрата и значения пара -
метра mu задаются при вводе.
{Пример программы, использующей два стандартных модуля: Crt
и Graph. }
Uses Graph,Crt; {установление связи со стандартными модулями}
Var x,y,a,b : array [1..4] of integer; {массивы координат вершин
предыдущего (x, y) и последующего (a, b) квадратов}
xy : array [1..5] of PointType; {массив записей типа
PointType, описанного в модуле Graph. Этот массив используется для
построения очередного квадрата с помощью процедуры DrawPoly модуля
Graph}
c : char;
mu : real;
i,j : byte;
hz,GraphDriver,GraphMode,err : integer;
{---------------------------------}
123
Set back color [сэт бэк кало] – установить цвет фона .
124
Color [кало] – цвет.
125
Set fill style [сэт фил стайл ] – установить стиль заполнения.
126
Pattern [патен] – образец.
127
Set line style [сэт лайн стайл ] – установить стиль линии.
128
Thickness [сикнис ] – толщина .
129
Set palette [сэт палит ] – установить палитру.

Страницы