Помогите !срочно нужен ответ!Фортран

Так а где программка? И каким хотя бы методом корень ищется? Ну вот могу сбросить программку для опред. методом полов. деления.... Попробуй такую программу и она выведет тебе к-во

external f
eps = 0.0001
call PolDel(-10.0, 10.0, eps, X1, iter)
print 100, X1, iter
pause
end

SUBROUTINE PolDel(a, b, E, X, prib)
! Метод половинного деления
external f
integer prib
prib = 0
X0 = a
Xk = b
X = (X0 + Xk) / 2.0
do while (abs(f(X)).GT.E.AND.iter.LE.50)
prib = prib + 1
X = (X0 + Xk) / 2.0
if (F(X)*F(X0).LT.0) then
Xk = X
else
X0 = X
endif
enddo
X = (X0 + Xk) / 2.0
return
end

real function f(X)
! Функция f(x)
f = (x-3)**2 + 1
return
end

о каком цикле речь, когда кода не видно? хотя бы метод указали.. .

судя по записи уравнения, корень всего один при Х=2.5
так о каких таких "всех корнях" речь?
или это так надо понимать что скобки в квадрат возводятся?

Дмитрий,
что-то Вы намудрили вот тут

do while (abs(f(X)).GT.E.AND.iter.LE.50)

Откуда подпрограмме знать что такое iter?
Да и зачем вообще ограничивать количество шагов? На тот случай если где-то напортачили с алгоритмом?)) )

Столько, сколько нужно для приближенного определения корня уравнения))

а ты умеешь кодить на фортране? удивительно! мало встречал девушек программеров. А тут девушка, да еще и на фортране пишет, прикольно)

с каким шагом?
если step=1 тогда 21
кажеЦЦо :)