На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела
1. Не создавайте несколько одинаковых тем, ибо модератор может расценить их, как спам и удалить все.
2. Для решения задач по GPSS есть отдельная тема. Все задачи по GPSS опубликовывать в этой теме! Перед опубликовыванием вашей задачи просмотрите всю тему, возможно вы сразу найдете решение.
3. Давайте вашим темам ОСМЫСЛЕННЫЕ названия, а также указывайте язык программирования. Пример: [Pascal]:Работа с файлами и записями.
4. Использования тега CODE обязательно при публикации текста программы.

Темы, оформленные с явным игнорированием правил и отсутствием смысла, будут закрыты/удалены!
Вам помогли? Напишите об этом здесь (в портфолио фрилансера)

Фрилансерам:
5. Демпинг цен запрещен (даже если Вы готовы работать бесплатно). Цены обсуждаются в приватном общении. Если вы готовы рещить задачу бесплатно, просто решите ее быстрее, чем возникнет предложение сделать это за деньги.
6. Пользователям, входящим в группу Newbie, запрещается предлагать свои услуги (завуалированно в т.ч.)
7. В посте с предложением выполнить работу, обязательно указывать ссылку на свое портфолио в Отзывы, Благодарности, Портфолио Это правило работает и в том случае, если вы выполняете работу бесплатно.
8. Реклама (даже завуалированная) своих фриланских сайтов запрещена

Нарушение данных пунктов влечет до RO или БАНА (при неоднократом)
Модераторы: ttiger, mikefreelance, Rust
  
    > Fortran, анализ функций , Анализ заданной функции и вывод данных
      Здравствуйте! Подскажите, пожалуйста, столкнулся с проблемой анализа функций. Построение функций выполняется за счет выставления соответствующих символов, как и приведено в кусочке программы. Подскажите, пожалуйста, как сделать так, чтобы выводило ООФ, множество значений, нули функции и экстремумы? Денежная плата за труды включена

      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
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0141 ]   [ 15 queries used ]   [ Generated: 19.03.24, 09:21 GMT ]