Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.04.2021, 17:29   #1
Ksta
Новичок
Джуниор
 
Регистрация: 11.04.2021
Сообщений: 5
Восклицание комбинированный метод хорд и касательных

Задание: Найти корень уравнения N*x^3+(N+1)*x^2-N=0 с точностью Е=10^-4 комбинированным методом хорд и касательных на отрезке [0;1], где N = 2

Нужен алгоритм решения (блок-схему) и листинг программы
Ksta вне форума Ответить с цитированием
Старый 11.04.2021, 17:40   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,845
По умолчанию

Код:
function f(n:integer;x:real):real;
begin
   Result:=n*x*x*x+(n+1)*x*x-n;
end;

const e=1E-4;
      a=0;
      b=1;
      n=2;
var x,xa,xb,y,ya,yb:real;
begin
   xa:=a;
   xb:=b;
   Repeat
      x:=(xa+xb)/2;
      ya:=f(n,xa);
      y:=f(n,x);
      yb:=f(n,xb);
      {Writeln(ya:1:8);
      Writeln(y:1:8);
      Writeln(yb:1:8);}
      If ya*y<0 then
         xb:=x;
      If y*yb<0 then
         xa:=x;
   Until Abs(y)<e;
   Writeln('x = ',x:1:8,'; y = ',y:1:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 11.04.2021, 18:13   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,378
По умолчанию

Дихотомия - никаким образом не хорды и не касательные. Не тот мэтод.
Этак с каждого двоечника бы да по сотне РУР - можно было бы кирять не просыхая.

Последний раз редактировалось digitalis; 11.04.2021 в 18:17.
digitalis вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Каковы скорости сходимости методов касательных и хорд? now2 Помощь студентам 2 27.03.2014 20:47
[Pascal] Комбинированный метод хорд и касательных Максим139 Помощь студентам 3 07.10.2012 20:25
Метод Хорд , Касательных и Половинного деления DieHard Помощь студентам 4 13.09.2011 18:05
решение линейных уравнений методом хорд и касательных subarimpra Помощь студентам 2 15.10.2010 20:33
Метод хорд и касательных [Турбо Паскаль] mpegable Помощь студентам 6 14.05.2010 17:06


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS