Главная |
Язык программирования Pascal |
||||||||||||||||||||||||||||||||||||
Запись числовых констант, переменных и выражений. Типы данных. Операции и функции над данными разных типов. Операторы присваивания, ввода и вывода Записи |
Множества. Множество - неупорядоченная совокупность неповторяющихся элементов одного типа, имеющих общее имя. Количество элементов множества может меняться в пределах от 1 до 255. Описание типа множество имеет вид: < имя типа > = Set Of < базовый тип >; Здесь <базовый тип> -
это тип элементов множества, в качестве которого может использоваться
любой порядковый тип, кроме
Integer. (В Турбо-Паскале также
кроме типов Word, Shortint,
Longint).
Пример 11.
Type
Над множествами
определены следующие операции:
* - примеры приведены согласно описаниям и конструкторам множеств в примере 11. Пример 12.
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. |