VPF::[General] Обработка массива - Форум программистов

Ekaterinabru

Дата 8.10.2010, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.10.2010

Репутация: нет
Всего: нет

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

FCM

Дата 8.10.2010, 19:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9

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

Код


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

Ekaterinabru

Дата 9.10.2010, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 8.10.2010

Репутация: нет
Всего: нет

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

FCM

Дата 10.10.2010, 19:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 461
Регистрация: 30.3.2009

Репутация: 8
Всего: 9

Если я правильно понял условие задачи (т.е. что 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

Это сообщение отредактировал(а) FCM - 10.10.2010, 19:56

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Fortran \| Следующая тема »