Подсчитать, сколько элементов из двух множеств совпадают - 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.
Объяснение кода листинга программы
- Установка начального значения переменной
k
равным 0. - Вывод на экран множества
M
. - Проверка каждого элемента из множества
M
на наличие в множествеT
. - Если элемент присутствует в обоих множествах, то увеличивается значение переменной
k
. - Вывод на экран значения переменной
k
, которое показывает количество совпадающих элементов. - Ввод с клавиатуры символа для завершения работы программы.