Келесі операцияларды қолдануға болады:
Операция Мағынасы Мысал* Нәтиже
* жиындардың қиылысуы s1*s3 [‘2’, ‘3’]
+ жиындарды біріктіру s4+s5 [0. .6]
- жиындардың айырымы s2-s3 [‘1’]
= True, егер жиындар
эквивалентті болса s1=s2s1=s3 TrueFalse
<> True, егер жиындар
эквивалентті емес болса s1<>s2s1<>s3 FalseTrue
<= True, егер бір жиын
екіншісінде жоқ болса s5<=s6 True
>= True, егер бір жиын
екіншісінде бар болса s2>=s3 True
In жиынның сол жағында
тұрған өрнектің мәнінің оң
жақтағы өрнекке
жатуын тексеру 7-5 In s4 True
Мысал:
А, В, С жиындарының элементтерін енгізу керек. A + B, B * C, C – A жиындарын есептеу және шығару.
Program CalcSet;
Type SetChar: Set Of Char;
Var A, B, C : SetChar;
{жиынды енгізу процедурасы}
Procedure EnterSet(Var D: SetChar);
Var ch: Char;
Begin
Writeln(‘Жиын элементтерін енгіз, нүкте – енгізу соңы’);
Read(ch);
D:=[];
While ch<>‘.’ Do
Begin D := D + [ch]; Read(ch) End;
End;{EnterSet}
{жиынды шығару процедурасы}
Procedure PrintSet(D: SetChar);
Var i: Byte;
Begin For i := 0 To 255 Do
If Chr(i) in D Then Writeln(Chr(i))
End;{PrintSet}
Begin {негізгі программа}
Writeln(‘A жиыны элементтерін енгіз’);
EnterSet(A);
Writeln(‘B жиыны элементтерін енгіз’);
EnterSet(B);
Writeln(‘C жиыны элементтерін енгіз’);
EnterSet(C);
PrintSet(A+B); PrintSet(B*C); PrintSet(C-A)
End.
Достарыңызбен бөлісу: |
