Курсовая информатика

Курсовой проект

Прикрепленную программу нужно переписать с матлаба на фортран.

К ней "пришить" следущую процидуру:

program MAIN

real EPS

EPS = 1e-7

print*, INVERSE(4.,0.,10.)

end

real function F(X)

F = X*X

return

end

real function INVERSE(real Y, real A, real B)

real C

do

C = (A + B) / 2.

if (fabs(B-A) .lt. EPS) EXIT

F1 = F(A) - Y

F2 = F(B) - Y

F3 = F(C) - Y

if( (F1 * F3) .gt. 0.) then

A = C

else

B = C

endif

enddo

INVERSE = C

return

end

Сроки - до 10 декабря