В институте имеются секции по следующим видам спорта:
лыжи, коньки, хоккей, футбол, регби, самбо. Известны виды спорта, которыми занимаются учащиеся каждой группы. Количество групп -4. Требуется построить и распечатать множество видов спорта:
1) которыми занимаются хотя бы в одной группе;
2) которыми не занимаются во всех группах.
Код
const
n=2;
type
Sport=(Skis,Skates,hoccey,football,regbi,sambo);
vid=set of sport;
zanytia=array[1..n] of vid;
var
M1:zanytia;
x:sport;
a,b,c,xm1:vid;
i,j,m,iw:byte;
BEGIN
for i:=1 to n do
begin
xm1:=[];
writeln('Vvedite nomera sportov ',i:2,'-go sporta');
repeat
read(iw);
case iw of
1:x:=skis;
2:x:=skates;
3:x:=hoccey;
4:x:=football;
5:x:=regbi;
6:x:=sambo
else
writeln('Nomera sportov 1..6')
end;
xm1:=xm1+[x];
until eoln;
m1[i]:=xm1;
end;
c:=[Skis,Skates,hoccey,football,regbi,sambo];
A:=m1[1]+m1[2];
B:=B-A;
for i:=1 to n do
begin
case i of
1:writeln('kotorymi zanimautcy xotyby v odnoy grupe: ');
2:writeln('kotorymi ne zanimautcy vo vsech gruppax: ');
end;
for x:=skis to sambo do
if x in a then
case x of
Skis:write('Skis')
Skates:write('Skates')
hoccey:write('hoccey')
football:write('football')
regbi:write('regbi')
sambo:write('sambo')
end;
if i:=1 then a:=b
else
a:=c; writeln;
end;
End.
