Конспект лекций по программированию для начинающих. Гладков В.П. - 130 стр.

                                    132

                          4    Красный
                          5    Фиолетовый
                          6    Коричневый
                          7    Темно-серый
                          8    Светло-серый
                          9    Ярко-голубой
                          10   Ярко-зеленый
                          11   Ярко-голубой
                          12   Розовый
                          13   Ярко-фиолетовый
                          14   Желтый
                          15   Белый
   Высветить точку с координатами x,y: putpixel(x,y,цвет).
   Переместить курсор в новую текущую точку x,y: moveto(x,y).
   Прямая линия между точками x1,y1 и x2,y2: line(x1,y1,x2,y2).
   Прямая линия от текущей точки до точки x,y: lineto(x,y).
   Прямоугольник с левым верхним углом в точке x1,y1 и правым нижним углом в
точке x2,y2: rectangle(x1,y1,x2,y2).
   Закрашенный прямоугольник с левым верхним углом в точке x1,y1 и правым
нижним углом в точке x2,y2: bar(x1,y1,x2,y2).
   Установить цвет закраски: setfillstyle(штриховка,цвет).
   Штриховка:


                          0    Цвет фона
                          1    Сплошная
                          2    Минусами
                          3    Косыми чертами
                          10   Точками
   Закрасить область: floodfill(x,y,цвет границы области).
   Окружность: circle(x,y,радиус).
   Пример 10.56. Построить в заданном прямоугольнике экрана «карту звездного
неба» - набор случайных разноцветных точек.
   Решение. Исходными данными могут быть либо координаты левого верхнего и
правого нижнего углов прямоугольника, либо координата левого верхнего угла
прямоугольника и длины его сторон. Кроме того, пользователь должен указать
количество звездочек-точек на карте. В этом решении используется первый
вариант задания прямоугольника. Для задания координат звездочек-точек
используется датчик случайных чисел, попадающих в заданный прямоугольник.
   { карта звездного неба }
   uses graph;
   var       driver:integer; {используемый драйвер}
             mode :integer; {код графического режима}
             err :integer; {код ошибки}