Turbo Pascal Решение уравнений методом касательных (Ньютона)

[Маша-Растеряша]

Ребята Здравствуйте! С Наступившим Новым Годом всех, с Новыми идеями, с Новыми впечатлениями!

Помогите пожалуйста бестолковой с ещё одной задачей.

Необходимо на языке программирования Турбо Паскаль выполнить Решение нелинейных уравнений методом касательных иначе именуемым (Ньютона).

пример: 5sin2x=(1–x)^1/2 (^1/2 это степень данной скобки) на интервале [–6,1]

Ребят буду очень признательна, заранее большое спасибо!

[k0tone]

Наработки свои покажете? или вы ждёте что вам за просто так будут помогать? Если да, то ждите помощи вот сдесь -> http://www.cyberforum.ru/pascal/thread224325.html

[Маша-Растеряша]

Наработки свои покажете? или вы ждёте что вам за просто так будут помогать? Если да, то ждите помощи вот сдесь -> http://www.cyberforum.ru/pascal/thread224325.html
__________________
Если я вам помог - нажмите на весы пот аватаркой!


У меня совсем нет наработок, довольно хорошо знаю математику но увы не умею реализовать это в информатике =( Я не жду, что кто то за меня будет данную задачу делать, лишь жду помощи, подсказки в каком направлении двигаться.... На том ресурсе который указали я действительно задействовала, всё для той же цели... Зря вы с такой злостью

[k0tone]

program test;
uses crt;
var xk,xk1,a,b,e,y:real;
    
 function F(x:real):real;
  begin
   F:=5*sin(2*x)-sqrt(1-x);
  end;

 function F1(x:real):real;
  begin
   F1:=5*cos(x)+(1/(2*(sqrt(1-x))));
  end;

begin
 clrscr;

 a:=-6;
 b:=1;
 e:=0.00000001;

 writeln('x=[',a:1:0,';',b:1:0,')');
 writeln('pogreshnost=',e:1:8);
 write('Vvediet x=');
 readln(a);
 readln;

 xk:=a;
 y:=F(xk);

 while abs(y)>e do
 begin
  xk1:=xk-F(xk)/F1(xk);
  xk:=xk1;
  y:=F(xk1);
  writeln('x=',xk1:1:9,'     f(x)=',y:1:9);
  readln;
 end;

 writeln('Konecgnie znacheniya');
 writeln('x=',xk1:1:9,'      f(x)=',y:1:9);
 readln;
end.

P.S.

[Маша-Растеряша]

k0tone

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

[Маша-Растеряша]

k0tone

я Вам очень признательна огромное спасибо вам ещё раз!

[k0tone]

to Маша-Растеряша
Поправил код:
Добавил введение "Х".

P.S. "Х" вводите из промежутка [-6;1).

[k0tone]

Ошибка:

function F1(x:real):real;
  begin
   F1:=5*cos(x)+(1/(2*(sqrt(1-x))));
  end;

Исправьте на:

function F1(x:real):real;
  begin
   F1:=10*cos(2*x)+(1/(2*(sqrt(1-x))));
  end;