Множества

[Alex_12Proxy]

Дана не пустая последовательность слов из строчных русских букв: между соседними словами- запятая, за последним словом - точка. Напечатать все согласные буквы, которые не входят ни в одно слово.

Помогите написать программу.

[Paster Fob]

что значит "не пустая последовательность слов"?Это строка или что?

[Alex_12Proxy]

Да это строка

[Alex_12Proxy]

Program mnogestvo;
const 
 sg=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
 s='программирование,алгоритмы,компьютер,стол,мышка.'; 
var 
    m,m1:set of char;
    i:integer;
begin
  for i:=1 to length(s) do
   if s[i] in sg then 
      include(m,s[i]);
   writeln('Множества согласных, которые входят:');
    writeln(m);
   m1:=sg-m;
   writeln('Множества согласных, которые не входят:');
   writeln(m1);
 end.

Может будет кому надо, вот она!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Alex_12Proxy, задача, конечно, ПОЧТИ решена и даже ПОЧТИ правильно.
Вот только ответ она НЕ ВЫДАСТ!
У Вас она вообще скомпилировалась?
вот на эти строчки компилятор должен ругаться чёрным словами:

    writeln(m);
   m1:=sg-m;
   writeln('Множества согласных, которые не входят:');
   writeln(m1);

Добавлено
проверил разные компиляторы Паскаля, нашёл один, который умеет множества печатать сам!
Это PascalABC.NET. я удивлён!



А ещё у меня к Вам один провокационный вопрос!

 writeln('Множества согласных, которые входят:');
    writeln(m);

которые входят куда?!

[Alex_12Proxy]

Которые входят во все слова! Ну это я так для себя вывел, чтоб сравнить!
Да он ее компилирует, я на ABС Pascal работаю.

[Serge_Bliznykov]

Да он ее компилирует, я на ABС Pascal работаю.

стоп!
Не путайте. Вы работаете не на ABC Pascal, а на PascalABC.NET - это АБСОЛЮТНО разные программные продукты (и, кстати, во многом не соответствующие стандарту Паскаля )

Которые входят во все слова!

ну вот я Вас и подловил!
Это НЕПРАВИЛЬНЫЙ ответ.
подумайте почему этот ответ неправильный и попробуйте ответить ещё раз!

[Alex_12Proxy]

Ой сори, да на PascalABC.NET я работаю! Почему не правильно ответил то? Следуя своей логике, я сначала нашел все множества которые входят в текст, я вывожу их на экран для сравнения со множеством которое у меня должно получиться!

Множества согласных, которые входят:
['в','г','к','л','м','н','п','р','с' ,'т','ш']

Вот это у меня получается те буквы которые вошли в мои слова, а вот и сам ответ, в котором содержаться те буквы которые не вошли:

Множества согласных, которые не входят:
['б','д','ж','з','й','ф','х','ц','ч' ,'щ']

[BDA]

Alex_12Proxy, которые входят хотя бы в одно слово ( а не во все)
Serge_Bliznykov, извините, что мешаю наставлять людей на путь истинный

[Serge_Bliznykov]

я сначала нашел все множества которые входят в текст

ну, точнее - "множество всех согласных букв, которые входят в текст".
Это правильный ответ.

Ещё можно было бы сказать (по аналогии с заданием) - "множество всех согласных букв, которые входят ХОТЯ БЫ в ОДНО слово".

а вот ответ:

Которые входят во все слова!

это неправильно. вот, например, согласная "в" - разве она "входит во все слова" ?!

Вас в этом задании сильно выручило то, что Вам НЕ ПОТРЕБОВАЛОСЬ разбирать строку на отдельные слова! Т.е. то, что слова разделены запятыми вы в своём решении полностью проигнорировали!