Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Fortran] решить, выделив головной

Автор: aivar 13.1.2009, 15:37

Спасите плииииизззззз решите зада4у......Очень прошу от этой задачи, зависит очень многое....
Надо решить , выделив головной и подчиненные
алгоритмы (процедуры). Входные данные (при необходимости)
выберать самостоятельно.

Автор: Фантом 13.1.2009, 18:37

Хе... Да пожалуйста:

Код


B=A/sqrt(sum(A*A))

Если нужна "оболочка", можно так:

Код


program qwe
    implicit none
    real, dimension(5,5) :: A, B
    call random_number(A)
    B=A/sqrt(sum(A*A))
    print *,"A="
    print *,A
    print *,"-----------------------------"
    print *,"B="
    print *,B
end program qwe

Это решение Вашей задачи. На Фортране. smile

Автор: aivar 13.1.2009, 19:20

и это все????О_о...)))

Добавлено через 15 секунд
если так вы бог)))

Автор: aivar 13.1.2009, 20:21

А по4ему A*A??? и так понял матрица рандомная создается, но полу4ается всегда одна и таже...

Автор: Фантом 13.1.2009, 21:39

Цитата(aivar @ 13.1.2009, 20:21

)

А по4ему A*A??? и так понял матрица рандомная создается, но полу4ается всегда одна и таже...

В Фортране есть матричные операции. Вся эта строчка - 25 поэлементных действий с отдельными элементами матриц A и B.

Для того, чтобы матрица менялась при разных запусках программы, надо переинициализировать датчик случайных чисел. Если это хочется - вставьте четвертой строчкой call random_seed.

Есть во всем этом только одно "но". На каком конкретно Фортране надо было написать программу? А то и в самом деле слишком уж просто.