Множества Delphi

[VadEr]

Добрый день!

Подскажите пожалуйста, как мне определить - сколько элементов содержит множество?

[hoza_syl]

Никогда таким не интересовался, но однажды пришлось - хорошо у меня там могли быть цифры только от 0 до 25. Поэтому количество определялось достаточно быстро:

var myset : set of integer;
var count : integer;
var i: integer;
begin
//...
for i:=0 to 25 do
  if  (i in myset) then inc(count);

//Теперь в countколичество элементов в множестве

Кажется так, другого способа я не нашел

[Utkin]

Зачем тебе это? В теории множеств ясно указано что ни порядок следования элементов в множестве, не их число значения не имеет. Если тебе все же необходимо, то следует не пользоваться множествами.

[VadEr]

Спасибо понял!

[hoza_syl]

В теории множеств ясно указано что...

Теория теорией, а на практике иногда и не такую бессмыслицу приходится делать

[Utkin]

Сообщение от hoza_syl

Теория теорией, а на практике иногда и не такую бессмыслицу приходится делать

Это говорит о том, что Вы плохо относитесь к процессу проектирования алгоритма.

[Serge_Bliznykov]

hoza_syl прав.

Единственный способ определить количество элементов в множестве в Pascal/Delphi — это перебор (цикл) по всем допустимым элементам, проверка, содержится ли данный элемент и, в случае наличия данного элемента, наращивание счётчика...

p.s. строго говоря, код вышеприведённый не совсем точен - если множество set of Integer, то правильно, конечно же, перебирать от минимального значения Integer до максимально возможного значения Integer...

[hoza_syl]

Serge_Bliznykov -

у меня там могли быть цифры только от 0 до 25.

.

[ОДИНОЧЕСТВО В СЕТИ]

кстати

var N: set of Integer;

приведёт к ошибке "Set base type out of range".

[Serge_Bliznykov]

у меня там могли быть цифры только от 0 до 25.

да я понимаю. я внимательно прочитал ваше сообщение. и в вашем случае, возможно, это допустимо.
Однако, не понимаю, почему в этом случае Вы не задали

var myset : set of 0..25;

?? и тогда моё замечание не имело смысла. А так, строго говоря, программа некорректна.

Вау! полез проверять... и...
А вообще, в какой версии Pascal/Delphi вот эта строчка

var myset : set of integer;

вообще компилится???!
TP 7 и Delphi 5 отказались это компилировать, заявив, что множество не может содержать более 256 элементов!!!

___________________________________ _________

Utkin

Сообщение от Utkin

В теории множеств ясно указано что ни порядок следования элементов в множестве, не их число значения не имеет.

ой не всё так просто.. вот здесь (Википедия) сказано, что:

В математической логике и дискретной математике часто употребляемый синоним множества — алфавит.
Множество может быть замкнутым и незамкнутым, полным и пустым, упорядоченным и неупорядоченным, счётным и несчётным, конечным и бесконечным.