Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/22: Рейтинг темы: голосов - 22, средняя оценка - 4.55
1 / 1 / 0
Регистрация: 25.10.2012
Сообщений: 10
1

Решение уравнений методом хорд

25.10.2012, 18:58. Просмотров 4032. Ответов 5
Метки нет (Все метки)


Помогите решить уравнение методом хорд и составить блок схему,пожалуйста очень очень нужно,заранее благодарна!!!
x (в кубе)+x+1=0 на интервале [-1;0]
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2012, 18:58
Ответы с готовыми решениями:

Решение нелинейного уравнения методом хорд
помогите пжлста надо преобразовать вводимое уравнеие (наприме X+ln(x)=0 но прога нужна для всех...

Решение нелинейного уравнения методом хорд
Методом хорд вычислить с точностью Е корень уравнения ...

Решение уравнения методом хорд, дихотомии, Ньютона
решить методом дихотомии, хорд, и методом ньютона ур-е cos(x)=1/x на интервале от 0 до pi/2 знаю,...

Решение дифференциальных уравнений четвертого порядка методом Эйлера и методом Рунге-Кутта
Форумчане прошу помочь решить уравнение f :=y+y'*x+y''+y'''*x методами Рунге-Кутта и Эйлера. Если...

5
Модератор
62830 / 46889 / 32315
Регистрация: 18.05.2008
Сообщений: 113,619
25.10.2012, 19:03 2
За использование верхнего регистра положена карточка. Читайте Правила.
1
1 / 1 / 0
Регистрация: 25.10.2012
Сообщений: 10
25.10.2012, 19:35  [ТС] 3
простите не разобралась немного!!!
0
29 / 29 / 24
Регистрация: 22.12.2010
Сообщений: 54
25.10.2012, 21:40 4
Как-то так.

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 zadanie_1;
 
function F(x: real): real;
begin
  F := x * x * x + x + 1;
end;
 
function Chord(a, b, e: real; var i: integer): real; { Метод хорд }
var
  x, x1: real;
begin
  i := 0;
  repeat
    x := (F(b) * a - F(a) * b) / (F(b) - F(a));
    if F(a) * F(x) > 0 then
      a := x
    else
      b := x;
    i := i + 1;
    x1 := (F(b) * a - F(a) * b) / (F(b) - F(a));
  until abs(x1 - x) < e;
  Chord := x;
end;
 
var
  a, b, eps, x: real;
  i: integer;
 
begin
  a := -1;
  b := 0;
  eps := 0.0001;
  x := Chord(a, b, eps, i);
  writeln('X chord=', x:0:5, ' chislo iter=', i);
  readln;
 
end.
1
1 / 1 / 0
Регистрация: 25.10.2012
Сообщений: 10
29.11.2012, 22:00  [ТС] 5
в 15 строчке выдает ошибку номер 89
0
1 / 1 / 0
Регистрация: 26.11.2012
Сообщений: 93
27.12.2012, 18:49 6
JIomaka, а полностью можешь написать?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2012, 18:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Решение уравнений методом Ньютона
Здравствуйте, помогите чем можете. Работать в паскале начал недавно, есть уравнение решил его...

Решение уравнений методом итераций
Помогите пожалуйста, я написал программу, интервал она находит, а корни нет, проблема с реализацией...

Решение нелинейных уравнений методом Ньютона
решить методом касательных(метод ньютона). на промежутке (1;3) 2*(ln(x))^2+6*ln(x)-5

Решение системы уравнений методом LU-разложений
Здравствуйте, имеется код паскаль/делфи, так как знаний мало, никак не могу активировать этот код,...


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

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

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