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

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

Форум программистов > Fortran > [General] Множества, перечисления в фортране?

Автор: Traum 10.3.2010, 19:18

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

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

Код


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);

Автор: kemiisto 10.3.2010, 20:00

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

Код


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

Можно разве что объявить массив...

Код

INTEGER(KIND(Option1)), DIMENSION(32) :: Set

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

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

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

Автор: kemiisto 13.3.2010, 16:33

Traum, в http://flibs.sourceforge.net/ есть реализация http://flibs.sourceforge.net/sets.html.