Отдам все баллы,только помогите....напишите программу паскаль для вычисления данного

Отдам все баллы,только помогите....
напишите программку паскаль для вычисления данного образца
X^2=5cos(x-1)

Задать свой вопрос
Никита Бердибеков
Написать программку для нахождения Икс? Каким способом?
1 ответ
Определим функцию f (x) = x^2 - 5cos(x-1);    Необходимо отыскать ноль функции  f (x) ,  т.е. значение  х, при котором  f(x) = 0;
f(x) обратится в 0 , если cos(x-1) gt; 0  =gt;  - pi/2 lt; x lt; pi/2  =gt; 
=gt;  (2 - pi)/2  lt; x lt; (2 + pi)/2
Корня будет два.  Определим интервал для первого корня. 
Левая граница  а = - 0,57,  правая граница  b = 1
Для второго корня левая граница  а = 1,  правая  b = 2
корешки будем сыскать способом деления напополам.
Интервал [ a, b]  делится напополам и определяется символ функции в этой точке, в зависимости от знака меняется левая либо правая граница интервала.

Программка будет последующей:

function f(x: real): real;
begin
  f:=x*x-5*cos(x-1);
end;
главная программка
var a,b,c,eps: real;
    k: integer;
a - начало промежутка, b - конец
begin
  write('a = ');  readln(a);
  write('b = ');  readln(b);
  if f(a)*f(b)lt;0 then
  begin
    write('точность вычислений eps: ');  readln(eps);
    k:=1;
    while абс(a-b)gt;eps do
    begin
      c:=(a+b)/2; 
      if f(c)lt;gt;0 then
      begin
        if f(c)*f(b)lt;0 then
          a:=c
        else
          b:=c
      end;
      k:=k+1;
    end;
    writeln('корень = ',a:12:8);
    writeln('количество итераций: ',k);
  end
  else
     writeln('интервал задан ошибочно');
end.

a = -0.57
b = 1
точность вычислений eps: 0.00001
корень =  -0.51726021
количество итераций: 19

a = 1
b = 2
точность вычислений eps: 0.00001
корень =   1.83345795
количество итераций: 18





, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт