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

                                      133

            i :longint; { счетчик цикла }
            x1,y1,x2,y2:integer; { координаты прямоугольника }
            n :integer; { количество точек на карте }
    begin
       write('Введите координаты левого верхнего ');
       write('и правого нижнего углов прямоугольника ');
       readln(x1,y1,x2,y2);
       write('Введите количество точек на карте ');
       readln(n);
       { переходим в графический режим }
       driver:=detect;
       initgraph(driver,mode,'c:\tp7\bgi\');
       err:=graphresult;
       if err<>0
       then begin write('ОШИБКА ГРАФИКИ: ',grapherrormsg(err));
                      halt
              end;
       setbkcolor(0); { цвет фона черный }
       for i:=1 to n do { вывод точек }
              putpixel(x1+random(x2-x1),y1+random(y2-y1),random(15));
    closegraph;
    end.
    Пример 10.57. Нарисовать в график функции y=x2 на отрезке от -10 до 10.
    Решение. Вспомним процесс построения графика функции в математике.
Сначала начертим оси координат и их подпишем. Выберем расположение осей
координат так, чтобы они пересекались в центре экрана. Поскольку мы перенесли
оси координат и их перевернули по сравнению с исходным положением, то
поэтому координаты рисуемых на экране точек будут вычисляться по формулам:
x=x0+абсцисса, y=y0-ордината. Здесь x0,y0 - координаты центра новой системы
координат.
    Выберем затем масштаб по осям x и y. Масштаб показывает, какая часть экрана
изображает единицу реального графика. В тетради по математике часто выбирается
масштаб, при котором одна клеточка тетради равна единице реального графика.
Чтобы задать масштаб на экране нужно выбрать размеры экрана, отводимые для
вывода графика. Пусть в нашем случае по оси x используется количество точек
getmaxx для изображения отрезка [-10;10] реального графика, поэтому
mx=getmaxx/(10-(-10)+1).
    По оси y для изображения отрезка [0;102] будем использовать getmaxy div 2
точек, поэтому my=getmaxy/100.
    Выбрав масштаб, нанесем единицы измерения на построенные оси. Поскольку
на оси y много точек, будем наносить их с шагом 10.
    Построив оси, строим график, нанося отдельные точки и соединяя их отрезками
прямых (строим график непрерывной функции!!) так, чтобы получилась плавная
кривая. Иногда, для достижения плавности, нужно увеличить количество точек.
Построение в нашем случае графика, состоящего из большого количество точек,
неприемлемо, так как функция не точечная, а непрерывная.