| Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум на Исходниках.RU > ПОМОЩЬ СТУДЕНТАМ > Fortran, анализ функций |
| Автор: APavloff 20.05.21, 20:48 |
| Здравствуйте! Подскажите, пожалуйста, столкнулся с проблемой анализа функций. Построение функций выполняется за счет выставления соответствующих символов, как и приведено в кусочке программы. Подскажите, пожалуйста, как сделать так, чтобы выводило ООФ, множество значений, нули функции и экстремумы? Денежная плата за труды включена 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 |