«Задача Паскаль, для 1 курса»

Задача №1 Пример первого задания (В ВУЗе дали пример выполнения) Известен набор продуктов: хлеб, масло, сыр, молоко, имеющихся в ассортименте магазинов. В 3 магазина поставлены отдельные виды этих продуктов. Требуется построить множества А, В, С, которые содержат соответственно: • продукты, имеющиеся одновременно во всех магазинах; • продукты, имеющиеся, по крайней мере, в одном из магазинов; • продукты, которых нет ни в одном из магазинов.

Const N=3; Type Product=(bread,butter,cheese,milk); {продукты } Assort=set of product; {ассортимент продуктов } Shop=array[1..n] of assort; {наличие продуктов в магазинах }

Var M1:shop; X: Product; A,b,c,xm1: assort; I,j,v,iw:integer; BEGIN For I:=1 to n do Begin Xm1:=[]; Writeln(введите номера продуктов ,I:2, -го магазина=); Repeat Read(iw); Case iw of 1:x:=bread; 2:x:=butter; 3:x:=cheese ; 4:x:= milk; else write(номера продуктов 1..4); end; {case} xm1:=xm1+[x]; {наличие продуктов в одном магазине } until eoln; m1[i]:=xm1 end; {конец цикла по магазинам } {получение множеств А,В,С } A:=m1[1]; B:=[]; For I:=1 to 3 do Begin A:=A*m1[i]; {одновременно во всех } B:=B+ m1[i]; {хотя бы в одном } C:= [bread..milk] - B; {нет ни в одном } End; For I:=1 to 3 do Begin Case i of 1: Writeln(продукты, имеющиеся во всех магазинах ); 2: Writeln(ассортимент продуктов ); 3: Writeln(продукты, которых нет ни в одном магазине ); end; For x:=bread to milk do If x in a then Case x of Bread: Write(хлеб ); Butter: Write(масло ); Cheese: Write(сыр ); Milk: Write(молоко ); end; {case} if I = 1 then a:=b else a:=c; writeln end end. То что мне нужно решить:

1. В институте имеются секции по следующим видам спорта: лыжи, коньки, хоккей, футбол, регби, самбо. Известны виды спорта, которыми занимаются учащиеся каждой группы. Количество групп -4. Требуется построить и распечатать множество видов спорта: 1) которыми занимаются хотя бы в одной группе; 2) которыми занимаются во всех группах. Const N=4; Type vidSporta=(l,k,h,f,r,s,Ski,Skates,Football,Rugby); section=set of vidSporta; grup=array[1..n] of section; Var M1:grup; X: vidSporta; A,b,c,xm1: section; I,j,v,iw:integer;
   begin For I:=1 to n do;
   Begin Xm1:=[]; Writeln(введите секции спорта ,I:2, -й группы=); Repeat 1:x:=l; 2:x:=k; 3:x:=h ; 4:x:=f;