Первый элемент множества

[Jaga_89]

Есть переменная типа integer, нужно присвоить ей значение первого элемента множества. Множество типа set of byte. Такое возможно? В целом, как определить первый элемент множества?

[VIK_aka_TOR]

насколко помню делал это обычным перебором... так как в byte может храниться лишь числа от 0 до 255 то через обычный цикл for i:=1 to 255 do и каждый проход сверять входит ли i в данное множество, если входит... собственно цель достигнута...

[Аватар]

Low(Byte) и вернет первый элемент множества set of byte. High(Byte) - последний.
Это справедливо и для других множеств

[Jaga_89]

В том то и дело, что тип множество - это не массив. И если

var
L: set of byte;
n: integer;

то

for i:=1 to 255 do
if L[1]=i then n:=L[1];

не пойдёт, при компиляции будет ошибку по несоблюдению типов..
Я надеялся, что можно определить первый элемент вот так: L[1], и все дела.. но не проходит компиляцию =(

[VIK_aka_TOR]

кажись я немного попутал задание... мое минимальный находит)

[Jaga_89]

Аватар, это будет выглядеть так?

var
L: set of byte;
n: integer;

n:=Low(L);

[VIK_aka_TOR]

вообщето я писал об вхождении в множество... а не об сравнивании...

for i:=1 to 255 do
if  i in L then
begin
n:=i;
break;
end;

такой принцип...
но такой алгоритм найдет лишь наименьший элемент...

[Jaga_89]

VIK_aka_TOR, Спасибо!

[TorrentTor]

И все же какое то некорректное задание.

[Serge_Bliznykov]

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

И все же какое то некорректное задание.

я соглашусь.
действительно, некорректное!
Потому что в понятии множества нет понятия ОЧЕРЁДНОСТИ (если это вызывает сомнения, то легко убедится в этом, посмотрев, например, статью на википедии).

И приведённые решения показали НЕКОРРЕКТНОСТЬ задания.
По сути осуществляется поиск не первого элемента (которого не существует), а элемента множества с минимальным значением кода.

впрочем, я уверен, что преподавателей такое решение вполне устроит.


p.s. только перебирать, всё таки, нужно начиная с нуля:

for i:=0 to 255 do