Вычисление определенного интеграла методом правых прямоугольников, Построение графика заданной функции (и ее производной) - Исследование функции и ее производной

Program Kursovaya4;

Var a, b, j, h:real; n, i:integer;

Function F(x:real):real;

Begin

F:=power(x,5)-7*power(x,4)-2*power(x,3)+46*power(x,2)+65*x+25;

End;

Begin

A:=-3;

B:=6;

I:=10000;

J:=0;

H:=(b-a)/i;

For n:=0 to i-1 do

J:=j+F(a+n*h);

J:=j*h;

Writeln('Площадь трапеции на интервале [-3;6] = ',j:2:2);

End.

Площадь трапеции а интервале [-3;6] = 648.52

Построение графика заданной функции (и ее производной)

Математический уравнение интеграл ньютон

Program Kursovayagraph;

Uses graphABC;

Var xc, yc, i:integer; a, b, dx, hy, hx, x, maxY, minY, mx, my, py, px:real; s:string;

Function F(x:real):real;

Begin

F:=power(x,5)-7*power(x,4)-2*power(x,3)+46*power(x,2)+65*x+25;

End;

Function dF(x:real):real;

Begin

DF:=5*power(x,4)-28*power(x,3)-6*power(x,2)+92*x+65;

End;

Begin

SetWindowCaption ('График функции и ее производной');

Writeln('Введите границы интервала функции');

ClearWindow;

Readln(a, b);

Xc:=WindowWidth div 2;

Yc:=WindowHeight div 2;

Line(0,yc, WindowWidth, yc);

Line(xc,0,xc, WindowHeight);

Dx:=0.1;

X:=a;

MaxY:=F(a); minY:=F(a);

While x<=b do

Begin

If F(x)>maxY then maxY:=F(x);

If F(x)<minY then minY:=F(x);

If dF(x)>py then py:=dF(x);

If dF(x)<px then px:=dF(x);

X:=x+dx;

End;

Writeln('max значение функции = ',minY:4:2);

Writeln('min значение функции = ',maxY:4:2);

If py>maxY then maxY:=py;

If px<minY then minY:=px;

If abs(maxY)>abs(minY)then hy:=abs(maxY) else hy:=abs(minY);

If abs(a)>abs(b)then hx:=abs(a) else hx:=abs(b);

Mx:=(xc-10)/hx;

My:=(yc-10)/hy;

For i:=1 to round(hx) do

Begin

Line (xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);

Line (xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);

Str(i, s);

Textout(xc+round(i*mx),yc+10,s);

Textout(xc-round(i*mx),yc+10,'-'+s);

End;

I:=round(abs(hy)/7);

While i<=hy+1 do

Begin

Line (xc-3,yc-round(i*my),xc+3,yc-round(i*my));

Line(xc-3,yc+round(i*my),xc+3,yc+round(i*my));

Str(i, s);

Textout(xc-50,yc-round(i*my),s);

Textout(xc-50,yc+round(i*my),'-'+s);

I:=i+round(abs(hy)/7);

End;

Textout(xc-15,yc+5,'0');

X:=a;

Dx:=0.001;

While x<=b do

Begin

If abs(F(x)*my)<WindowHeight div 2

Then setpixel (xc+round(x*mx),yc-round(F(x)*my),clgreen);

If abs(dF(x)*my)<WindowHeight div 2

Then setpixel (xc+round(x*mx),yc-round(dF(x)*my),clBlue);

X:=x+dx;

End;

Line(775,8,795,8,clgreen);

Line(775,28,795,28,clBlue);

Textout (802,0,'График функции');

Textout (802,20,'График производной функции');

End.

Похожие статьи




Вычисление определенного интеграла методом правых прямоугольников, Построение графика заданной функции (и ее производной) - Исследование функции и ее производной

Предыдущая | Следующая