Здравствуйте!Pascal(Множества)!

[Alex_12Proxy]

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

Вот до чего додумался!

const
  vowels = ['к', 'п', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];
  s = 'кирпсич,кфонопля,капитан,кхапелька,пачка,печка,пофчка,кнопка,крцапива,капкан.';
var
  str1: string;
  s1, s2, s3, s4, s5: set of char;
  m, i, k, n, l: integer;
  t: boolean;
  ch: char;
begin
  i := 1;
  l := 0;
  writeln('Глухие согласные', vowels);
  writeln('Исходный текст:', s);
  writeln('Множество всех глухих согласных в строке:');
  s1 := [];
  m := length(s);
  while i <= m do
  begin
    t := false;
    while (i < m) and not (s[i] in ['.', ',']) do
    begin
      ch := s[i];
      if (ch in vowels)  then 
        s1 := s1 + [ch];
      t := true;
      i := i + 1;
    end;
    if t then
      l := l + 1;
    i := i + 1;
  end;
  writeln(s1);
  writeln;
  writeln('Количество слов в строке = ', l);
  writeln;
  str1 := s;  
  m := Pos(',', s);
  delete(str1, 1, m);
  s2 := [];
  for i := 1 to m - 1 do
  begin
    ch := s[i];
    if ch in vowels then
      s2 := s2 + [ch];
  end;
  n := 1;
  k := pos(',', str1);
  while k <> 0 do
  begin
    n := n + 1;
    i := 1; 
    s3 := [];
    while i < k do
    begin
      ch := str1[i];
      if (ch in s1) then
        s3 := s3 + [ch];
      i := i + 1;
    end;
    s2 := s2 * s3;
    delete(str1, 1, k);
    k := pos(',', str1);
  end; 
  s3 := [];
  k := length(str1);
  for i := 1 to k - 1 do
  begin
    ch := str1[i];
    if (ch in s1) then
      s3 := s3 + [ch];
  end;                  
  s2 := s2 * s3;
  s4 := s1 - s2;
  s5 := vowels;
  s5 := s5 - s1;
  writeln('Множество букв, которые входят в каждое слово:');
  writeln(s2);
  writeln;
  writeln('Множество букв, которые входят хотябы в одно слово:');
  writeln(s4);
  writeln;
  writeln('Множество букв, которые не входят ни в одно слово:');
  writeln(s5);
end.

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

[Niro]

можете перефразировать условие?

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

И пример с ответом. А то что-то торможу, и не могу въехать чего требуется

[Alex_12Proxy]

Сообщение от Niro

можете перефразировать условие?

И пример с ответом. А то что-то торможу, и не могу въехать чего требуется

Я так понимаю, что глухая согласная должна входить в 9 из 10 перечисленных слов.
кирпсич,кфонопля,капитан,кхапелька, пачка,печка,пофчка,кнопка,крцапива, капкан.
Сейчас К и П, входят в каждое слово. Если убрать П из последнего слова, то такой набор слов, должен удовлетворять условиям задачи.

[denisbrain]

Сообщение от Alex_12Proxy

Я так понимаю, что глухая согласная должна входить в 9 из 10 перечисленных слов.
кирпсич,кфонопля,капитан,кхапелька, пачка,печка,пофчка,кнопка,крцапива, капкан.
Сейчас К и П, входят в каждое слово. Если убрать П из последнего слова, то такой набор слов, должен удовлетворять условиям задачи.

а процедуры можно использовать - так проще было бы для понимания!!!

[Alex_12Proxy]

Сообщение от denisbrain

а процедуры можно использовать - так проще было бы для понимания!!!

Можно использовать все что угодно Мне уже поставили оценку за данную прог. Мой учитель, как и я, не смог придумать как ее решить(или не хотел). А мне интересно как она решается, сам не могу додуматься, поэтому прошу помощи у вас!

[Niro]

Вообщем идея такая,

1) организуете цикл, на каждой итерации (повторении) которого вытаскиваеме очередное слово;
2) организуете цикл по символам вытащенного слова, проверяя входит ли очередной символ в множество глухих согласных;
3) если входит, то еще один цикл, для прохождения по всем остальным словам, за исключением текущего слова, 
в котором проверяете, входит ли этот глухой символ в очередное, слово, если да, то увеличиваем счетчик(z).
4) далее, условие - если общ_количество_слов - счетчик (z)=1, то этот глухой символ входит во все слова кроме одного (и допустим кидаем его в новое множество)

Алгоритм не оптимален, но должен работать
Общее_количество_слов, легко посчить, их будет "количество_запятых -1"

[Alex_12Proxy]

Спасибо! Попробую.

[s-andriano]

Проще, наверное, так:
1. Массив входных данных - перечень глухих букв.
2. Входные данные - строка с текстом.
3. Написать булеву функцию - водит ли буква в слово.
4. Разбить строку на слова: строка => массив строк длиной N (в строке N слов).
5. Внешний цикл по глухим буквам. Инициализация счетчика слов.
6. Внутренний цикл по словам. Подсчитывается количество TRUE при обращении к функции 3. (вариант: количество FALSE)
7. Если счетчик =N-1 (вариант: 1), буква удовлетворяет условию.