• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от mp_12332

  1. M

    Помощь с программой. Фортран и Паскаль

    а теперь корень всегда получается равен 0 real function COR(f,a,b,e) external F real x1,x2,e,f,xl,xp,u,v,d,dif,a,b logical P xl=a xp=b U=f(xl) v=f(xp) x1=a p=.false. dif=a do while(dif>e.and..not.p) x2=xp-v*(xl-xp)/(u-v) d=f(x2) if((u*d)>0)then xl=x2 u=d else if((u*d)<0)then xp=x2 v=d...
  2. M

    Помощь с программой. Фортран и Паскаль

    так должно получиться? real function COR(f,a,b,e) external F real x1,x2,e,f,xl,xp,u,v,d,dif,a,b logical P xl=a xp=b U=f(xl) v=f(xp) x1=a p=.false. do while(abs(xl-xp)>e.and..not.p) x2=xp-v*(xl-xp)/(u-v) d=f(x2) if((u*d)>0)then xl=x2 u=d else if((u*d)<0)then xp=x2 v=d else p=.true...
  3. M

    Помощь с программой. Фортран и Паскаль

    нет, не работает, все так же пустое окно, на клавиши ноль реакции
  4. M

    Помощь с программой. Фортран и Паскаль

    Так, а что мне необходимо исправить в фортрановской программе, чтобы она заработала?
  5. M

    Помощь с программой. Фортран и Паскаль

    Хотелось бы, спасибо за помощь
  6. M

    Помощь с программой. Фортран и Паскаль

    Проблема в том, что эту п/п нам дал преподаватель
  7. M

    Помощь с программой. Фортран и Паскаль

    да, именно им
  8. M

    Помощь с программой. Фортран и Паскаль

    не могу определить где у меня ошибка, программа компилируется, запускается и ничего не происходит, просто пустое окно программы
  9. M

    Помощь с программой. Фортран и Паскаль

    Помощь с программой. Фортран и Паскаль нужна помощь с программой, не хочет работать +нужно перевести программу на паскаль могу скинуть условие если нужно External F integer c real s,F,A,B,fint,E common /z/c E=0.001 B=1.3 do c=1,5,1 A=cor(F,0,1,E) !a=c*0.2 S=fint(F,A,B,E) write(*,10)S 10...
Назад
Сверху