вывести множество на экран

[Intersap]

Дана задача:
В группе (Group) есть 25 студентов с фамилиями Name. Шесть дней на протяжении недели фиксируется, кто из студентов отсутсвовал (результат присваивается переменной Vidsutni[..]). Определить студентов, которые ни одного раза на этой недели не присутсвували.

Мой код:

Program Propuski;
uses crt;
type
  WorkDay = (Ponedilok,Vivtorok,Sereda,Chetver,Pyatnytsa,Sybota);
  Name = (Bogdanov,Borisenko,Voloshyn,Vasilenko,Danilov,
          Denisenko,Gdanov,Zelinskiy,Zaporojetc,Ivanov,
          Karpenko,Kovalenko,Kolomietc,Kravchenko,Kyrpa,
          Lebedyev,Lemeshko,Maslova,Makarov,Naumenko,
          Ostapenko,Pavlenko,Petrov,Stepanov,Tupolev);
  Group = set of Name;
var
  Vidsutni: array[WorkDay] of Group;
  Progul: set of Name;
Begin
  clrscr;
  Vidsutni[Ponedilok]:= [Denisenko,Kolomietc,Naumenko,Tupolev];
  Vidsutni[Vivtorok]:= [Karpenko,Kolomietc,Makarov,Naumenko,Stepanov];
  Vidsutni[Sereda]:= [Zelinskiy,Zaporojetc,Kolomietc,Kovalenko];
  Vidsutni[Chetver]:= [Borisenko,Voloshyn,Vasilenko,Kolomietc];
  Vidsutni[Pyatnytsa]:= [Kolomietc,Petrov,Stepanov,Kovalenko];
  Vidsutni[Sybota]:= [Lebedyev,Kolomietc,Lemeshko,Kovalenko];
  Progul:=Vidsutni[Ponedilok]*Vidsutni[Vivtorok]*Vidsutni[Sereda]*Vidsutni[Chetver]*Vidsutni[Pyatnytsa]*Vidsutni[Sybota];

  вывод - ?

  readln;
End.

Проблема в том, как вывести на экран множество Progul.

[Utkin]

А очень просто. Надо чтобы progul был массивом. Исправляйте, тогда никаих проблем возникать не должно. Если это Дельфи, то можно заюзать динамический массив.

[Serge_Bliznykov]

Utkin, Вы не правы. Это учебная задача именно на МНОЖЕСТВА.
так что, массив тут не подойдёт (именно из условий задачи, а не потому, что нельзя с его помощью решить задачу)...

Intersap, множество - очень удобная (иногда) штука. Но вот с вводом и выводом всегда большие проблемы...
Единственный способ в Паскале вывести содержимое переменной, типа множесто на экран, это перебирать в цикле все возможные элементы, которые могут составлять множество, проверять наличие этого элемента в печатаемом множестве, и, если оно там есть - вывод элемента на экран..
сейчас постараюсь проиллюстрировать ответ примером кода...

[Utkin]

Ну у него все равно остаются другие множества .

[Serge_Bliznykov]

как и обещал, пример вывода содержимого множества:

Program Propuski;
uses crt;
type
  WorkDay = (Ponedilok,Vivtorok,Sereda,Chetver,Pyatnytsa,Sybota);
  Name = (Bogdanov,Borisenko,Voloshyn,Vasilenko,Danilov,
          Denisenko,Gdanov,Zelinskiy,Zaporojetc,Ivanov,
          Karpenko,Kovalenko,Kolomietc,Kravchenko,Kyrpa,
          Lebedyev,Lemeshko,Maslova,Makarov,Naumenko,
          Ostapenko,Pavlenko,Petrov,Stepanov,Tupolev);
  Group = set of Name;


const
  PrintName : array[low(Name)..high(name)] of
     string = ('Bogdanov','Borisenko','Voloshyn','Vasilenko','Danilov',
        'Denisenko','Gdanov','Zelinskiy','Zaporojetc','Ivanov',
          'Karpenko','Kovalenko','Kolomietc','Kravchenko','Kyrpa',
          'Lebedyev','Lemeshko','Maslova','Makarov','Naumenko',
          'Ostapenko','Pavlenko','Petrov','Stepanov','Tupolev');

var
  Vidsutni: array[WorkDay] of Group;
  Progul: set of Name;
  Nm : Name;
Begin
  clrscr;
  Vidsutni[Ponedilok]:= [Denisenko,Kolomietc,Naumenko,Tupolev];
  Vidsutni[Vivtorok]:= [Karpenko,Kolomietc,Makarov,Naumenko,Stepanov];
  Vidsutni[Sereda]:= [Zelinskiy,Zaporojetc,Kolomietc,Kovalenko];
  Vidsutni[Chetver]:= [Borisenko,Voloshyn,Vasilenko,Kolomietc];
  Vidsutni[Pyatnytsa]:= [Kolomietc,Petrov,Stepanov,Kovalenko];
  Vidsutni[Sybota]:= [Lebedyev,Kolomietc,Lemeshko,Kovalenko];
  Progul:=Vidsutni[Ponedilok]*Vidsutni[Vivtorok]*Vidsutni[Sereda]*Vidsutni[Chetver]*Vidsutni[Pyatnytsa]*Vidsutni[Sybota];

  {так можно напечтатать без дополнительных  структур
    но будут выведены только порядковые номера элементов множества}
  WriteLn('В множесте PROGUL содержатся записи: ');
  for Nm := Low(Name) to High(Name) do
    if Nm in Progul then WriteLn(ord(Nm));

  {а вот так можно вывести отображение имен элементов множества.
    но, разумеется, эти имена надо где-то задать.    }
  WriteLn('В множесте PROGUL содержатся записи: ');
  for Nm := Low(Name) to High(Name) do
    if Nm in Progul then WriteLn(PrintName[Nm]);


  readln;
End.

[Intersap]

большое спасибо