Реферат: Графические средства языка Паскаль

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

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

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

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

{вычислим масштабы по 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, начало координат находится в точке пересечения осей и т.п. В ваших программах все может быть не так.