7/24/2019 Multi Mi

1/13

Efectuiaz un clic.

7/24/2019 Multi Mi

2/13

Elesunt:

Tipuri de date tablou(array)

Tiputi de date ir de caractere

Tipuri de date articol(record)

7/24/2019 Multi Mi

3/13

Tipul SET (multime)

O multime (SET) PASCAL este o

implementare limitata a conceptuluimatematic de multime. In cele ce urmeaza noi

vom ncerca s demonstrm teoreme despre

proprietaile muimilor .

7/24/2019 Multi Mi

4/13

este fie numele unui tip ordinal declarat

anterior sau un tip ordinal (nou) declarat la locul respectiv (ca

nSET

OF

!"..#$).

PASCAL %." limiteaza numarul de elemente ale unei multimi la

&'. in acest motiv tipul de *aza al unei multimi nu poate fi

tipul integer+ ci numai un su*domeniu al acestui tip+ cu

cardinal cel mult &'.

set of Tip ordinal

iagrama de sinta! a tipului SET

[ .. ]constant constant

7/24/2019 Multi Mi

5/13

"entru #aria$ilele %i constantele de tip mul&ime sunt

definite toate opera&iile 'nt'lnite 'n teoria mul&imilor:

reuniune intersec&ie diferen&a

,atematica PASCAL

c=a b c:=a+b

c=a b c:=a*b

c=a-b; d=b-a; c:=a-b; d:=b-a ea {da sau nu e in a {true sau false

7/24/2019 Multi Mi

6/13

Programul ce urmeaz afieaza pe ecran

rezultatele operaiilor +,* i -, efectuate

asupra valorilor de tip Mulime.

i # #$

7/24/2019 Multi Mi

7/13

t!pe "ndice=#..#$;

%ulti&e"ndicii=set of "ndice;

'ar :%ulti&e"ndicii;

i :inte,er;

be,in

:=[#.. ]; :=[#../ 0 #$];

:=[ ];

:=+;

1riteln (23euniune4);

for i:=# to #$ do

if i in t5en 1rite(i:/); 1riteln;

:=*;

1riteln (2"ntersectie4);

for i :=# to #$ do

if i in t5en 1rite(i:/); 1riteln;

:=-;

1riteln (26iferenta4);

for i:=# to #$ do

if i in t5en 1rite (i:/);

1riteln;

readln;

end.

7/24/2019 Multi Mi

8/13

Analiza

programului

7/24/2019 Multi Mi

9/13

'ar :%ulti&e"ndicii;

i:inte,er;

# 7 / 8 9 0 #$

# 7 / 8 9 0 #$

stfel este si in caul lui ...

te un "T.

7/24/2019 Multi Mi

10/13

!egin

:=[ #.. ];

:=[ #../ 0 #$];

:=[ ];

"eci rezulta ca

#A contine $, %, &, ', (, ) # contine $, %, &, , $ iar

# este o multime vida

# # # $ $ $ $ $ # #

# # # # # $ $ # $ $

$ % & ' ( / 0 )

$A

7/24/2019 Multi Mi

11/13

. 1A*2"entru 'mul&irea a dou mul&imi

folosim opera&ia logica * and+

# 7 / 8 9 0 #$

# # # # # $ $ # $ $# # # $ $ $ $ $ # #

# # # $ $ $ $ $ $ $

A

Se #ede c

,con&ine -

7/24/2019 Multi Mi

12/13

:=-;

# 7 / 8 9 0 #$

# # # # # $ $ # $ $# # # $ $ $ $ $ # #

$ $ $ # # $ $ # $ $

e unde rezult c:

A

,con&ine / 0 1

7/24/2019 Multi Mi

13/13