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

USES Graph;

CONST ScreenColor = DarkGray; {цвет экрана}

       LineColor  = Yellow;    {цвет кривой}

       TextColor  = White;     {цвет подписей}

       AxisColor  = LightCyan; {цвет координатных осей}

CONST n           = 200; {количество отрезков в графике}

       LeftBlank   = 100; {отступ слева}

       RightBlank  = 100; {отступ справа}

       TopBlank    = 100; {отступ сверху}

       BottomBlank = 60 ; {отступ снизу}

       TicSize      = 5;   {размер делений на осях}

       PowerSize    = 3;   {размер цифры 2 (показатель степени)}

       TicsNumY   = 10;  {количество делений на оси Y}

       TicsNumX   = 6;   {количество делений на оси Y}

CONST x1=6*Pi;

FUNCTION f(x:REAL):Real; BEGIN f:=Sqr(Cos(x)); END;

VAR GrDriver,GrMode,Lx,Ly,Px,Py : Integer;

    i                            : Word;

    s                            : STRING;

    Mx,My,x                     : Real;

BEGIN {инициализируем графический режим}

       GrDriver:=DETECT; InitGraph(GrDriver,GrMode,'');

       {закрасим экран фоновым цветом}

       SetFillStyle(1,ScreenColor); Bar(0,0,GetMaxX,GetMaxY); 

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

Рекомендуем скачать другие рефераты по теме: реферат на тему україна, bestreferat ru.





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