задача с паскале

[Anton94.by]

Уравнение в паскале.
« Методы решения алгебраических и трансцендентных уравнений»

Исправте ошибки, в низу график функции. Спасибо...

Отделить один из корней уравнения

2sin(x-0.6)-1.5+x=0

Графически и уточнить его методом половинного деления с точностью ε=0.001


Program MN;
Uses Crt;
Const eps=0.0001;
Var x,y,delta,a,b:real;
n :Integer;
Function F(x:real):real;
Begin
F:=2sin(x-0.6)-1.5+x;
End;
Function F1(x:real):real;
Begin
F1:=;
End;
Function F2(x:real):real;
Begin
F2:=;
end;
Begin
Clrscr;
Textcolor(15);
Write('vvedite otrezok a,b-->');
Readln(a,b);
x:=a;
if F(x)*F(2)<0 then x:=b;
n:=0;
Repeat
y:=x-F(x)/F1(x);
delta:=abs(y-x);
n:=n+1;
x:=y;
Until delta<eps;
Writeln('x=',x:8:4);
Writeln('f(',x:8:4,')=',f(x):8:5);
Writeln('n=',n);
Repeat Until KeyPressed;
End.

[Serge_Bliznykov]

код не оформлен.
тема не соответствует решаемой задаче.

ЗАКРЫТО