9. множества множество в Паскал

9.8.Въвеждане и извеждане на множества

• 
  въвежда масива;
  
• 
  извежда масива;
  
• 
  намира броя на компонентите във всяко множество;
  
• 
  намира общите компоненти за всички множества;
  
• 
  намира честотата на срещане на компонентите в масива от множества.
  

• 
  процедура за въвеждане на множество;
  
• 
  процедура за извеждане на множество;
  
• 
  функция за намиране броя на компонентите на множество;
  
• 
  процедура за намиране общите компоненти за масив от множества;
  
• 
  процедура за намиране честотата на срещане на компонентите в масива от множества.
  

TipMno= set of 1..6; {Тип множество}

TipMasMno=array[1..10] of TipMno; {Тип масив от множества}

TipMasChest=array[1..6] of integer; {Тип масив с честотите на повторение на компонентите}

i,BrMno:integer;

Mno, MnoObComp:TipMno; {Променливи от тип множество}

MasMno:TipMasMno; {Масив от множества}

BrComp:array[1..10] of integer; {Брой на компонентите във всяко множество}

MasChest:TipMasChest; {Масив на честотите на повторение на компонентите}

{Процедура за въвеждане на множество}

Procedure ReadMno(Var Mno:TipMno);

Var

ElMno:integer; {Елемент на множеството}

Mno:=[];

Repeat

Write('Въведете цифра от 1 до 6 или 0 за край:'); Readln(ElMno);

If ElMno in [1..6]

then Mno:=Mno + [ElMno]

until ElMno=0;

{Процедура за извеждане на множество}

ElMno:integer;

Write('Съдържание на множеството: ');

If Mno=[]

then Writeln('празно')

else For ElMno:=1 to 6 do

if ElMno in Mno then write(ElMno,' ');

Writeln

{Функция за намиране броя на компонентите на множество}

ElMno,b:integer;

b:=0;

BrCompMno:=b

{Процедура за намиране общите компоненти за масив от множества}

Var MnObComp:TipMno);

i:integer;

MnObComp:=MasMno[1];

For i:=2 to BrMn do MnObComp:=MnObComp*MasMno[i];

End;

{Процедура за намиране честотата на срещане на компонентите в масива от множества}

ElMno,i,Br:integer;

For ElMno:=1 to 6 do

begin

Br:=0;

MsChest[ElMno]:=Br;

end;

End;

Begin {Главна програма}

{Въвеждане на множествата}

Write('Въведете броя на множествата:'); Readln(BrMno);

For i:=1 to BrMno do

begin

Writeln('Въвеждате ',i,'-то множество:');

ReadMno(MasMno[i])

end;

{Извеждане на множествата}

Writeln('Въведени са следните множества:');

For i:=1 to BrMno do WriteMno(MasMno[i]);

{Намиране броя на компонентите във всяко множество от масива}

Writeln('Брой компоненти във всяко множество:');

For i:=1 to BrMno do

begin

BrComp[i]:=BrCompMno(MasMno[i]);{Намиране бр. на комп. в i-то

множество}

Writeln(i,' ',BrComp[i]) {Извеждане бр. на комп. в i-то множество}

{Намиране общи компоненти за всички множества}

Writeln('Множество на общите компоненти за всички елементи от масива:');

ObComp(BrMno,MasMno,MnoObComp);{Намиране множ. на общите

компоненти}

WriteMno(MnoObComp); {Извеждане множеството на общите компоненти}

{Намиране честотите на срещане на компонентите в масива от множества}

Writeln('Честота на срещане на компонентите:');

Chestota(BrMno,MasMno,MasChest);

For i:=1 to 6 do Writeln(i,' ',MasChest[i]);

Readln

В програмата са дефинирани три множества - от букви (Buc), от цифри (Cif) и от препинателни знаци (PrZn). Проверката за принадлежност на прочетения символ Х към всяко множество става с оператора in.

Buc,Cif,PrZn : Set of char;

BrBuc,BrCif,BrPrZn : integer;

Ch : char;

Buc := ['A'..'Z','a'..'z'];

Cif := ['0'..'9'];

PrZn := ['!', '?', '.', ',', ';', ':'];

BrBuc := 0;

BrCif := 0;

BrPrZn := 0;

Repeat

Read(Ch);

Writeln('Букви -',BrBuc);

Writeln('Цифри -',BrCif);

Writeln('Препинателни знаци -',BrPrZn)