Паскаль. Косяк где то в программе жалуется на функции.
Функции типа real жалуется что должна быть boolean, меняю на boolean жалуется на невозможное деление.
Программа по нахождению корня методом Ньютона
Uses crt;
Function f(x : real) : real;
Begin
f := 5*sin(x+x)=sqrt(1-x);
End;
Function f1(x : real) : real;
Begin
f1 := 10*cos(x+x)=-1/(2*sqrt(1-x));
End;
Var
a : real;
b : real;
x : real;
e : real;
en : real;
i : integer;
Begin
clrscr;
writeln ('Решение уравнения');
writeln ('Уравнение 5*sin(x+x)=sqrt(1-x)');
write ('Границы: ');
read (a, b);
write ('Точность: ');
read (e);
writeln ('Ðåøåíèå:');
writeln ('Íîìåð øàãà Çíà÷åíèå X');
en := abs(a - b);
x := b;
i := 1;
While (abs(en) > e) Do
Begin
x := x - f(x) / f1(x);
writeln (i : 10, x : 20 : 6);
en := abs(x - b);
b := x;
i := i + 1;
End;
End.