Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 47 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

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

Рубрика: 

93
Примеры построения программ
с использованием модуля Graph
Вывод точки и рисование отрезков прямых
PutPixel(x,y,Color) –
окрашивает точку экрана с координатами х и у
цветом, определяемым параметром Color. Используя эту процедуру, можно
выполнять построение всех изображений на экране.
Пример:
Программа, которая рисует в центре экрана отрезок горизонтальной
прямой красного цвета.
Uses Graph;
var i:Integer;
{вставка процедуры инициализации.}
{$I D: /pas/init.pas}
begin
{вызов процедуры инициализации графического режима.}
Init;
{графический режим установлен. Рисование отрезка прямой.}
For i:=0 to GetMaxX do
PutPixel (i, GetMaxY div 2, Red);
Readln;
{закрытие графического режима.}
CloseGraph;
end.
В данной программе использована процедура инициализации, которая
располагается в отдельном файле с именем init.pas, находящемся в каталоге
pas на диске D. Один из возможных её вариантов приведён ниже.
{Процедура инициализации}
Procedure Init;
var
GraphDiver, GraphMode, ErrorCode:Integer;
begin
GraphDiver:=Detect;
InitGraph (GraphDiver, GraphMode,
′ ′);
{Проверка результата выполнения процедуры инициализации}
ErrorCode :=GraphResult;
if ErrorCode <>qrOk then
begin
Write(′Графический режим не установлен′);
Halt;
end; end.
94
При выполнении программы после инициализации графического ре-
жима в цикле будут окрашены в красный цвет все точки с координатами по
оси х от 0 до максимального значения, координата у которых равна GetMaxY
div 2. То есть на экране будет нарисована
горизонтальная красная прямая.
Таким способом можно выводить горизонтальные и вертикальные от-
резки прямых линий. Наклонные отрезки удобнее рисовать с помощью
специальной процедуры.
Line(X1,Y1,X2,Y2)- выводит на экран отрезок прямой, начинающейся в
точке с координатами Х1,Y1 и заканчивающейся в точке Х2,Y2. Однако цвет,
которым рисуется линия, необходимо определить отдельно.
SetColor(Color)- устанавливает цвет выводимой на экран информации.
Параметр Color должен находится в пределах от 0 до 15.
SetBkColor(Color)- устанавливает цвет фона. После её применения
цвет фона изменяется на заданный в параметре Color.
SetLineStyle(LineStyle, Patter, Thickness:word)- устанавливает значения
параметров до использования процедур, выполняющих рисование линий. Все
выводимые на экран линии имеют два параметра – тип линии и толщину.
Первый параметр LineStyle определяет тип линии. Он может принимать сле-
дующие значения:
Таблица 8 Установка типов линий
Имя константы Значение константы Тип линий
SolidLn 0 сплошная линия
DottedLn 1 линия, состоящая из точек
CenterLn 2 штрих пунктирная линия
DashedLn 3 штриховая линия
UserBitLn 4 линия, задаваемая пользова-
телем
Второй параметр Patter определяет тип линии в том случае, если пер-
вый параметр принимает значение UserBitLn.
Третий параметр Thickness позволяет выбрать толщину линии, которая
может иметь два значения: обычная толщина – NormWidth, или 1, и жирная
линия – ThickWidth, или 3. 
                  Примеры построения программ                                          При выполнении программы после инициализации графического ре-
                  с использованием модуля Graph                                жима в цикле будут окрашены в красный цвет все точки с координатами по
                                                                               оси х от 0 до максимального значения, координата у которых равна GetMaxY
                                                                               div 2. То есть на экране будет нарисована горизонтальная красная прямая.
                   Вывод точки и рисование отрезков прямых
                                                                                       Таким способом можно выводить горизонтальные и вертикальные от-
       PutPixel(x,y,Color) – окрашивает точку экрана с координатами х и у
                                                                               резки прямых линий. Наклонные отрезки удобнее рисовать с помощью
цветом, определяемым параметром Color. Используя эту процедуру, можно
                                                                               специальной процедуры.
выполнять построение всех изображений на экране.
                                                                                       Line(X1,Y1,X2,Y2)- выводит на экран отрезок прямой, начинающейся в
       Пример:
                                                                               точке с координатами Х1,Y1 и заканчивающейся в точке Х2,Y2. Однако цвет,
       Программа, которая рисует в центре экрана отрезок горизонтальной
                                                                               которым рисуется линия, необходимо определить отдельно.
прямой красного цвета.
                                                                                       SetColor(Color)- устанавливает цвет выводимой на экран информации.
       Uses Graph;
                                                                               Параметр Color должен находится в пределах от 0 до 15.
       var i:Integer;
                    {вставка процедуры инициализации.}                                 SetBkColor(Color)- устанавливает цвет фона. После её применения
                               {$I D: /pas/init.pas}                           цвет фона изменяется на заданный в параметре Color.
       begin                                                                           SetLineStyle(LineStyle, Patter, Thickness:word)- устанавливает значения
                    {вызов процедуры инициализации графического режима.}       параметров до использования процедур, выполняющих рисование линий. Все
          Init;
                                                                               выводимые на экран линии имеют два параметра – тип линии и толщину.
                   {графический режим установлен. Рисование отрезка прямой.}
         For i:=0 to GetMaxX do                                                Первый параметр LineStyle определяет тип линии. Он может принимать сле-
           PutPixel (i, GetMaxY div 2, Red);                                   дующие значения:
         Readln;
                    {закрытие графического режима.}                                                                        Таблица 8 Установка типов линий
          CloseGraph;                                                                   Имя константы      Значение константы              Тип линий
       end.                                                                                SolidLn                  0             сплошная линия
       В данной программе использована процедура инициализации, которая
                                                                                          DottedLn                  1             линия, состоящая из точек
располагается в отдельном файле с именем init.pas, находящемся в каталоге
                                                                                          CenterLn                  2             штрих пунктирная линия
pas на диске D. Один из возможных её вариантов приведён ниже.
                                                                                          DashedLn                  3             штриховая линия
       {Процедура инициализации}
        Procedure Init;                                                                   UserBitLn                 4             линия, задаваемая пользова-
       var                                                                                                                        телем
          GraphDiver, GraphMode, ErrorCode:Integer;
       begin                                                                         Второй параметр Patter определяет тип линии в том случае, если пер-
        GraphDiver:=Detect;                                                    вый параметр принимает значение UserBitLn.
        InitGraph (GraphDiver, GraphMode,′ ′);
                                                                                     Третий параметр Thickness позволяет выбрать толщину линии, которая
                  {Проверка результата выполнения процедуры инициализации}
           ErrorCode :=GraphResult;                                            может иметь два значения: обычная толщина – NormWidth, или 1, и жирная
           if ErrorCode <>qrOk then                                            линия – ThickWidth, или 3.
           begin
            Write(′Графический режим не установлен′);
             Halt;
           end; end.
                                         93                                                                          94

Страницы