Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 103 стр.

         (0,0)                                                 (639,0)
                                         (319,174)
                                                               (639,349)
         (0,349)
Здесь рассмотрен графический режим с матрицей экрана 640х350 пикселей. В некоторых
других режимах эта матрица может быть иной, например, 320х200 или 640х200 и так далее.
Определение координат правого нижнего угла экрана выполняется по функциям: GetMaxX,
GetMaxY.
Синтаксис:
      GetMaxX : integer;
      GetMaxY : integer.
Графические объекты могут быть черно-белыми или цветными. Черно-белые рисунки
выполняются обычно в системах с графическими картами, не учитывающими цвет,
например, с картой Hercules. Если возможен вывод в цвете (например, карта EGA или CGA),
то при установке графического режима можно определить его параметры и тем самым
доступную цветовую гамму. Цвета гаммы (она отсутствует для карты Hercules)
пронумерованы от 0 до GetMaxColor. Цвета могут быть фиксированными (для карты CGA),
либо произвольно изменяемыми (для карты EGA и VGA). Если цвета могут изменяться, то
присвоение выбранного цвета позиции цветовой гаммы производится с помощью
процедуры SetPalette.
Синтаксис:
      SetPalette (ColorNum, Color : word);
Идентификатор цвета Color присваивается позиции ColorNum цветовой гаммы. Изменение
цвета на экране будет обнаружено после выполнения                процедуры     SetPalette.
Идентификаторы цветов могут быть выражены следующим образом:

        Black=0           (черный);         DarkGray=8       (темно-серый);
        Blue=1            (синий);          LightBlue=9      (светло-синий);
        Green=2           (зеленый);        LightGreen=10    (светло-зелен.);
        Cyan=3            (голубой);        LightCyan=11     (светло-голуб.);
        Red=4             (красный);        LightRed=12      (светло-кpасн.);
        Magenta=5         (лиловый);        LightMagenta=13 (светло-лилов.);
        Brown=6           (коричневый);     Yellow=14        (желтый);
        LightGray=7       (светло-серый);   White=15         (белый).
Выбор номера цвета для изображения объектов обеспечивает процедура SetColor.
Синтаксис:
      SetColor(N : word);
При выполнении этой процедуры объекты будут рисоваться цветом, связанным аппаратно
или программно с позицией N цветовой гаммы. Программное присвоение этой позиции
другого цвета немедленно изменяет цвет рассматриваемых объектов.
Процедура SetBkColor изменяет цвет фона на такой цвет, который соответствует позиции N
текущей цветовой гаммы.
Синтаксис:
      SetBkColor(N : word).
14.1. Рисование графических примитивов
Рисование точки (пикселя) с координатами (X, Y) цветом с номером Color выполняется
процедурой
      PutPixel(X, Y: integer; Color: word).
Рисование отрезков прямых линий можно выполнить одной из следующих трех процедур:
      Line(X1, Y1: integer; X2, Y2: integer) - рисование отрезка прямой линии,
соединяющего точки с координатами (X1,Y1) и (X2,Y2);

                                                                                      103