Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 10.09.2015
Сообщений: 1
1

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

10.09.2015, 11:13. Просмотров 1514. Ответов 1
Метки нет (Все метки)


найдите корень уравнения x^4 - 26x^3 + 131x^2-226x+120 = 0 c точностью до 10:-4 в интервале изоляции корня {19.5; 21.2} методом хорд и касательных(только отдельно 2 проги, вместе уже есть

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
38
39
40
41
42
43
44
program z1;
uses crt;
function f(var x:real):real;
begin
f:= x*x*x*x-26*x*x*x+131*x*x-226*x+120;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x-78*x*x+262*x-226; {первая производная}
end;
function f2(var x:real):real;{вторая производная}
begin
f2:=12*x*x-156*x+262;
end;
var
a,b:real;
e,e1:real;
x0,tmp:real;
x11,x12:real;
z,x6,y:real;
begin
clrscr;
a:=19.5;
b:=21.2;
e:=0.0001;
x0:=a;
if f(a)*f(b)>0 then writeln('a or b is incorrect')
else
begin
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
while  abs(e1-x11)>e do
begin
a:=x11;
b:=x12;
x11:= a-F(a)/f1(a);
x12:= a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
end;
writeln ('Ответ: ',x11:6:2)
end;
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.09.2015, 11:13
Ответы с готовыми решениями:

Методом хорд найти корень уравнения
Приветствую. Прошу помочь с решением данного задания: Методом хорд найти корень уравнения...

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

Найти корень уравнения методом половинного деления
Найти корень уравнения \cos x-\sqrt{x}=0 методом половинного деления с точностью Е=0.0001.

Методом деления отрезка пополам найти корень уравнения
Методом деления отрезка пополам найти корень уравнения (x-3)cosx-1=0 на отрезке Pascal ABC

1
Модератор
62866 / 46910 / 32330
Регистрация: 18.05.2008
Сообщений: 113,680
10.09.2015, 14:58 2
Цитата Сообщение от Banana1 Посмотреть сообщение
только отдельно 2 проги, вместе уже есть
метод хорд и касательных<>метод хорд+метод касательных.
Можно и в одной программе написать, но двумя методами.

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
function f1(x:real):real; {Основная функция}
begin
f1:=x*x*x*x-26*x*x*x+131*x*x-226*x+120;
end;
function f2(x:real):real; {Производная от основной функции}
begin
f2:=4*x*x*x-78*x*x+262*x-226;
end;
var x,a,b,e:real;
begin
a:=19.5;
b:=21.2;
e:=0.0001;
Writeln ('Корень в интервале от ',a:0:1,' до ',b:0:1,' с погрешностью ',e:0:4);
Writeln('Метод касательных');
if f1(a)*f2(a)>0 then x:=a
else x:=b;
while abs(f1(x))>e do
   begin
     x:=x-f1(x)/f2(x);
   end;
Writeln ('x=',x:0:5,' f(x)=',f1(x):0:5);
 
Writeln('Метод хорд');
repeat
x:=(f1(b)*a-f1(a)*b)/(f1(b)-f1(a));
if abs(f1(x))<=e then
 begin
  writeln('x=',x:0:5,' f(x)=',f1(x):0:5);
  exit;
 end;
if f1(a)*f1(b)>0 then a:=x else b:=x;
until abs((f1(b)*a-f1(a)*b)/f1(b)-f1(a)-x)<=e;
writeln('x=',x:0:5,' f(x)=',f1(x):0:5);
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.09.2015, 14:58

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

Найти корень уравнения методом хорд
Найти корень уравнения φ(x)=0 на интервале (A,B) с точностью E=10-4. Известно, что φ(x) на...

Уточнение корней нелинейного уравнения комбинированным методом хорд и касательных
Здравствуйте. У меня тема практики-&quot;уточнение корней нелинейного уравнения комбинированным методом...

Вычислить корень уравнения методом хорд
Методы решения скалярных уравнений. С точностью найти ко-рень уравнения, локализованный на(0.5;2)...

Нужно реализовать метод хорд и касательных для нахождения корней уравнения
Нужно реализовать метод хорд и касательных для нахождения корней уравнения. По ходу решиения...


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

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

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