Метод Ньютона, при запуске вылетает с ошибкой exitcode 207?В чем дело?

@Толик1098 · Регистрация: 26.11.2017

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

Pascal

Program Equation;
const eps=1e-6;
var x,x_0:real;
function f(x:real):real;
 begin
f:=7*(exp(ln(4)*(x-2)))/(exp(ln(4)*x)-3*exp(ln(5)*x))-1-3*exp(ln(5/4)*x)
 end;
 function f1(x:real):real;
 begin
 f1:=(3*exp(ln(4)*(x-2))*exp(ln(5)*x)*(ln(5)-ln(4)))/(exp(ln(5)*2*x)*9+exp(ln(4)*2*x)-exp(ln(4)*x)*exp(ln(5)*x)*6)-3*ln(5/4)*exp(ln(5/4)*x)
 end;
 begin
writeln;
 writeln('Решение нелинейного уравнения  f(x)=0');
 writeln;
 writeln('Введите начальное приближение х_0=');
 readln(x_0);
 writeln;
 x:=x_0;
 repeat
 x:=x-f(x)/f1(x);
 until abs(f(x)/f1(x))<eps;
 writeln('Метод Ньютона');
 writeln;
 writeln('x=',x:8:5);
readln;
 end.

@LuckyGuys · 25.01.2018, 15:24

Исправьте условие цикла.

Pascal

1	until abs(f(x)/f1(x))>eps;

	25.01.2018, 15:24