Решение нелинейных уравнений методом Ньютона

@Алсу · Регистрация: 13.05.2012

Студворк — интернет-сервис помощи студентам

решить методом касательных(метод ньютона). на промежутке (1;3)

$https://www.cyberforum.ru/cgi-bin/latex.cgi?2*(ln(x))^2+6*ln(x)-5$

@BumerangSP · 13.05.2012, 14:44

http://yotx.ru/default.aspx?cl... =png&aa=on
1 корень:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
var a,b,E,x1: real;
    i: integer;
    t: boolean;
    c: array [0..300] of real;
function f(x: real): real;
begin
 result:=2*sqr(ln(x))+6*ln(x)-5;
end;
function f1(x: real): real;
begin
 result:=(4*ln(x)+6)/x;
end;
function f2(x: real): real;
begin
 result:=(4-4*ln(x)+6)/sqr(x);
end;
begin
 clrscr;
 write('a/b/e: '); {интервал и точность}
 readln(a,b,e);
 c[0]:=a;
 t:=true;
 i:=0;
 x1:=f1(c[i]);
 while t=true do
  begin
   c[i+1]:=c[i]-f(c[i])/f1(c[i]);
   if abs(f(c[i+1]))>E then
    begin
     inc(i);
     x1:=f2(c[i]);
     continue;
    end
     else
      begin
       writeln('C=',c[i+1]:4:2);
       t:=false;
       break;
      end;
  end;
 writeln('Iteratsiy: ',i);
 readln;
end.

@Алсу · 13.05.2012, 19:21 **[ТС]**

спасибо, очень выручили)

но у меня выдается ошибка на uses crt;

не могли бы вы еще форму показать?

@BumerangSP · 13.05.2012, 19:24

Форму?? А у Вас какой паскаль? Или делфи? В таком случае нужно просто стереть эту строчку. А также убрать строчку "clrscr;".

@Алсу · 13.05.2012, 19:33 **[ТС]**

я делаю на lazaruse

@BumerangSP · 13.05.2012, 19:35

Ну, а раздел-то по паскалю

Во всяком случае, эти строчки там не нужны.

@Алсу · 13.05.2012, 19:38 **[ТС]**

Спасибо. Теперь все понятно=)

@PolarFoG · 14.05.2012, 17:28

Lazarus — свободная среда разработки программного обеспечения для компилятора Free Pascal. Это тот же Pascal.

Этот код выполняется в консоли.

Как создать консольное приложение в Lazarus?

...
файл>создать>консольное приложение О_о

стираем всё что понаписано по умолчанию оно вам не понадобится (уж извините но ни когда по всей видимости)

Вписываем код с рисунка

Решение нелинейных уравнений методом Ньютона

проект>инспектор проекта>+>новая зависимость>Имя пакета: LCL

Работаете...

@Mjaiil · 24.11.2018, 16:15

Можете пожалуйста объяснить что такое С[0] и X1?
Просто у меня есть похожее задание[((x^2+6)/(x^2-4))-(5x/(4-x^2))] и там получаются какие-то нереальные производные.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@Алсу 0 / 0 / 0 Регистрация: 13.05.2012 Сообщений: 5

	Решение нелинейных уравнений методом Ньютона 13.05.2012, 12:16. Показов 19288. Ответов 8 Метки нет (Все метки) решить методом касательных(метод ньютона). на промежутке (1;3) $https://www.cyberforum.ru/cgi-bin/latex.cgi?2(ln(x))^2+6ln(x)-5$ 0

@Алсу 0 / 0 / 0 Регистрация: 13.05.2012 Сообщений: 5
	13.05.2012, 19:21 [ТС]
	спасибо, очень выручили) но у меня выдается ошибка на uses crt; не могли бы вы еще форму показать? 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	13.05.2012, 19:24
	Форму?? А у Вас какой паскаль? Или делфи? В таком случае нужно просто стереть эту строчку. А также убрать строчку "clrscr;". 0

@Алсу 0 / 0 / 0 Регистрация: 13.05.2012 Сообщений: 5
	13.05.2012, 19:33 [ТС]
	я делаю на lazaruse 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	13.05.2012, 19:35
	Ну, а раздел-то по паскалю Во всяком случае, эти строчки там не нужны. 0

@Алсу 0 / 0 / 0 Регистрация: 13.05.2012 Сообщений: 5
	13.05.2012, 19:38 [ТС]
	Спасибо. Теперь все понятно=) 0

@PolarFoG NPC 152 / 146 / 22 Регистрация: 10.01.2012 Сообщений: 390
	14.05.2012, 17:28
	Lazarus — свободная среда разработки программного обеспечения для компилятора Free Pascal. Это тот же Pascal. Этот код выполняется в консоли. Как создать консольное приложение в Lazarus? ... файл>создать>консольное приложение О_о стираем всё что понаписано по умолчанию оно вам не понадобится (уж извините но ни когда по всей видимости) Вписываем код с рисунка проект>инспектор проекта>+>новая зависимость>Имя пакета: LCL Работаете... 1

@Mjaiil 0 / 0 / 0 Регистрация: 11.07.2018 Сообщений: 11
	24.11.2018, 16:15
	Можете пожалуйста объяснить что такое С[0] и X1? Просто у меня есть похожее задание[((x^2+6)/(x^2-4))-(5x/(4-x^2))] и там получаются какие-то нереальные производные. 0