решение неленейного уравнения методом простых итераций в паскале

[mila111189]

x^4*e^x+(корень 3 степени (x-1))-2=0, нужно в паскале написать программу, Исходные данные: интервал, точность вычислений (считываются из файла)
результата6 корни уравнения (дописываются в исходный файл), точноть ε = 10 –12 степени

[Zer0]

function solve(a,b,eps:real):real;
var x,y:real;
begin
 x:=a;
 y:=power(x,4)*power(2.17,x)+power(x-1,1/3)-2;
 while abs(y-x)>eps do
  x:=y;
 solve:=x;
end;

a,b - границы отрезка, eps - точность

[Zer0]

основной код

var f:textfile; a,b,e,r:real; 
begin
 assignfile(f,'input.txt');
 reset(F);
 readln(f,a,b,e); //вы уж определитесь точность считывается из файла или задается уже в программе
 closefile(f);
 r:=solve(a,b,e);
 writeln ('Otvet = ',r:0:2);
 readln;
end.

[mila111189]

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

[Zer0]

uses math;

function solve(a,b,eps:real):real;
var x,y:real;
begin
 x:=a;
 y:=power(x,4)*power(2.17,x)+power(x-1,1/3)-2;
 while abs(y-x)>eps do
  x:=y;
 solve:=x;
end;

var f:textfile; a,b,e,r:real; 
begin
 assignfile(f,'input.txt');
 reset(F);
 readln(f,a,b,e); 
 closefile(f);
 r:=solve(a,b,e);
 writeln ('Otvet = ',r:0:2);
 readln;
end.

[mila111189]

на usus math ругается

[mila111189]

как еще можно расписать корень третей степени?

[Zer0]

в какой среде компилируете?

[mila111189]

турбо паскаль

[Zer0]

попробуйте убрать первую строку с uses, а вместо power напишите exp (год уже не программировал на турбо, подзабыл уже)

точнее вот так вот сделать

y:=power(x,4)*power(2.17,x)+power(x-1,1/3)-2;

поменять на

y:=exp(ln(x)*4)*exp(ln(2.17)*x)+exp (ln(x-1)/3)-2;