множества(set), ПОМОГИТЕ Опции

[compiler]

можно ли выводить (печатать) множества. КАК?
почему нельзя написать Write(set1); ?

[volvo]

код мне не нравится

В чем проблема? Пиши такой, который нравится... Только вот то, что тебе будет нравиться - не будет работать... "Тебе шашечки, или ехать?" (С)

А как быть со словами?

С какими словами? Вопрос ставь так, чтобы его понимал не только ты один...

[compiler]

В чем проблема? Пиши такой, который нравится... Только вот то, что тебе будет нравиться - не будет работать... "Тебе шашечки, или ехать?" (С)

С какими словами? Вопрос ставь так, чтобы его понимал не только ты один...

я имел ввиду как печатать слова с множества. ведь этот алгоритм практически(СЛИШКОМ медлинный если использывать не счетчик, а словарь) неприменим.

А код мне все равно не нравится

[Malice]

я имел ввиду как печатать слова с множества.

Это ты имел ввиду ?

type days=(Sun, Mon, Tue, Wed, Thu, Fri, Sat);
const ndays:array [days] of string=
('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
var s:set of days;
dd:days;
begin
s:=[Sun, Mon, Wed, Thu, Fri, Sat];
for dd:=sun to sat do
if dd in s then write (ndays[dd],' ');
end.

ведь этот алгоритм практически(СЛИШКОМ медлинный если использывать не счетчик, а словарь) неприменим.

Не понял Поясни.
Множество может занимать максимум 32 байта, а обработка 32-х байт не может быть слишком медленной, как бы это не делали

А код мне все равно не нравится

Покажи свой.