метод простых итераций, помогите Опции

[punkska]

. Написать модуль, содержащий подпрограмму нахождения корня
> любого алгебраического или трансцендентного уравнения вида x=f(x)
> при заданном начальном приближении Xo методом простых итераций, в
> соответствии с которым каждое следующее приближение к корню ищется
> по формуле: Xk+1=F(Xk) Итерационный процесс уточнения корня
> заканчивается при достижении условия /Xk+1 - Xk/<E, где E -
> допустимая погрешность вычисления.
> Использовать подпрограмму своего модуля для решения уравнения X-sinX=0.25 при Xo=1.17.


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

помогите плиз!!! напишите свой выриант!

[punkska]

Правильно, что не компилируется... У тебя же Fun описано как процедура, как же ты хочешь использовать ее как функцию?
Выходов у тебя 2:

1. Описываешь Fun как функцию, и используешь в основной программе как сейчас...
2. Вместо

writeln (fun(f,1.17,1.0e-5)5);

делаешь:

fun(f,1.17,1.0e-5);

во втором слушае пишит ERROR 3

не мог бы помочь с первым способом! а то описываю как функцию и не врубаюсь как грамотно передать значение функции fun

[volvo]

во втором слушае пишит ERROR 3

Как ты думаешь, я просто так запостил этот вариант или сначала проверил? У меня скомпилировалось без всяких ошибок... Тем более Error 3 - это "Неизвестный идентификатор" - откуда ему взяться?

А по-поводу функции - у тебя же внутри Fun уже распечатывается значение, что ты еще хочешь возвращать? Плюс к этому, нужно учесть вариант, что итерация не сошлась - то есть здесь процедура будет предпочтительнее...