Tipul de date Multime
Un tip de date mulţime (set) se difineşte in raport cu un tip de bază care trebuie să fie ordinal:
::= [pached} set of
Valorile unui tip de date set sint multimi formate din valorile tipului de baza. Daca tipul de baza are n valori,tipul multime va avea 2n valori.In implementarile limbajului valoarea lui n este limitata de regula n< s.e 256.
In PASCAL o multime poate fi specifica enumerindu-i-se elementele in parantezele patrate ‘’[‘’si’’]’’,care tin locurile acoladelor din matematica.
Notatia [ ] reprezinta multime vida.
Putem avea multimi de caractere si multimi de numere byte(256 de caractere).
Un tip de date mulţime (set) se difineşte in raport cu un tip de bază care trebuie să fie ordinal:
Valorile unui tip de date set sint multimi formate din valorile tipului de baza. Daca tipul de baza are n valori,tipul multime va avea 2n valori.In implementarile limbajului valoarea lui n este limitata de regula n< s.e 256.
In PASCAL o multime poate fi specifica enumerindu-i-se elementele in parantezele patrate ‘’[‘’si’’]’’,care tin locurile acoladelor din matematica.
Notatia [ ] reprezinta multime vida.
Putem avea multimi de caractere si multimi de numere byte(256 de caractere).
Problema:
Fie
multimile A={1,3,a,4,c,d,5,8,2}, B={2,a,c,8,4,9,e,3}. Sa se calculeze multimea
C=(A ∪B)/(A ∩ B).
Rezolvare:
Program: Set;
uses CRT;
var a,b,c: set of char;
i: integer;
Begin
ClrScr;
A:=[ ‘ 1 ‘, ’ 3 ‘, ‘ a ‘, ‘ 4 ‘, ‘ c ‘, ‘ d ‘, ‘ 5 ‘,
‘ 8 ‘, ‘ 2 ‘ ] ;
B:= [ ‘ 2 ‘, ‘ a ‘, ‘ c ‘, ‘ 8 ‘, ‘ 4 ‘, ‘ 9 ‘, ‘ e
‘, ‘ 3 ‘ ] ;
C:=(A+B)-(A*B);
for i:=1 to
255 do
if chr(i)
in C then write ( chr(i) , ‘
‘ );
readkey;
End.
Комментариев нет:
Отправить комментарий