Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [General] Множества, перечисления в фортране? 
:(
    Опции темы
Traum
Дата 10.3.2010, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Здравствуйте!

Во многих языках (дельфи, си) имеется такой тип как множества (или перечисления). В фортране, насколько мне известно, этого нет.
Как можно в фортране реализовать такой вот код (паскаль), использующий операции со множествами

Код

type
  TOptions = (Option1, Option2, Option3, Option4);
  TOptionsList = set of TOptions ;

procedure DoSomething(const OptionsList: TOptionsList);
begin
  if (Option2 in OptionsList) then begin
    ...
  end;
  ...
end;


Пояснения: 
if (Option2 in OptionsList)  - проверка входит ли элемент Option2 в заданное множество OptionsList.
Например, может быть OptionsList = [Option2, Option4]. Или если OptionsList = [] - пустое множество.

TOptionsList = set of TOptions  - задание своего типа множества, которое может состоять только из элементов TOptions = (Option1, Option2, Option3, Option4);

PM MAIL   Вверх
kemiisto
Дата 10.3.2010, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



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

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



Нету, походу. Есть вот такие перечисления (для интероперабельности с C):
Код

ENUM, BIND(C)
  ENUMERATOR :: Option1, Option2, Option3, Option4
END ENUM


Можно разве что объявить массив...
Код
INTEGER(KIND(Option1)), DIMENSION(32) :: Set


Но это, конечно, не множества, а "закат Солнца вручную".

Можно написать самому. Можно использовать Fortran в связке с чем-то более высокоуровневым (Python).

А зачем Вам множества? Какая задача?


--------------------
PM MAIL WWW GTalk Jabber   Вверх
kemiisto
Дата 13.3.2010, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



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

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



Traum, в FLIBS есть реализация множеств.


--------------------
PM MAIL WWW GTalk Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Fortran | Следующая тема »


 




[ Время генерации скрипта: 0.0386 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.