Как определить множество включающее в себя др множества?

@inquisitor · Регистрация: 22.12.2015

Author24 — интернет-сервис помощи студентам

Перечислительный тип имеет следующее определение:
Type =nedelya (Voskr,Pon,vt,st,chet,pt,sb );

Определите множественный тип, включающий в себя множества ,из:
А)названия любых дней недели;б)Названия рабочих дней недели.
Код для вывода двух перечислений рабочий.
А вот,что с ними делать,не пойму.

Pascal

Program HELLO;
 
uses crt;
type TWokday = (Monday,Tuesday,Wednesday,Thursday,Friday);
  type Tweekend  =(Saturday,Sunday);
var
    Wokday : set of TWokday;
    i       : TWokday;
    weekend:set of Tweekend;
    j:Tweekend;
 
    begin
    clrscr;//Очищаем экран
    for i := Low(Twokday) to High(Twokday) do
    Writeln('Рабочие дни недели  ',i, ' ');
      Writeln();
       for j := Low(Tweekend) to High(Tweekend) do
    Writeln('Выходные дни недели  ',j, ' ');
     Readln;
end.

@BOGG ART · 29.10.2016, 00:46

Не по теме:

_{Я не увидел задания сделать их одновременно...}

@inquisitor · 29.10.2016, 00:54 **[ТС]**

Сообщение от BOGG ART

Я не увидел задания сделать их одновременно...

Я вверху написал задание.Что по факту нужно сделать?

@Puporev · 29.10.2016, 09:41

Pascal

//Перечислительный тип имеет следующее определение:
Type  nedelya=(Voskr,Pon,vt,st,chet,pt,sb );
//Определите множественный тип, включающий в себя множества ,из:
//А)названия любых дней недели;
Type mn_vse= set of nedelya;
//б)Названия рабочих дней недели
Type mn_rab= set of Pon..pt;

@inquisitor · 29.10.2016, 14:34 **[ТС]**

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

Type mn_rab= set of Pon..pt;

что это за тим данных?
Как их обьеденить,ведь должные быть одного типа?

@Puporev · 29.10.2016, 15:10

Оставьте тогда только

Pascal

1	Type mn_vse= set of nedelya;

@BOGG ART
	29.10.2016, 00:46 #2
	Не по теме: _{Я не увидел задания сделать их одновременно...} 0

@inquisitor 25 / 9 / 17 Регистрация: 22.12.2015 Сообщений: 2,097
	29.10.2016, 00:54 [ТС]	3
	Сообщение от BOGG ART Я не увидел задания сделать их одновременно... Я вверху написал задание.Что по факту нужно сделать? 0

@inquisitor 25 / 9 / 17 Регистрация: 22.12.2015 Сообщений: 2,097
	29.10.2016, 14:34 [ТС]	5
	Сообщение от Puporev Type mn_rab= set of Pon..pt; что это за тим данных? Как их обьеденить,ведь должные быть одного типа? 0

	29.10.2016, 15:10

Как определить множество включающее в себя др множества?

Решение