[Medion]

Здравствуйте уважаемые программисты, не могли бы вы помочь.
Нужно решить нелинейное уравнение методом ньютона в delphi lazarus.
3*tan(x)-1/3=0. [0.2;1]

Интервал и точность задается с клавиатуры.
Помогите пожалуйста

[AND_REY]

Так попробуй:

Код:

Uses Math;
procedure TForm1.Button1Click(Sender: TObject);
Var
 x, Xmin, Xmax, e, R: Real;
begin
 Xmin:= StrToFloat(Edit1.Text);
 Xmax:= StrToFloat(Edit2.Text);
 e:= StrToFloat(Edit3.Text);
 x:= Xmin;
 Repeat
  R:= 3*Tan(x)-1/3;
  x:= x + 0.001;
  if Abs(R) <= e Then Label1.Caption:= 'X = '+FloatToStr(x);
 Until x >= Xmax;
end;

[Medion]

Большое спасибо!
Только возник вопрос, это решение методом ньютона?

[ALexandr555]

эх Денис Денис зачем врешь http://vk.com/feed?section=comments#/wall-91322_8079

[Medion]

да не хорошо получилось(