2 задания на множества

[Lirik18]

Доброго времени суток дорогие программисты!!! Столкнулся с проблемой решения двух задач:
1) Дана непустая последовательность слов из строчных русских букв; между со-седними словами - запятая, за последним словом - точка. Напечатать в алфа-витном порядке:
все гласные буквы, которые входят в каждое слово; все согласные бук-вы, которые не входят ни в одно слово
2) В заданной последовательности литер, состоящей из букв латинского алфа-вита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".

[Lirik18]

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

uses crt;
const sg='б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь'];
var s:string;
    m,m1:set of char;
    i,k:integer;
begin
clrscr;
writeln('Vvedite text');
readln(s);
for i:=1 to length(s) do
if s[i] in sg then include(m,s[i]);
m1:=sg-m;
writeln('rezul:');
k:=0;
for i:=161 to 236 do
if chr(ord(i))in m1 then
  begin
   write(chr(ord(i)),' ');
   k:=k+1;
  end;
if k=0 then writeln('bukv net');
reeadln
end.

А по второй программе я торможу..

[Lirik18]

Люди по второй задачи разобрался Кому надо скину код. Помогите по первой!!

[alex_fcsm]

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

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

Как вариант
1. Разбейте всю последовательность на слова(можно запихнуть их в массив) - этого добра на форуме полно
2. Формируете множество гласных букв из первого слова(f). Затем в цикле для остальных слов формируете мн-во для i-ого слова(temp) и пересекаете их(f:=f*temp). И так для всех слов в итоге к концу у Вас в f останутся гласные, которые есть во всех словах
3.Множество согласных(mn) состоит из всех букв этого типа.В цикле по всем словам из него удаляете все согласные в i-ом слову(mn:=mn-a[i][j], где i - номер слова в массиве, j - номер буквы в слове). В конце имеем согласные которые не встречаются ни в одном из слов.

[Serge_Bliznykov]

Лирик, вот, готовая программка ((c) не мой)
разберётесь в ней - сделаете свою :

(*

Дана непустая последовательность слов из строчных русских букв;
между соседними словами - запятая, за последним словом - точка.
Напечатать в алфавитном порядке:
  все глухие согласные буквы, которые входят в каждое нечетное слово
                              и не входят хотябы в одно четное слово.
Примечание: гласные буквы: а,е,и,о,у,ы,э,ю,я (без ё);
согласные - все остальные буквы, кроме й,ь,ъ;
звонкие согласные - б,в,г,д,ж,з,л,м,н,р;
глухие согласные - к,п,с,т,ф,х,ц,ч,ш,щ.

*)

program lalala; {Прога "ляляля"}
const gluh = ['к', 'п', 'с', 'т', 'ф', 'х', 'ц', 'щ']; {Все глухие}
type wrds = array[1..250] of string; {новый тип- массив словес}
var l: string; {строчечго}
  ww: array[1..250] of string; {массив слов}
  len, ii: integer; {числеца - len кол-во слов ii счётчик}

procedure fromstringtwords; {строчечго --> словеса}
var i, j: integer; { no comments}
  cs: string; {cs- current string - кусок слова}
begin {---}
  i := 1; {---}
  j := 1; {---}
  cs := ''; {}
  while l[i] <> '.' do {пока символ l[i] <> '.'}
  begin {---}
    if l[i] = ',' then {если он "," }
    begin {---}
      ww[j] := cs; {словесо = сs}
      cs := ''; {кусок слова пустой}
      inc(j); {следующее словесо }
    end else cs := cs + l[i]; {иначе кусок слова + символ из строчечго}
    inc(i);
  end;
  ww[j] := cs; {последнее словесо}
  len := j; {кол-во словес}
end;

function ninchet(s: char): boolean; {символ s не содержится в 1 чёт.}
var i, j: integer;
  k: boolean;
begin
  i := 0;
  k := true; {к = содержится}
  while (i <= len) and k do
  begin
    inc(i, 2);
    j := 1;
    while (j <= length(ww[i])) and (ww[i][j] <> s) do inc(j);
    if j <= length(ww[i]) then {если всё-таки не содержится}
    begin
      k := false; {то так и быть}
    end;
  end;
  ninchet := i > len; {возврат}
end;

function inallnechet(s: char): boolean; {во всех нечет. есть s}
var i, j: integer;
  k: boolean;
begin
  k := true; {k= оно во всех}
  i := -1;
  while (i <= len) and k do { если не во всех- ПАКА}
  begin
    inc(i, 2);
    j := 1;
    while (j <= length(ww[i])) and (ww[i][j] <> s) do inc(j);
    k := j > length(ww[i]); {k:= во всех ли?}
  end;
  inallnechet := i < len;
end;

var jj: integer;
begin
  fillchar(ww, sizeof(ww), 0); {забить словеса пустотой}
{  read(l);}{строчечго!}
  l := 'хищение,ага,порох.';
  fromstringtwords; {строчечго --> словеса}
  WriteLn(len);
  for jj := 1 to Len do
    Writeln(ww[jj]);
  for ii := 40 to 256 do {все символы, в кот. может содержаться глух. (можно упростить)}
    if chr(ii) in gluh then {если символ глухой}
    begin
      if ninchet(chr(ii)) and inallnechet(chr(ii)) then write(chr(ii), ' '); { и соотв. условию - вывести}
    end;
end. {всё}