Методом хорд найти неотрицательный корень уравнения

@DERVISH · Регистрация: 20.06.2011

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

Методом хорд (касательных) найти неотрицательный корень уравнения ах(в 3 степени)-bx+c=0 с точностью до =10-3

@Wladimir · 25.06.2011, 22:03

Сообщение от DERVISH

Методом хорд (касательных) найти неотрицательный корень уравнения ах(в 3 степени)-bx+c=0 с точностью до =10-3

Я могу тебе предложить только программу для метода хорд

Delphi
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
45
46
47
48
49
50
51
52
53
54
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
 a,b,c,d,e,k:real;
 function f(x:real):real;
   begin
      f:=x*x*x-10-exp(x-7);
   end;
   function f1(x:real):real;
     begin
       f1:=3*x*x-exp(x-7);
     end;
    function f2(x:real):real;
     begin
       f2:=6*x-exp(x-7);
     end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('metod hord')  ;
  writeln('vvedite dannie');
  write('vvedite a: ');
  readln(a);
  write('vvedite b: ');
  readln(b);
   write('vvedite tochnoct: ');
  readln(e);
  if f(a)*f(b)>0 then
    begin
      write('metod ne premenim');
      exit;
    end;
    if f(a)*f2(a)>0 then
    begin
      c:=b;
      d:=a;
    end
    else
    begin
      c:=a;
      d:=b;
    end;
    c:=c+f(c)*(d-c)/(f(d)-f(c));
    while abs(f(c))>e do
      c:=c-((c-d)*f(c))/(f(c)-f(d));
    write('c= ',c);
    k:=f(c);
    writeln(' f=',k);
    readln;
end.

и метода касательных

Delphi
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
45
46
47
48
49
50
51
52
53
54
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function power(x:real):real;
   begin
      power:=x*x*x-10-exp(x-7);
   end;
   function powerk(x:real):real;
     begin
      powerk:=3*x*x-exp(x-7);
     end;
    function powerl(x:real):real;
     begin
      powerl:=6*x-exp(x-7);
     end;
var
 f1:boolean;
 a,b,c,d,e:real;
begin
writeln('metod kasatelnich') ;
  writeln('vvedite dannie');
  write('vvedite a: ');
  readln(a);
  write('vvedite b: ');
  readln(b);
   write('vvedite tochnoct: ');
  readln(e);
  if (power(a)*power(b))>=0 then
    begin
      write('metod ne premenim');
      readln;
      exit;
    end;
    f1:=true;
    if power(a)*powerl(a)>0 then c:=a else c:=b;
    while f1 do
    begin
    if abs(power(c))<e then
    begin
      writeln(c,'-koren');
      writeln('znachenie v tochke:',power(c));
      readln;
      exit;
    end;
    c:=c-(power(c)/powerk(c));
    end;
    readln;
    readln;
   { TODO -oUser -cConsole Main : Insert code here }
end.

@Holy_Metal · 25.06.2011, 23:15

Wladimir, а вы раздел не перепутали? Это паскаль АБЦ, а не Делфи.

@Wladimir · 26.06.2011, 00:20

Сообщение от Holy_Metal

Wladimir, а вы раздел не перепутали? Это паскаль АБЦ, а не Делфи.

Ну маленько перепутал на АВС они тоже работает, проверял. только убрать надо

Delphi
1
2
3
4
5
6
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;

и соответсвенно

Delphi
1
{ TODO -oUser -cConsole Main : Insert code here }

Новые блоги и статьи Все статьи Все блоги /
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 Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@DERVISH 0 / 0 / 0 Регистрация: 20.06.2011 Сообщений: 25

	Методом хорд найти неотрицательный корень уравнения 23.06.2011, 08:27. Показов 1110. Ответов 3 Метки нет (Все метки) Методом хорд (касательных) найти неотрицательный корень уравнения ах(в 3 степени)-bx+c=0 с точностью до =10-3 0

@Holy_Metal 72 / 72 / 60 Регистрация: 14.12.2010 Сообщений: 201
	25.06.2011, 23:15
	Wladimir, а вы раздел не перепутали? Это паскаль АБЦ, а не Делфи. 0

Методом хорд найти неотрицательный корень уравнения

Решение

Решение