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

@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 }

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

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

Решение

Решение

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

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

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