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

Найти нуль функции методом касательных

02.02.2012, 09:42. Просмотров 1005. Ответов 1
Метки нет (Все метки)


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
uses crt;
function f(x: real): real;
begin
 f := x + ln(x);   // данная нам функция
end;
 
var a,b,c: real;  // объявление переменных a - начало промежутка, b - конец пормежутка, c - середина промежутка
begin
     clrscr;
     write ('enter a:');
     readln (a);               // считывание границ промежутка
     write ('enter b:');
     readln (b);
     if f(a) * f(b) > 0 then write('Vveden nepravilnii promegytok')    //   проверка на правильность введенного промежутка(если значения функции на границах промежутка имеют один знак, то это знач корней на данном промежутке либо нет, либо их несколько)
     else begin
         while true do begin  // запускаем бесконечный цикл для поиска корня
               c := (a + b)/ 2;  // присваиваем переменной с знаение середины промежутка
               if f(a) * f(c) < 0 then b := c;
               if f(b) * f(c) < 0 then a := c;
               if abs(f(c)) <= 0.00001 then begin   // условие выхода из цикла(если значение функции в предполагаемом корне(с) стало меньше 0.00001, то мы нашли корень => выводим его и прерываем цикл)
                  write(c:2:5);
                  break;
               end;
         end;
     end;
end.
данная задача находит нуль функции методом дихотомии(половинного деления),нужно найти нуль функции методом касательных,или комбинированным методом
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.02.2012, 09:42
Ответы с готовыми решениями:

Найти корень уравнения методом хорд и касательных
найдите корень уравнения x^4 - 26x^3 + 131x^2-226x+120 = 0 c точностью до 10:-4 в интервале...

найти корни функции методом касательных
Помогите, пожалуйста, найти ошибку в программе. необходимо найти корни функции x*cos(x) методом...

Найти корни функции методом Ньютона (касательных)
Помогите, пожалуйста, написать программу для нахождения корней функции функции х*сos(x) на...

Найти корень функции методом хорд и касательных
Найти корень функции (квад.x + Inx - 2) методом хорд и касательных. Помогите ее подправить =) ...

1
Модератор
62918 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,754
02.02.2012, 10:57 2
Метод касательных.
корень в интервале 0.1...1

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
uses crt;
function f(x: real): real;
begin
 f := x + ln(x);   // данная нам функция
end;
function f1(x:real):real; // 1 производная
begin
f1:=1+1/x;
end;
var x,a,b,e: real;  // объявление переменных a - начало промежутка, b - конец пормежутка, e - точность
begin
write ('enter a:');
readln (a);               // считывание границ промежутка
write ('enter b:');
readln (b);
write('enter e:');
readln(e);
if f(a) * f(b) > 0 then write('Vveden nepravilnii promegytok')    //   проверка на правильность введенного промежутка(если значения функции на границах промежутка имеют один знак, то это знач корней на данном промежутке либо нет, либо их несколько)
else
 begin
  if f(a)*f1(a)>0 then x:=a
  else x:=b;
  while abs(f(x))>e do
  x:=x-f(x)/f1(x);
  write(x:0:6);
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2012, 10:57

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

Найти корень уравнения методом хорд и методом касательных
На языке программирования DEV C++ 5.8.2 Метод Хорда и Касательный X^3+3x^2-24x-3=0 На отрезке...

Построить график функции методом касательных
1. Построить график функции f(x) таким образом, чтобы были видны все корни функции. 2....

Вычисление функции методом Хорд, Касательных и Итераций
Задание: 1. Отделить корни трансцендентного уравнения графически и уточнить один из них указанным...

Решить уравнение любым методом(методом половинного деления,методом простой интеграции,методом касательных)
Решить уравнение: 0,1*x^2-x*ln(x)=0 любым методом(методом половинного деления,методом простой...


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

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

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