программирование алгоритмов по вычислению корней уравнений

@Mad Hatter · Регистрация: 03.04.2013

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

На интервале (a,b) найти с точность E=10^-5 корни уравнения f(x)=0 заданным методом деления отрезка пополам.

a=-4, b=-1
x*sin(ПИ/12*x-ПИ/3)-2,13
методом касательных (Ньютона)

помогите пожалуйста

@Jener · 04.04.2013, 06:14

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
program dn1;
uses
  crt;
const
  E = 0.000001;
var
  a, b, x : real;
function f(x:real):real;
begin
  f := x*sin(pi/12*x-pi/3)-2.13;
end;
function f1(x:real):real;
begin
  f1 := sin(pi/12*x-pi/3) + x*pi/12*cos(pi/12*x-pi/3);
end;
begin
  clrscr;
  a := -4; b := -1;
  repeat
    x := (a+b)/2;
    if f(a)*f(x)<=0 then b := x
    else a := x;
  until abs(b-a)<E;
  x := (a+b)/2;
  writeln('Метод половинного деления : ');
  writeln('x = ',x:0:12);
  writeln('f(x) = ',f(x):0:12);
  a := -4; b := -1;
  if f(a)*f1(a)>0 then x := a
  else x := b;
  while abs(f(x))>E do
    x := x - f(x)/f1(x);
  writeln('Метод Ньютона (касательных) : ');
  writeln('x = ',x:0:12);
  writeln('f(x) = ',f(x):0:12);
  readln;
end.

@Mad Hatter · 10.04.2013, 21:27 **[ТС]**

благодарю!

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 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. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Mad Hatter 0 / 0 / 0 Регистрация: 03.04.2013 Сообщений: 10

	программирование алгоритмов по вычислению корней уравнений 03.04.2013, 21:06. Показов 2094. Ответов 2 Метки нет (Все метки) На интервале (a,b) найти с точность E=10^-5 корни уравнения f(x)=0 заданным методом деления отрезка пополам. a=-4, b=-1 xsin(ПИ/12x-ПИ/3)-2,13 методом касательных (Ньютона) помогите пожалуйста 0

программирование алгоритмов по вычислению корней уравнений

Решение