Метод дихотомии, Дифф уравнения

[STiLLeN]

Добрый вечер всем участникам форума.

Имеется функция. dy/dx=exp(-y)*sin(x);

Всего 3 метода решения, ниже представлен документ word.

Данную функцию нужно решить методом дихотомии

подпрограмма для нахождения координат точки экстремума.

Program Dihotomia;
Uses Crt;
                   var xe, ye, dx1: real;
                   a, b, eps: real;
                    nn: longint;
                  x1, x2, y1, y2,d :real;
 Function func(x:real):real;
begin
 func:=sin(x);
end;

begin
Writeln('Отрезок a=');
Readln(a);
Writeln('Отрезок b=');
Readln(b);
Writeln('eps=');
Readln(eps);
    d:=0.01;nn:= 0;
while (b-a>2*eps) do
    begin
       x1:=(a+b-d)/2; x2:=(a+b+d)/2;
       y1:= func(x1); y2:= func(x2);
       if y1>=y2 then a:=x1 else b:=x2;
       inc(nn);
           end;
xe:=(a+b)/2;
ye:= func(xe);
writeln('f min(',xe:2:4,')=',ye:2:4);
{ результат: координаты точки экстремума }
end.

Подскажите все ли я правильно сделал?

[STiLLeN]

Тема закрыта. Вопрос решен