Выяснить если элементы a включены в элементы b - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Задача: Напишите программу которая вводит от руки(readln) 2 множества A и B с номерами в интервале 10..99 и выясните если элементы множества A содержатся в B

Решение задачи: «Выяснить если элементы a включены в элементы b»

textual
Листинг программы
program DN;
 
type
  Indice = 10..99;
  MultimeIndicii = set of Indice;
 
var
  a, b, c: MultimeIndicii;
  i, k: integer;
  x: Indice;
  cond: boolean;
 
begin
  a := [];
  c := [];  
  b := [];  
  write('Введите количество элементов во множестве А:');
  readln(k);
  for i := 1 to k do
  begin
    readln(x);
    include(a, x);
  end;
  writeln('Set A: ');  
  for i := 0 to 255 do
    if i in a then
      write(i:4);
  
  writeln;
  write('Введите количество элементов во множестве B:');
  readln(k);
  for i := 1 to k do
  begin
    readln(x);
    include(b, x);
  end;
  writeln('Set B: ');  
  for i := 0 to 255 do
    if i in b then
      write(i:4);
  
  (*  
  a := [12..35, 18, 24]; //Elementele multimii A
  b := [11..55]; //Elementele multimii B
  c := []; //Pina cind este o multime vida*)
  writeln;
  c := a - b;  
  
{  writeln('Set C: ');
 
  for i := 0 to 255 do
    if i in c then
      write(i:4);}
  writeln;
  if c = []   then 
    writeln('Да. Multimea A este inclusa in multimea B')
  else 
    writeln('Нет. Multimea A nu este inclusa in multimea B');
end.

Объяснение кода листинга программы

  1. Создается программа DN.
  2. Определяются типы данных: Indice (от 10 до 99) и MultimeIndicii (множество из Indice).
  3. Определяются переменные: a, b, c (все три типа MultimeIndicii), i, k (оба типа integer), x (тип Indice), cond (тип boolean).
  4. Задается начальное значение для переменной a, b и c.
  5. Пользователю предлагается ввести количество элементов во множестве A и B. Эти данные сохраняются в переменных k и i соответственно.
  6. Для каждого элемента в множестве A (до 255 элементов) проверяется наличие этого элемента в множестве B. Если элемент присутствует в B, его номер записывается на экран.
  7. Аналогично проверяется наличие элементов множества A в множестве B. Если элементов нет, выводится сообщение Да. Multimea A este inclusa in multimea B. В противном случае выводится сообщение Нет. Multimea A nu este inclusa in multimea B.
  8. Завершается программа.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы