Как определить множество включающее в себя др множества? - Free Pascal
Формулировка задачи:
Перечислительный тип имеет следующее определение:
Type =nedelya (Voskr,Pon,vt,st,chet,pt,sb );
Определите множественный тип, включающий в себя множества ,из:
А)названия любых дней недели;б)Названия рабочих дней недели.
Код для вывода двух перечислений рабочий.
А вот,что с ними делать,не пойму.
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.
Решение задачи: «Как определить множество включающее в себя др множества?»
textual
Листинг программы
//Перечислительный тип имеет следующее определение: Type nedelya=(Voskr,Pon,vt,st,chet,pt,sb ); //Определите множественный тип, включающий в себя множества ,из: //А)названия любых дней недели; Type mn_vse= set of nedelya; //б)Названия рабочих дней недели Type mn_rab= set of Pon..pt;
Объяснение кода листинга программы
- Создается перечислечный тип
nedelya
с возможными значениями: Voskr, Pon, vt, st, chet, pt, sb. - Определяется множественный тип
mn_vse
, который включает в себя все значения из типаnedelya
. - Определяется множественный тип
mn_rab
, который включает в себя только рабочие дни недели из типаnedelya
, то есть значения Pon..pt.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д