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

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

Форум программистов > Fortran > [General] Обработка массива

Автор: Ekaterinabru 8.10.2010, 19:02

Помогите, пожалуйста, составить программу обработки массива в Фортране. Результатом обработки элементов массива В с учётом его признаков должно стать нахождение произведения элементов массива и их количества. Признаки элементов: по модулю больше С. m=9, c=5

Автор: FCM 8.10.2010, 19:30

Определите массив B, переменную С и далее

Код


    ...
    WRITE(*,*) PRODUCT(B, ABS(B)>C)
    WRITE(*,*) COUNT( ABS(B)>C)
    ...

Автор: Ekaterinabru 9.10.2010, 21:05

А можно более в развёрнутом варианте, так как с фортраном и вообще с программированием я на "вы".
Заранее благодарю.

Автор: FCM 10.10.2010, 19:43

Если я правильно понял условие задачи (т.е. что m - размер одномерного целочисленного массива),
то может быть подойдет такая программка

Код


PROGRAM Q
    IMPLICIT NONE
    INTEGER, PARAMETER ::  M = 9
    INTEGER :: C = 5;
    INTEGER :: B(M)                               
    B = (/ 2, 56, -34, 2, 1, 3, 5, 8, 0 /)                   
    WRITE(*,*)  PRODUCT(B, ABS(B)>C)    ! Вывод произведения элементов по логической маске ABS(B)>C
    WRITE(*,*)  COUNT( ABS(B)>C)           ! Вывод кол-ва элементов, соответствующих маске
END PROGRAM Q