3) 7 soni A t o ‘p lam d a yotadi;
4) “ A va В to ‘plam lar teng” ning inkpri;
D astur matnini kcltiramiz:
Program Set_2,
type
.
9
,
va r
s e tl, set2:
set o f s e t j n i m ,
x \ , x 2 , x 3 , xA. b o o lea n
,
begin
st?Zl:=[7,l,3]; s e z 2 : = [ l ,4,6,8],
x\.= set\< > set2, x2.= set\< = set2\
x 3 = l i n s e t \ \ xA = not(set
1
=set2)\
write i n ^ x \ —, x
\ , 1
x2 —, x 2 ,
'
х
Ъ=',
х
Ъ , '
х
А=',
х
АУ,
rea d ln
;
end.
K o ‘rsatilgan tipdagi dasturlarda
Set
ning ishlatilishi bir
qator avzalliklar bcradi: m urakkab
IF operatorlari ancha
soddalashtiriladi; masalani yechish
algoritm ini tushunish va
d a s tu m in g k o ‘rinish
darajasi ortadi; xotira,
kom pilyatsiyalash
vaqti va d a s tu m in g bajarilish jara y o n i tezlashadi.
Salbiy
tom onlari
ham
y o ‘q emas,
ulardan biri
Paskal
tilida
t o ‘plam la m i
kiritish-chiqarish
qurilm alarining
y o ‘qligi,
shutting uchun dasturchi tegishli protseduralam i o ‘zi yozishi
kerak b o ‘ladi.
T o p sh iriq la r
Q uyigagi ifoda lam ing qiym atini hiso b la n g ( 1 -1 5 ):
l .[5 ]< = [1 . 5];
2. [7,1, 3..6] = [1 .7 ];
3. 15 in [1..10];
4. [ ‘A ’ , ‘В ’, ‘C ’] +
[ D \
‘E ’];
5. [ ] > = [ ! , 2];
6. [ 1 ,2 ,3 ] + [0,2,3];
7. [ 1 , 2 , 3 ] - [ 0 , 2 , 3 ] ;
8. [1,2,3] * [0,2,3];
9. Trunc(8.3) in [ 1 . 9 ] ;
10. [ 2 ] o [ 2 , 2 , 2 ] ;
11. S u c c (‘C ’) in [ ‘B ’, ‘D ’]; 12. 16 in [16];
13. [11..7] * [2] + [7, 14..20] * [2 ..I7 ] - [2..8J;
