русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Операції над множинами.


Дата додавання: 2014-11-27; переглядів: 828.


Опис Приклад
А В результат
А+В (обєднання) – множина, яка містить усі елементи множин А і В без повторень. [1,2,3] [1,4,5] [1,2,3,4,5]
А*В (перетин) – множина, яка містить елементи, які є спільними для множин А і В. [1,2,3] [8,6] [1,4,2,5] [] [1,2] []
А-В (різниця) – множина, яка складається з елементів, які є у множині А, але немає у множині В. [1,2,3,4] [3,4,5,6] [1,2]
А=В (рівність) – дві множини вважаються рівними, якщо вони складаються з однакових елементів. [1,2,3] [4,6,8] [1,2] [8,6,4] false true
А<>В (не рівність) – дві множини вважаються не рівними, якщо вони відрізняються по кількості елементів або по значенню хоча б одного елемента. ['a'..'z'] ['a','b','c','d'] ['A'..'Z'] ['a'..'d'] false true
А>=В – операція визначення належності однієї множини іншій. Результат операції А>=В дорівнює true, якщо всі елементи множини В містяться в множині А. В іншому випадку результат дорівнює false. [1,2,3] [2,3,4] false
А<=В. Результат операції А<=В дорівнює true, якщо всі елементи множини А містяться в множині В. В іншому випадку результат дорівнює false. [1,2] [0,1,2,3] true
In (належність елемента множині) [1,2,3,4] [2,3,4,5] 5 in A – false 3 in B – true

Задача.Ввести рядок. Сформувати множину, в яку входять латинські букви рядка та множину розділових знаків з вхідного рядка.

Текст програми

programlat;

var c, i, j : char;

lb : set of 'a' ..'z'; pr: set of '!' ..'?';

Begin

writeln ('Введіть рядок');

lb:= [];

pr:= [];

Repeat

read (c);

if c in ['a'..'z'] then

lb:= lb + [c] else

if c in [':',';','.',',','!','?'] then pr:=pr+[c]

until eoln;

writeln ('латинські букви');

for i:= 'a' to 'z' do

if i in lb then write (і:2);

writeln;

writeln ('розділові знаки');

for j:='!' to '?' do

if j in pr then write (j : 2)

End.

Завдання


<== попередня лекція | наступна лекція ==>
Функції для роботи з рядками. | І. Скласти програму до задачі вказаної викладачем.


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн