Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
58Александр58
0 / 0 / 1
Регистрация: 04.04.2016
Сообщений: 4
1

Методом хорд вычислить с точностью E корень уравнения

04.04.2016, 16:13. Просмотров 973. Ответов 1
Метки нет (Все метки)

Методом хорд вычислить с точностью E корень уравнения
X^2-sin5x=0
Корень искать на интервале [0.5;0.6].
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2016, 16:13
Ответы с готовыми решениями:

Найти корень уравнения методом хорд с заданной точностью
срочно!Найти корень уравнения методом хорд с заданной точностью....

Методом итераций вычислить с точностью eps корень уравнения
Помогите решить задание чайнику , пожалуйста Методом итераций вычислить с...

Найти корень нелинейного уравнения F(x)=0 методом хорд. Крайние значения предела ([a,b]) содержащий корень и погрешность (\epsilon ) вводятся с клавиа
Найти корень нелинейного уравнения F(x)=0 методом хорд. Крайние значения...

C точностью до 0.00001 найти корень уравнения методом итераций (Delphi)
уравнение cos(x^2) - 10*x=0 a=0,b=2 - интервал. Пожалуйста помогите, зачет...

Вычислить с заданной точностью корень уравнения
1. Вычислить с точностью корень уравнения X*4+0,8x*3- 0,4x*2-1,4x-1,2=0...

1
58Александр58
0 / 0 / 1
Регистрация: 04.04.2016
Сообщений: 4
11.04.2016, 23:59  [ТС] 2
Лучший ответ Сообщение было отмечено 58Александр58 как решение

Решение

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
55
56
57
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
  Function f(x:real):real;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a, b, c, e: real;
begin
   a:=strtofloat(Edit1.Text);
   b:=strtofloat(Edit2.Text);
   e:=strtofloat(Edit3.Text);
   if f(a)*f(b)<0 then
       begin
         repeat
           c:=a-((b-a)*f(a))/(f(b)-f(a));
           if f(a)*f(c)<0 then b:=c
           else a:=c;
         until abs(f(c))<e;
         Edit4.Text:=floattostr(a-((b-a)*f(a))/(f(b)-f(a)));
       end;
end;
function TForm1.f(x:real):real;
begin
  result:=x*x-sin(5*x)-0
end;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.04.2016, 23:59

Найти корень уравнения Метод Хорд
Задача, Найти корень уравнения sin(x)=0,5 методом хорд. Не могу понять как...

Найти корень нелинейного уравнения F(x)=0 методом половинного деления. Крайние значения предела ([a,b]) , содержащий корень и погрешность (\epsilon )
Найти корень нелинейного уравнения F(x)=0 методом половинного деления. Крайние...

Найти корень нелинейного уравнения F(x)=0 методом касательных (метод Ньютона). Крайние значения предела ([a,b]) содержащий корень и погрешность (\epsi
Найти корень нелинейного уравнения F(x)=0 методом касательных (метод Ньютона)....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru