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

       Lx:=GetMaxX+1-LeftBlank-RightBlank;

       Ly:=GetMaxY+1-TopBlank-BottomBlank;

       Px:=LeftBlank; Py:=GetMaxY-BottomBlank;

       {нарисуем оси}

       SetColor(AxisColor);

       MoveTo(LeftBlank,TopBlank-1); LineRel(0,Ly); LineRel(Lx,0);

       {оцифруем ось X}

       SetTextJustify(CenterText,TopText);

       FOR i:=1 TO TicsNumX DO BEGIN

            MoveTo(LeftBlank+i*Lx DIV TicsNumX,Py); LineRel(0,TicSize);

            IF i=1 THEN s:='' ELSE Str(i,s); MoveRel(0,2); OutText(s+'Pi');

       END;

       {оцифруем ось Y}

       SetTextJustify(RightText,CenterText);

       FOR i:=1 TO TicsNumY DO BEGIN

            MoveTo(Px,Py-i*Ly DIV TicsNumY); LineRel(-TicSize,0);

            Str(i/10:3:1,s); MoveRel(-2,0); OutText(s);

       END;

       {выведем пояснительный текст}

       SetTextJustify(CenterText,CenterText); SetColor(TextColor);

       MoveTo(LeftBlank+Lx DIV 2,TopBlank DIV 2);

       OutText('график функции Cos(x)');

       {выведем показатель степени}

       MoveRel(TextWidth('график функции Cos(x)') DIV 2-TextWidth('(x)'),TextHeight('s'));

       SetTextStyle(SmallFont,0,PowerSize); OutText('2'); 

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





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