Методом итераций найти корень уравнения

@Exynos · Регистрация: 10.11.2013

Author24 — интернет-сервис помощи студентам

Подскажите в чем проблема?
точность 10^-3

область корня [2;3]

уравнение 0.6*3^x-2,3*x-3=0

Pascal

Program laboratory;
 
var a,b,eps:real;
 
begin
 
write('введите начальное приближение');
 
readln(a);
 
write('введите абсолютную погрешность');
 
readln(eps);
 
b:=(3-0.6*exp(ln(3)*a))/2.3;
 
while abs(a-b)>eps do
 
begin
 
a:=b;
 
b:=(3-0.6*exp(ln(3)*a))/2.3
 
end;
 
writeln('корень уравнения=',a)
 
end.

@volvo · 20.03.2014, 12:51

Неправильный выбор функции. Вот так попробуй:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> x = \log_{3} \begin{pmatrix}\frac{3+2.3x}{0.6}\end{pmatrix}<br />$

Pascal

program laboratory;
 
var
  a, b, eps: real;
 
begin
  write('введите начальное приближение');
  readln(a);
  write('введите абсолютную погрешность');
  readln(eps);
  b := LogN(3, (3 + 2.3*a)/0.6);
  
  while abs(a - b) > eps do
  begin
    a := b;
    b := LogN(3, (3 + 2.3*a)/0.6);
  end;
  writeln('корень уравнения=', a)
end.

	20.03.2014, 12:51