|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Решение нелинейного уравнения
Здравствуйте уважаемые программисты, не могли бы вы помочь.
Нужно решить нелинейное уравнение методом ньютона в delphi lazarus. 3*tan(x)-1/3=0. [0.2;1] Интервал и точность задается с клавиатуры. Помогите пожалуйста |
#2
|
||||
|
||||
Так попробуй:
Код:
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; If end Then begin; |
#3
|
|||
|
|||
Большое спасибо!
Только возник вопрос, это решение методом ньютона? |
#4
|
||||
|
||||
эх Денис Денис зачем врешь http://vk.com/feed?section=comments#/wall-91322_8079
|
#5
|
|||
|
|||
да не хорошо получилось(
|