Табулирование функции на отрезке [a; b] с шагом h, Нахождение точек локальных экстремумов, Нахождение всех действительных корней уравнения методом хорд - Исследование функции и ее производной

Program Kursovaya1;

Var x, q, h, a, b:real;

Begin

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

Readln(a, b);

Writeln('Введите шаг h');

Readln(h);

X:=a;

While x<=b do

Begin

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

Writeln('x=',x);

Writeln('q(x)=',q);

X:=x+h;;

End;

End.

Введите границы интервала функции

-3 6

Введите шаг h

1

X=-3

Q(x)=-512

X=-2

Q(x)=-49

X=-1

Q(x)=0

X=0

Q(x)=25

X=1

Q(x)=128

X=2

Q(x)=243

X=3

Q(x)=256

X=4

Q(x)=125

X=5

Q(x)=0

X=6

Q(x)=343

Нахождение точек локальных экстремумов

Program Kursovaya2;

Var x, q, h, a, b:real;

Begin

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

Readln(a, b);

Writeln('Введите шаг h');

Readln(h);

X:=a;

While x<=b do begin

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

If q=0 then begin writeln('x=',x); x:=x+h; writeln('q(x)=',q)end else

X:=x+h;

End.

Введите границы интервала функции

-3 6

Введите шаг h

1

X=-1

Q(x)=0

X=5

Q(x)=0

Нахождение всех действительных корней уравнения методом хорд

Корень= -1.00

Отрезок с корнем (-1.00;-1.00)

Корень= 5.00

Отрезок с корнем (5.00;5.00)

Число итераций = 2

Program kursovaya3;

Var x, h, z, a, b, e:real;

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;

Procedure koren (x0,x2,e:real);

Var x1,k, b, t:real;

Begin

Repeat

X1:=x0;

K:=(f(x2)-f(x1))/(x2-x1);

B:=f(x2)-k*x2;

X0:=-b/k;

T:=t+1;

Until (abs(x1-x0)<e)or(t>=20);

Writeln('Корень= ',x0:2:2);

End;

Begin

A:=-3;

B:=6;

E:=0.0001;

H:=0.5;

X:=a;

While x<=b do

Begin

If

(f(x)*f(x+h)<=0)and(dF(x)*dF(x+h)>0) then

Begin

Z:=z+1;

Koren(x-h, x+h, e);

Writeln('Отрезок с корнем (',x-h:2:2,';',x+h:2:2,')');

Writeln(' ')

End;

X:=x+h;

End;

Writeln('число итераций = ',z);

End.

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




Табулирование функции на отрезке [a; b] с шагом h, Нахождение точек локальных экстремумов, Нахождение всех действительных корней уравнения методом хорд - Исследование функции и ее производной

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