Найти пересечение множеств

@Jidkiy Arkadiy · Регистрация: 12.04.2015

Author24 — интернет-сервис помощи студентам

Задание:
Дано 2 предложения. Составить два множества: первое содержит слова из первого предложения, а второе - из второго предложения. Вывести элементы каждого множества на экран. Найти их пересечение.
Препод сказал, что для работы цикла нужно найти количество вхождений пробелов. Вопрос- как организовать цикл вычленения слов из строки и добавления их во множество?

@Puporev · 01.07.2015, 20:57

Pascal

type mnz=set of string;
procedure mnozestvo(s:string; var m:mnz);
var i:integer;
    s1:string;
begin
s:=s+' ';
s1:='';
m:=[];
for i:=1 to length(s) do
if s[i]<>' ' then s1:=s1+s[i]
else 
 begin
  m:=m+[s1];
  s1:='';
 end;
end;
var s1,s2:string;
    m1,m2:mnz;
begin
writeln('Введите первую строку слов');
readln(s1);
mnozestvo(s1,m1);
writeln('Введите вторую строку слов');
readln(s2);
mnozestvo(s2,m2);
writeln('Первое множество');
foreach s: string in m1 do
write(s,' ');
writeln;
writeln('Второе множество');
foreach s: string in m2 do
write(s,' ');
writeln;
m1:=m1*m2;
if m1=[] then write('Пересечение пустое')
else
 begin
  writeln('Пересечение');
  foreach s: string in m1 do
  write(s,' ');
 end; 
end.

@Jidkiy Arkadiy 0 / 0 / 1 Регистрация: 12.04.2015 Сообщений: 21
		1
	Найти пересечение множеств 01.07.2015, 19:37. Показов 1585. Ответов 1 Метки нет (Все метки) Задание: Дано 2 предложения. Составить два множества: первое содержит слова из первого предложения, а второе - из второго предложения. Вывести элементы каждого множества на экран. Найти их пересечение. Препод сказал, что для работы цикла нужно найти количество вхождений пробелов. Вопрос- как организовать цикл вычленения слов из строки и добавления их во множество? 0

	01.07.2015, 20:57

Найти пересечение множеств

Решение