Задача на фортране.

[Vladislav1101]

Данные о направлении ветра (северный, южный, восточный, западный) и силе ветра за декаду ноября хранятся в массиве. Определить, сколько дней дул южный ветер с силой, превышающей 8 м/с.

Сам вопрос состоит про эти ветра, можно ли в Фортране войти в массив и еще один в массив, т.е. один внутри другого?

[ewert]

Насколько я помню, в ФОРТРАНе изначально предусматривались многомерные массивы (и уж как минимумум двумерные). Только вот применительно к данной задачке это выглядит совершенно нелепо: тут, разумеется, нужно использовать два одномерных массива, но никак не один двумерный.

Да, на всякий случай: понятия "записи" или, что то же, "структуры" в ранних ФОРТРАНах (опять же насколько я помню) не было. Тем более не было массивов записей.

[Vladislav1101]

ewert в сообщении #658138 писал(а):

Насколько я помню, в ФОРТРАНе изначально предусматривались многомерные массивы (и уж как минимумум двумерные). Только вот применительно к данной задачке это выглядит совершенно нелепо: тут, разумеется, нужно использовать два одномерных массива, но никак не один двумерный.

Да, на всякий случай: понятия "записи" или, что то же, "структуры" в ранних ФОРТРАНах (опять же насколько я помню) не было. Тем более не было массивов записей.

А не подскажите ,как тогда саму программу составить? Или как сделать ввод этих месяцев?)

[ewert]

Не подскажу -- не помню. Я с Фортраном последний раз общался уж почти тридцать лет назад.

[Vladislav1101]

Все равно спасибо!

[Pphantom]

Нехорошо давать готовое решение, однако в данном случае оно настолько короткое, что намек на него ничем от решения не отличается. При разумном хранении данных результат можно получить в одну строчку.

Данные можно хранить в массиве структур вроде такого (индекс массива - номер дня):

Используется синтаксис Fortran

type Bearing
  character :: Course  ! Направление - N,W,S,E
  real :: Velocity            ! Скорость
end type Bearing
        
type(Bearing),dimension(10) :: Dat
 

Соответственно, искомое количество считается как

Используется синтаксис Fortran

count(Dat%Velocity>8.0 .and. Dat%Course=='S')
 

Ввод данных делайте сами, это несложно.

[Vladislav1101]

Я уже сдал работу) Но все равно спасибо! PS: я таких переменных еще не знаю((