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

Решить уравнение модифицированным Методом Ньютона

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



Решить уравнение Модиф. Методом Ньютона
0
Изображения
 
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2010, 18:58
Ответы с готовыми решениями:

Решить уравнение методом Ньютона
x^3+2x+7.8=0

Решить уравнение методом деления отрезка пополам и Ньютона
Решить уравнение x*tan(x)=A, 0<x<pi/2 методом деления отрезка пополам и Ньютона. Входные...

Системы нелинейных алгебраических уравнений модифицированным методом Ньютона
Помогите решить пожалуйста

Решить уравнение f(x,g)=0 комбинированным методом(методом хорд и касательной)
здрасьте всем:) помогите решить задание,если не сложно даже два:)) 1.Получить элементы...

5
0 / 0 / 0
Регистрация: 03.10.2010
Сообщений: 8
10.10.2010, 18:59  [ТС] 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
45
46
uses crt;
function F(x:real):real;
begin
F:=x*x*x+2*x-13;
end;
function F1(x:real):real;
begin
F1:=3*x*x+2;
end;
procedure Newton1(x1,eps:real; var x2:real; var k:integer);
var b:real;
begin
x2:=x1;
k:=0;
repeat
b:=x2;
k:=k+1;
x2:=b-F(b)/F1(b);
until abs(x2-b)<eps;
end;
procedure Newton2(x1,eps:real; var x2:real; var k:integer);
var b:real;
begin
x2:=x1;
k:=0;
repeat
b:=x2;
k:=k+1;
x2:=b-F(b)/F1(x1);
until abs(x2-b)<eps;
end;
var x0,x,eps:real;
    k:integer;
begin
clrscr;
repeat
write('Vvedite nachalnoe priblizenie [1;3] x0=');
readln(x0);
until(x0>=1)and(x0<=3);
eps:=0.001;
Newton1(x0,eps,x,k);
writeln('X=',x:0:5,'  iteracij=',k);
Newton2(x0,eps,x,k);
write('X=',x:0:5,'  iteracij=',k);
readln
end.
0
Модератор
62861 / 46907 / 32328
Регистрация: 18.05.2008
Сообщений: 113,658
10.10.2010, 19:14 3
Обыкновенное квадратное уравнение с 2 точными корнями(х1=0,5 х2=1). В чем прикол?
0
0 / 0 / 0
Регистрация: 03.10.2010
Сообщений: 8
11.10.2010, 14:48  [ТС] 4
Честно не знаю, мне курсовую надо написать, решением в паскале модиф. методом ньютона..
0
Модератор
62861 / 46907 / 32328
Регистрация: 18.05.2008
Сообщений: 113,658
11.10.2010, 14:51 5
решением в паскале модиф. методом ньютона..
Может уравнение другое?
0
0 / 0 / 0
Регистрация: 03.10.2010
Сообщений: 8
11.10.2010, 18:41  [ТС] 6
да мне любую систему уравнений нужно решить ммн, я выразил как вы мне тогда сказали и получилось квадратное.. я вообще не представляю как его решать..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.10.2010, 18:41

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

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

Решить уравнение x-cos(x)=0 методом простых итераций
Помогите пожалуйста решить уравнение: x-cos(x)=0 методом простых итерации на паскале, вычислить...

Методом половинного деления решить уравнение с заданной точностью
методом половинного деления решить уравнение с заданной точностью е (вводится с клавиатуры) на...

Решить уравнение lnx-5cosx/3=0 методом простой итерации
помогите решить методом простой итерации уравнение lnx-5cosx/3=0 на промежутке с точностью e=0.001...


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

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

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