Гостевая книга

Сегодня 07.09.2010 Добавить сообщение Вернуться на главную
Добро пожаловать в гостевую книгу. Буду рад услышать Ваше мнение о моём сайте.
  

Страницы: 1  2  3  4  5  

admin (06.02.2008 14:23:36)
    Anti-di, спасибо за отзыв
    Кому нужен дистрибутив фортрана, качаем у товарища Anti-di:
    http://fortran.ucoz.ru/load/
    19
  
Anti-di (06.02.2008 00:22:36)
    Сайт о фортране!Это ты молодец,щас мало кто
    делает сайты на эту тематику,но фортран жив и
    я думаю за ним будущее!!!
    Я ведь тоже создал сайт о фортране ,ну и немножко о паскале:
    http://fortran.ucoz.ru/
    18
  
starbuck (30.01.2008 11:47:30)
    пыталась поставить фортран на XP, через секунд 40 после начала установки винда вешается насмерть (ошибок не выдает). а на другой машине он спокойно встает (дистрибутив фортрана тотже, винда тоже ХР). подскажите пожалуйста в чем может быть проблема
    17
  
admin (13.01.2008 19:30:01)
    Алексей, большое спасибо за отзыв! Приятно слышать что сайт кому-то полезен.
    Сделал дополнения в разделы Литература и Статьи:
    http://fortran-online.info/article_10.html
    http://fortran-online.info/article_9.html
    Форум прикрутить можно, конечно, но я не уверен, что он будет пользоваться популярностью. Хотя возможно скоро и сделаю...
    16
  
Алексей (10.01.2008 17:19:06)
    Замечательно, что в последнее время стали появляться ресурсы по Фортрану.

    Мои дополнения в раздел Литература:
    все книги автора Бартеньева О.В. самая полезная русскоязычная литература по фортрану.

    Дополнения в статьи:
    http://www.parallel.ru/tech/tech_dev/standards.html
    стандарты фортрана не ограничиваются 95, есть 2003 и будет 2008... хотелось бы информацию на эту тему...

    Ещё, наверно, неплохо было бы форум прикрутить на сайт и было бы зашибись)))

    Желаю сайту хорошего развития!!!
    Такие ресурсы сейчас очень нужны многим, всвязи с возросшими потоками информации, которые надо обрабатывать... и всякие Питоны сюда не годятся (а жаль).

    Удачи автору.
    15
  
admin (01.01.2008 12:26:10)
    Извеняюсь за долгий ответ, не было времени...

    Наташа
    сам пользуюсь компиятором Intel FORTRAN Compliler 5.0. Где скачать его я вам сейчас не подскажу, потому сейчас последняя версия v10 и все ссылки ведут на неё. Вот одна из них http://depositfiles.com/ru/files/2062594, для работы требуется visual studio версии не ниже 2003 (сам не смог заставить работать т.к. студия стоит древняя и её линкер не может слинковать скомпилированные файлы).

    Владимир
    Насколько мне известно, common используется для работы с общей областью памяти для нескольких модулей. В данном случае в одном модуле использовать их смысла нет. Нужно передавать адреса векторов в подпрограммы. По поводу предыдущего вопроса приведите условие задания чтобы понять, какой ряд на самом деле должна считать программа.

    Всех с Новым Годом!
    14
  
Наташа (22.12.2007 00:45:53)
    Доброй ночи!подскажите,пожалуйста,где можно скачать установочник Fortranа и компилятор к ней?буду очень признательна
    13
  
Владимир (19.12.2007 19:50:20)
    прога с do while вобщем то заработала но вычисления неправильные( я в общем то потому и писал
    12
  
Владимир (18.12.2007 18:15:37)
    да так заработало спасибо) извеняюсь за наглость ! немогли бы вы еще вот с чем помочь? тоже есть такст программы :
    programm
    common a(10),b(10),c(10),i
    call vvod
    call raschet
    call vivod
    end

    subroutine vvod
    common a(10),b(10),c(10),i
    open (100,file='kkk.dat',status='old')
    read (100,*) (a(i),i=1,10)
    read (100,*) (b(i),i=1,10)
    close (100)
    return
    end

    subroutine raschet
    common a(10),b(10),c(10),i
    do i=1,10
    c(i)=a(i)*b(11-i)
    end do
    return
    end

    subroutine vivod
    common a(10),b(10),c(10),i
    Do i=1,10
    write (*,*) c(i)
    end do
    return
    end

    надо обойтись без оператора common вектора A(10) и B(10) заданы в файле kkk,dat произвольно
    тоже пробывал но из за массивов не получается
    11
  
admin (18.12.2007 12:20:58)
    2Владимир

    Что тут сложного то?? Метки вообще нафиг не нужны. Так не работает?

    program lab05
    real x,n,eps,summa,k
    write(*,*) 'введите x'
    read(*,*) x
    if (abs(x).gt.1) then
    write(*,*) 'error'
    else
    write(*,*) 'введите eps'
    read(*,*) eps
    n=1
    summa=1-(x/2)
    do while (abs(k).gt.eps)
    n=n+1
    k=((-1)**n)*(x**n)*(((2*n)-1)/(2*n))
    summa=summ a+k
    end do
    write(*,*) summa
    endif
    end

    Компилировать не пробовал, нет компилятора под рукой.
    10
  
Владимир (17.12.2007 23:12:26)
    ой в сообщении где выложил текст программы в строчке 13 и 19 -> цифра 10 и 20 соответственно обозначают метки
    9
  
Владимир (17.12.2007 23:10:37)
    program lab05
    real x,n,eps,summa,k
    write(*,*) 'введите x'
    read(*,*) x
    if (abs(x).gt.1) then
    write(*,*) 'error'
    goto 20
    else
    write(*,*) 'введите eps'
    read(*,*) eps
    n=1
    summa=1-(x/2)
    10 n=n+1
    k=((-1)**n)*(x**n)*(((2*n)-1)/(2*n))
    summa=summa+k
    if(abs(k).gt.eps) goto 10
    write(*,*) summa
    endif
    20 end
    кто может помочь как переписать эту программу через Do while ? пробывал и так и так не считает ...=(
    8
  
admin (14.12.2007 18:20:09)
    Для организации динамического массива он должен быть объявлен с атрибутом allocatable. Например:
    real, allocatable :: a(:,:), b(:)
    Для выделения памяти нужно вызвать allocate:
    allocate (a(n,0:n+2))
    Для освобождения используется deallocate
    7
  
Andrey (14.12.2007 13:25:34)
    Подскажите, пожалуйста, как в Фортране запрограммировать динамический массив (массив зависит от переменной)???
    6
  
admin (09.12.2007 07:56:58)
    Возможно в программах используется прямой доступ к портам ввода/вывода, чего Windows 2000/XP не позволяют делать. Можно попробовать для данного файла включить режим совместимости с Windows 98, это иногда помогает. Если не заработает, можно прогнать программу в отладчике (TD например) и посмотреть, в каком месте он заругается.
    5
  

Страницы: 1  2  3  4  5  

Rambler's Top100

Copyright © fortran-online.info, 2007