С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 26.11.2010
Сообщений: 6

Метод касательной (Ньютона). Нужно исправить программу

26.11.2010, 01:00. Показов 1618. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
Program kasat;
var a,b,x,eps:real;n:integer; 
function f (x:real):real;
begin
f:=sqr(x)*x-(12*x)+9; 
end;
function f1 (x:real):real;
begin
f1:=3*sqr(x)-12; 
end;
Procedure kas (a,b,eps:real;var ct,cp:real);
begin
cp:=a;
ct:=cp-f(cp)/f1(cp);
n:=1;
while abs(cp-ct)>=eps
do
begin
cp:=ct;
ct:=cp-f(cp)/f1(cp);
n:=n+1;
writeln ((cp+ct)/2);
writeln('n=');
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.11.2010, 01:00
Ответы с готовыми решениями:

Нужно исправить программу на Паскале
var a,b,c,x,F:real; begin writeln('введите a,b,c,x:'); readln(a,b,c,x); if (c<0) and (b<>0) then begin if (b<>0) and...

Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих)
имеется исходник программы для решения методом Ньютона (метод касательных), требуется видоизменить для получения исходника под...

Двухмерный массив.Исключение строки.Нужно исправить программу)
Вот собственно что нужно: В двухмерном массиве исключить строку с заранее заданным индексом. Проблема в том, что если я ввожу...

3
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
26.11.2010, 08:31
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
Program kasat;
var a,b,x,eps:real;n:integer;
function f (x:real):real;
begin
f:=sqr(x)*x-(12*x)+9;
end;
function f1 (x:real):real;
begin
f1:=3*sqr(x)-12;
end;
Procedure kas (a,b,eps:real);
var cp,ct:real;
begin
cp:=a;
ct:=cp-f(cp)/f1(cp);
n:=1;
while abs(cp-ct)>=eps do
 begin
  cp:=ct;
  ct:=cp-f(cp)/f1(cp);
  n:=n+1;
 end;
writeln ((cp+ct)/2:0:5);
end;
begin
write('Введите точность eps=');
readln(eps);
writeln('Корни уравнения:');
//графически выделяем 2 интервала с корнями
kas(0.5,1.5,eps);
kas(2.5,3.5,eps);
end.
2
0 / 0 / 0
Регистрация: 03.02.2015
Сообщений: 1
03.02.2015, 22:53
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
Program kasat;
var a,b,x,x1,eps:real;n:integer;
function f (x:real):real;
begin
f:=sqr(x)*x-(12*x)+9;
end;
function f1 (x:real):real;
begin
f1:=3*sqr(x)-12;
end;
Procedure kas (a,b,eps:real);
var cp,ct:real;
begin
x:=a;
x1:=x-f(x)/f1(x);
n:=1;
while abs(x-x1)>=e do
 begin
  x:=x1;
  x1:=x-f(x)/f1(x);
  n:=n+1;
 end;
writeln ((x+x1)/2:0:5);
end.
нахождение всех действительных корней уравнения на отрезке [a; b], если таковые имеются (решение соответствующего уравнения выполнить с точностью до e=0,0001 одним из численных методов: касательных не более, чем за 20 итераций.
что то как то туговато подскажите что не так!?
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
04.02.2015, 05:37
Здесь решение для другого уравнения, но зато с полной математической выкладкой!
Поэтому привожу „как есть“ .
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
{===============================================================================
              Решение уравнений методом Ньютона (касательных)
--------------------------------------------------------------------------------
Метод Ньютона (касательных) основан на замене F(x) в начальной точке приближения
x = x0 касательной, пересечение которой с осью x даёт приближение x1, и т.д.
Таким образом , итерационный процесс схождения к корню реализуется формулой
                       Xn-1 = Xn - F(Xn) / F'(Xn),
до тех пор, пока соблюдается условие |Xn+1 - Xn| >= Eps.
В качестве X0 выбирают тот конец отрезка [a,b], на котором знаки F(X0) и F''(X0)
совпадают.
--------------------------------------------------------------------------------
В данной программе происходит вычисление функции
          F(Xn) / F'(Xn) = (x - sin x - 0.25) / (1 - cos x)
что соответствует решению уравнения F(x) = x - sin x - 0.25 = 0.
Поскольку F''(x) = sin x > 0 и F(x) > 0 при x = 1.2, это значение и будет взято
в качестве начального приближения.
===============================================================================}
function f(x : Real) : Real;
begin
  Result := (x - sin(x) - 0.25) / (1 - cos(x));
end;
 
const
  De = 10;
  Eps = 0.000000001;
  X0 = 1.2;
  
var
  X : Real;
  Step : Integer;
  
begin
  X := X0;
  WriteLn('Начальное значение: ', X :0:De);
  Step := 0;
  repeat
    X := X - f(X);
    Inc(Step);
    WriteLn('Шаг ', Step, ' - значение: ', X :0:De);
  until Abs(f(X)) < Eps;
  WriteLn('Корень = ', X :0:De);
  WriteLn('Проверка: x - sin x - 0.25 = ', x - sin(x) - 0.25 :0:De);
end.
Думаю, что человеку, для которого тема производных ещё близка, не составит труда переделать под своё уравнение…
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.02.2015, 05:37
Помогаю со студенческими работами здесь

Нужно исправить программу, выводится Infinity
Приветствую всех. Помогите, пожалуйста, исправить. Код Program LR6; var x,a,s:real; i:integer; const E=1E-5; type func...

Метод половинного деления (дихотомии) и метод Ньютона
Помогите кто может сделать задачу!!! Методом половинного деления(дихотомии), и методом Ньютона!!

Нужно исправить программу
Помогите пожалуйста исправить программу Долно быть вот так: Произвести обход матрицы вот так 21 22 23 24 25 20 07 08 09 10 ...

Метод итерации и метод Ньютона (метод касательных)
Помогите решить методом итерации и методом Ньютона выражение привиденное ниже: e(в степени Х) - e(в степени (-x)) - 2 = 0

Нужно исправить программу (подсчет слов)!
Программа должна считать кол-во задаваемого слова в файле. Считает правильно только для одной строки,как я понял. Помогите пожалуйста! ...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru