Лабораторная работа №5 Инициализация и использование в программах данных типа множество
Содержание
Пример программы
Сформировать два любых множества символьного типа. Ввести с клавиатуры два символа. Определить, принадлежит ли первый символ пересечению этих множеств. Вывести пересечение множеств. Добавить второй символ в первое множество, если его там нет. Вывести оба множества.
Program MH;
Var m1,m2, pm: set of char; x1,x2, y: char;
Begin
m1:=[A,F,S,P];
m2:=[O,P,R,S,T] ;
Write(' множество первое: ');
for y:=chr(0) to chr(255) do
if y in m1 then Write(y,', ');
WriteLn; Write(' множество второе:');
for y:=chr(0) to chr(255) do
if y in m2 then Write(y,', ');
WriteLn;
pm:=m1*m2;
Write(' пересечение множеств: ');
for y:=chr(0) to chr(255) do
if y in pm then Write(y,', ');
WriteLn;
Write(' введите два символа: ');
ReadLn(x1,x2) ;
if x1 in pm then
writeln(' первый символ принадлежит пересечению множеств')
else
writeln(' первый символ не принадлежит пересечению множеств');
if not(x2 in m1) then m1:=m1+[x2];
Write(' множество первое: ');
for y:=chr(0) to chr(255) do
if y in m1 then Write(y,', ');
WriteLn;
Write(' множество второе: ');
for y:=chr(0) to chr(255) do
if y in m2 then Write(y,', ');
WriteLn;
End.
Задания
Составьте блок-схемы и программы к задачам своего варианта:
Вариант 1.
Путем ввода целых чисел создать множество. Определить, входят ли в данное множество числа, введенные с клавиатуры.
Вариант 2.
Путем ввода создать множество символьного типа. Определить, входят ли в это множество символы, вводимые с клавиатуры.
Вариант 3.
Создать множество символьного типа путем ввода с клавиатуры. Определить, входят ли в это множество символы, вводимые с клавиатуры.
Вариант 4.
Создать два множества А и В, каждое из которых содержит только цифры. Определить, входит или нет символ, введенный с клавиатуры во множество С, где С=А*В. Вывести на экран множества А, В и С.
Вариант 5.
Создать два множества А и В, каждое из которых содержит только символы. Определить, входит или нет символ, введенный с клавиатуры во множество С, где С=А+В. Вывести на экран множества А, В и С.
Вариант 6.
Создать два множества А и В, каждое из которых содержит только символы. Определить, входит или нет символ, введенный с клавиатуры во множество С, где С=А-В. Вывести на экран множества А, В и С.
Вариант 7.
Создать два множества А и В, каждое из которых содержит только цифры. Определить, входит или нет символ, введенный с клавиатуры во множество С, где С=А-В. Вывести на экран множества А, В и С.
Вариант 8.
Создать два множества А и В, каждое из которых содержит только символы. Определить, входит или нет символ, введенный с клавиатуры во множество С, где С=А*В. Вывести на экран множества А, В и С.
Вариант 9.
Из множества целых чисел от 1 до 30 выделить два множества: чисел, кратных 2 и чисел, кратных 3.
Вариант 10.
Из множества целых чисел от 10 до 40 выделить два множества: чисел, кратных 2 и 3, и чисел, кратных 2 или 3.
