Решение нелинейных уравнений на Фортране. Метод итераций.

1)      Привести уравнение к сходящейся итерационной форме (Найти q,h и x=φ(x))

2)      Уточнить корни методом итераций с точностью 10^-6. Сравнить число итераций с предыдущими результатами

program lab_two

real eps,x0,x1,q,h,d

integer N

eps=1.0e-6

q= !Ваше значение q

h= !Ваше значение h

x0= !Ваше значение x0

N=0

do

 x1=x0

 x0=x1-h*f(x1)

 N=N+1

if (abs(x1-x0)<(1-q)*eps/q.or.N>1000) exit

end do

print*,x0,N !Вывод х0 и числа итераций

pause

end

real function f(z)

    real z

     f= !Ваша функция φ(x)

end function f