Предыдущая страница реферата | 1  2  3  4  5  6

       {вычислим масштабы по X и Y}

       Mx:=Lx/x1; My:=Ly;

       {нарисуем график}

       SetLineStyle(0,0,3); SetColor(LineColor); MoveTo(Px,Py-Ly);

       FOR i:=1 TO n DO BEGIN

            x:=i*x1/n; LineTo(Px+Round(Mx*x),Py-Round(My*f(x)));

      END;

      {сделаем задержку}

      READLN;

      {перейдем в текстовый режим}

      CloseGraph;

END.

Это неплохая программа, но автор хотел бы предостеречь от ее бездумного использования как эталона во всех случаях. Она использует априорную информацию о виде изображаемой функции: минимальное значение функции = 0, максимальное значение функции = 1, начало координат находится в точке пересечения осей и т.п. В ваших программах все может быть не так.

Скачали данный реферат: Kriz'ko, Revjagin, Руслан, Krupnov, Gorjainov, Dolgorukov, Савелий.
Последние просмотренные рефераты на тему: контрольные бесплатно, диплом купить, контрольная работа класс, курсовые.



Предыдущая страница реферата | 1  2  3  4  5  6

Поделитесь этой записью или добавьте в закладки