31 Ответ от drBatty

  • drBatty
  • drBatty
  • Пользователь
  • Неактивен
  • Откуда: Петербург
  • Зарегистрирован: 20.02.2010
  • Сообщений: 17,053
  • Репутация : [ 451 | 73 ]
ABulychev пишет:

Может быть и проще, но мне кажется на освоение другого ЯП уйдет много времени.Хотя в fortran я не далеко ушел(изучал в универе кое-что всплывает), но при наличии доп литературы мои вопросы решаемы.

дык литературы по C++ + Qt очень много в свободном доступе. А вот про графику в фортране - думаю найти будет очень сложно (если такое вообще есть). Если у вас есть интернет, и если вы установили линукс с кде, то особых проблем не будет.

ABulychev пишет:

По поводу http://www.kdevelop.org, посмотрел и пока в поисках русскоязычной дукоментации. Если есть что предложить ресурсы,книги,статьи не откажусь.

У праграммеров традиционно нет русской документации. Даже русские кодеры пишут по-английски. Тут ничего не поделать, это как итальянский в музыке - фортепьяно не переводится.

Карусель разнесло по цепочке за час
Всех известий — конец
Да, весна началась!
(всё к лицу подлецу, как родному отцу, не рассказывай, батя, и так всё пройдёт)

32 Ответ от SidER (05.10.2011 21:28:47 отредактировано SidER)

  • SidER
  • Пользователь
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.04.2010
  • Сообщений: 271
  • Репутация : [ 14 | 1 ]

Снова столкнулся с проблемой в Fortran. Суть проблемы в следующем, для облегчения своей учебной деятельности решил написать программу для интерполяции, но счет который у меня имеется с тем который выдает программа различны. Я думаю, что проблема в написании формулы- она слишком длинная,а как осуществить переход на следующую строку не знаю и в литературе(которая у меня имеется) не могу найти.
Текст программы:

+ открыть спойлер

 Консоль:

program rsopr
        real R0, e, e1, e2, I
        integer R10, R20, R11, R21
        write(*,*) "Введите e : "; read(*,*) e
        write(*,*) "Введите e1 : "; read(*,*) e1
        write(*,*) "Введите e2 : "; read(*,*) e2
        write(*,*) "Введите I : "; read(*,*) I
        write(*,*) "Введите R10 : "; read(*,*) R10
        write(*,*) "Введите R20 : "; read(*,*) R20
        write(*,*) "Введите R11 : "; read(*,*) R11
        write(*,*) "Введите R21 : "; read(*,*) R21

        R0=(((e2-e)/(e2-e1))*((1-I)*R10+I*R11))+(((e-e1)/(e2-e1))*((1-I)*R20+I*R21))

        write(*,*) "Расчетное сопротивление R0: ", RO
      end


Вывод программы:
 Консоль:

Введите e :
0.9
Введите e1 :
0.8
Введите e2 :
1.1
Введите I :
0.183
Введите R10 :
300
Введите R20 :
250
Введите R11 :
200
Введите R21 :
100
Расчетное сопротивление R0:   3.99128821E-34

Результат который должен получиться 262
Сама формула:
http://storage9.static.itmages.ru/i/11/1005/s_1317832755_2101589_74d259421f.png

Разобрался проблема была в следующей строке(вместо нуля написал о):

 Консоль:
write(*,*) "Расчетное сопротивление R0: ", RO