Метод итераций. Паскаль.

[Heming]

Уважаемые профи, я знаю что выкладывать задачу без наработак 8 грех по Библии, но все же я серьезно болел, а работу нужно сдать завтра-послезавтра, при том что я в этом методе 0, просто катострафически не хватает времени, от части кнч же я этому и есть причина. Выручите пжлста.
Дано:
Методом итераций с точностью E, найти корень уровнения : f(x)=x-(sinx/2)-1=0.

Начальное значение корня - 0.
Реализовать метод поиска корня, в виде процедуры или функции, в которую как параметр передается функция, для которой решается задача.

[Heming]

Ребята, не будьте безразличными к судьбе несчастного студента, помогите хоть как-то.

[Mad_Cat]

вы сами к своей судьбе безразличны(учиться надо было) а просите у нас сострадания
Все уже сделано

[Heming]

да вы абсолютно правы, но когда лежишь в больнице рвение учиться пропадает...
ну что ж придется вшаривать метод самому, я так понимаю он не особо сложный, вот и думал что хотя бы на этом время сократить, ибо не успеваю.

сейчас сяду делать, залью как напишу, мб хоть подправите


Можете объяснить что делает far

[Heming]

Вроде бы как я понял что директива FAR определяет метод дальнего вызова, при котором возможен вызов команд из другого сегмента кода, но почему я никогда фар не писал и вроде бы все работало, а тут вдруг нужно написать?!


На pascal ABC с ним выдает ошибку "Ожидалось begin", как этого избежать, кроме как сноса этой строки.

[Heming]

У меня при епсилант больше еденицы всегда выдает результат -1, а при епсилант меньше 1 но больще 0.5 оно выдает два корня либо -4.464....
либо -4.9799.... при епсилант меньше 0.5 прога виснет, так и должно быть о_0?!

Program Iteration;
type func=function (f:real):real;
var x, eps, final:real;

function ishodnaja(x:real):real;
begin
ishodnaja:=(x+(sin(x)/2)-1);
end;

function iter (functzikl:func; eps:real):real;
var 
k:real;
begin
k:=0;
iter:=functzikl(k);
repeat
   k:=x;
   x:=functzikl(k);
   iter:=x;

until abs(k-x)<eps;
end;
begin
 write('Введите точность');
 readln (eps);
 final:=iter(ishodnaja,eps);
 writeln (final:0:8);
 readln;
end.

По условию там исходная функция х -(минус)...., а не плюс, но от этого ничего кроме как самих значений (вместе -4. ..., будет -1. ....), а все остальное так же

[Heming]

Проверьте задачу плз