BaarA
1

Файл: Найти корни уравнения f(х) = х2 - 2х + е-х, если они существуют, на отрезке [1;1,5] с точностью Е = 0,05

27.01.2013, 14:09. Показов 1247. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пусть дано уравнение f(х) = х2 - 2х + е-х. Требуется найти корни этого уравнения, если они существуют, на отрезке [1;1,5] с точностью Е = 0,05 при помощи метода деления отрезка пополам (бисекции). Результат записать в файл последовательного доступа и из него вывести на экран. Если на заданном отрезке нет решений, то вывести на экран соответствующее сообщение.

Помогите записать результат в файл. Я в них не разбираюсь.

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
Program P_3_3_l; {Aplicare a metodei injumatatirii fiind dat Eps}
Uses Crt;
Function F(x:real):real; { Func?ia data }
Begin F:=x*x-2*x+exp(-x); end;
Function Bisect(a,b,eps:real; afis:boolean; Var  n:byte):real;
{n-numaml de iteratii; nc-numarul de zecimale la afi?area valorilor reale/(1)( af?s-confirmare pentru afi?area aproxima?iilor anterioare celei finale}
 Var c, Fa, Fc:real; {Declararea variabilelor locale, auxiliare}
Begin {Calculul aproxima?iilor succesive cu estimarea aposteriori a erorii}
n:=Trunc(Ln((b-a)/eps)/Ln(2)); Fa:=f(a);
Repeat
c:=(a+b)/2; Fc:=f(c);
If afis then WriteLn('x=',c:0:5,' f(x)=',Fc:0:5);
If Fc<>0 then If Fa*Fc<0 then b:=c
else Begin a:=c; Fa:=Fc; End;
Until (abs(b-a)<=2*Eps) or (Fc=0);
If Fc<>0 then c:=(a+b)/2;
Bisect:=c;
End; {Bisect}
Procedure Rezolvare(a,b,eps:Real; nc,k:byte); {k-numarul r?d?cinii}
Var x:real; n:byte;
Begin If f(a)*f(b)<0 Then Begin
x:=Bisect(a, b, eps, false, n);
WriteLn('X',k,'=',X:0:5,' f(x',k,')=',f(x):0:5);
Writeln('n',k,'=',n);
End
Else WriteLn('Nu este izolata r?d?cina',k);
End;
Begin ClrScr;
Rezolvare(1, 1.5, 0.0001, 5, 1);
ReadLn;
End.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.01.2013, 14:09
Ответы с готовыми решениями:

Исправьте код, выдает ошибку (заданы коэффициенты квадратного уравнения. Найти его действительные корни, если они существуют.)
Помогите, пожалуйста :cry: Написал программу к задачке - выдает ошибку Заданы коэффициенты...

На заданном отрезке найти все корни уравнения f(x)=0 с точностью e
на заданном отрезке найти все корни уравнения f(x)=0 с точностью e \frac{1}{sin\,x}-2^x+0.5 = 0

На заданном отрезке найти все корни уравнения f(x)=0 с точностью ε
На заданном отрезке найти все корни уравнения f(x)=0 с точностью ε 2*ctg(3x)-2^x=0

На заданом отрезке [a, b] найти все корни уравнения f(x)=0 с точностью эпсилон
PROGRAM PRiBL_RESH; Uses Crt; CONST H=0.1; VAR A,B,E,C,D,XN,XK,S: REAL; K,i: INTEGER; ...

2
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
27.01.2013, 14:22 2
на каком языке коментарии?

Добавлено через 24 секунды
где строка которую нужно записать и вывести?
0
BaarA
27.01.2013, 14:59 3
Комментарии на румынском.
Вывести необходимо данную строчку:
Pascal
1
Rezolvare(1, 1.5, 0.0001, 5, 1);
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2013, 14:59
Помогаю со студенческими работами здесь

На заданном отрезке найти все корни уравнения с точностью ε
Здравствуйте,требуется помощь,впервые встретился с &quot;машинным нулем&quot;,можете помочь какое нужно...

На заданном отрезке найти все корни уравнения с заданной точностью
На заданном отрезке найти все корни уравнения f(x)=0 с точностью \epsilon. ...

Найти корни уравнения sinx - 2cosx/x = 0 на заданном отрезке с заданной точностью методом дихотомии
Условие: Найти корни уравнения sinx - 2cosx/x = 0 на отрезке с заданной точностью ε методом...

Вычислить корни уравнения 1-X+Sin(X)-Ln(1+X)=0 на отрезке [0;1,5] с точностью E=0,5*10^-4
Пусть дано уравнение 1-X+Sin(X)-Ln(1+X)=0. Требуется найти корни этого уравнения на отрезке с...

Найти точки разрыва, если они существуют
по-моему точек разрыва здесь не существует, ну по крайней мере если построить график, но у меня...

Найти корни тригонометрического уравнения на отрезке
Помогите пожалуйста решить уравнение cos2x + sin2x = 0,25 и найти все корни этого уравнения...


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

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

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