Лабораторная работа №5 Инициализация и использование в программах данных типа множество

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску

Пример программы

Сформировать два любых множества символьного типа. Ввести с клавиатуры два символа. Определить, принадлежит ли первый символ пересечению этих множеств. Вывести пересечение множеств. Добавить второй символ в первое множество, если его там нет. Вывести оба множества.

 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.