0 / 0 / 0
Регистрация: 10.01.2013
Сообщений: 43
1

Методом простой итерации вычислить корень уравнения с точностью Е=0,0001

22.09.2014, 20:38. Показов 4930. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста написать программу на паскале)
Методом простой итерации вычислить корень уравнения с точностью Е=0,0001
x-arctg(1/x)=0
Отрезок, на котром корень существует выделить самостоятельно...
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2014, 20:38
Ответы с готовыми решениями:

Для уравнения, методом половинного деления, вычислить значение корня с точностью e=0,0001
Для уравнения, методом половинного деления вычислить значение корня с точностью e=0,0001 cosx-4x=0

С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0
Задание: С погрешностью 0.0001 методом простой итерации уточнить корни уравнений ln(x)- x +1.8 = 0 ...

Найти корень заданного уравнения методом простой итерации с заданной точностью
Добрый день форумчане! Не могли бы вы помочь написать программу для решения данной задачи с...

Найти корень уравнения sin*x-х+0,16=0 в интервале от 0,5 до 1,2 с точностью 0,01 методом простой итерации
Помогите пожалуйста написать программу на c++ Такое задание: Найти корень уравнения sin*x-х+0,16=0...

1
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
23.09.2014, 07:57 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
uses crt;
function F(x:real):real;
begin
F:=x-arctan(1/x);
end;
var e,f1,f2,x,x1,x2,a,b:real;
    n,i:integer;
begin
clrscr;
a:=0.1;
b:=1.1;
e:=0.0001;
if F(a)=0 then
 begin
  writeln('x=a=',a:0:4);
  readln;
  exit;
 end
else if F(b)=0 then
 begin
  writeln('x=b=',b:0:4);
  readln;
  exit;
 end
else if F(A)*F(B)>0 then WriteLn('Границы интервала заданы некорректно!')
else
 begin
  n:=round((b-a)/e);
  x1:=a; f1:=F(x1);
  for i:=1 to n do
   begin
    x2:=x1+(b-a)/n;
    f2:=F(x2);
    if f1*f2 <= 0 then writeln('x = ', (x2 + x1)/2:0:4);
    x1:=x2;
    f1:=f2;
   end;
 end;
readln
end.
0
23.09.2014, 07:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2014, 07:57
Помогаю со студенческими работами здесь

Методом простой итерации вычислить корень уравнения
Методом простейшей итерации с точностью до 10^-4 вычислить корень уравнения x=4надкорнем x+1 под...

Найти корень уравнения методом простой итерации
Найти корень уравнения tg(1,5773x) - 2,3041x=0 с точностью методом простой итерации

Методом простой итерации найти корень уравнения
мой вариант 20. rem input x0,e x1=x0^(3)-12*x0-8 if abs(x-x0)&lt;e then print x1 else...

Уточнить корень уравнения методом простой итерации
здравствуйте. посмотрите пожалуйста мой код и исправьте его где неправильно. вот задание и код :...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru