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