APavloff: Здравствуйте! Подскажите, пожалуйста, столкнулся с проблемой анализа функций. Построение функций выполняется за счет выставления соответствующих символов, как и приведено в кусочке программы. Подскажите, пожалуйста, как сделать так, чтобы выводило ООФ, множество значений, нули функции и экстремумы? Денежная плата за труды включена

program TaskNum147
implicit none

real :: x,y, Yk,Yo, Xk,Xo, dx,dy, u
read *, Xk,Yk, Xo,Yo, dx,dy

do y = Yk, Yo, (-dy)
do x = Xo, Xk, dx
u = 1/(2*cos(x)+3)
if(ABS(y-u).LE. 0.3) then
write(*,'(1a,$)')'*'
else if ((y .EQ. 0) .AND. (x .NE. 0)) then
write(*,'(1a,$)')"-"
else if ((y .NE. 0) .AND. (x .EQ. 0)) then
write(*,'(1a,$)')"|"
else if ((y .EQ. 0) .AND. (x .EQ. 0)) then
write(*,'(1a,$)')"+"

else
write(*,'(1a,$)')" "
end if

end do
write(*,*)
end do
end program

https://forum.sources.ru/index.php?showtopic=421469&view=findpost&p=3847585