Подсчитать, сколько элементов из двух множеств совпадают - Pascal

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

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

Помогите кто может пожалуйста!!! задано множество м и множество т такого же типа. подсчитать, сколько элементов из множеств т и м совпадают.

Решение задачи: «Подсчитать, сколько элементов из двух множеств совпадают»

textual
Листинг программы
uses crt;
var m,t:set of 0..9;
    i,k:byte;
begin
clrscr;
m:=[1,5,8,9,0];
t:=[1,2,3,4,5,6,8];
writeln('Множество M:');
for i:=0 to 9 do
if i in m then write(i,' ');
writeln;
writeln('Множество T:');
for i:=0 to 9 do
if i in t then write(i,' ');
writeln;
k:=0;
for i:=0 to 9 do
if(i in m)and(i in t) then inc(k);
write('В множествах совпадают ',k,' элм.');
readln
end.

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

  1. Установка начального значения переменной k равным 0.
  2. Вывод на экран множества M.
  3. Проверка каждого элемента из множества M на наличие в множестве T.
  4. Если элемент присутствует в обоих множествах, то увеличивается значение переменной k.
  5. Вывод на экран значения переменной k, которое показывает количество совпадающих элементов.
  6. Ввод с клавиатуры символа для завершения работы программы.

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

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