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

[Lange]

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

[Stilet]

Хм... Наверное имеется ввиду что ты пишешь цикл, в котором считываешь посимвольно а не строку типа:

repeat
 c:=readkey;write(c);
 if pos(c,'нрлдбз')<>0 then введена звонкая согласная
until c=#13

Ну а далее собсно в массив введенные звонкие, и их сортировать

[Serge_Bliznykov]

Stilet, + 1

либо можно воспользоваться массивом MM : array[0..255] of boolean;
где каждый элемент массива - это признак, что эта звонкая согласная встретилась более чем в одном слове:

 if pos(c,'нрлдбз')<>0 then введена звонкая согласная
    MM[ord(c)] := true;

p.s. кстати, задание так, как Вы написали, вряд ли может звучать... "звонкие согласные звуки" - может всё таки согласные БУКВЫ?

[Lauraldo]

Но буквы-то звонкими не бывают... Тут уже скорее напутал сам препод...)

[Женечка))]

помогите пожалуйста задачу решить? очень нужно...
"В данном натуральном числе переставить цифры таким образом, чтобы образовалось наименьшее число, записанное этими же цифрами." заранее спасибо...
ну в смысле в паскале сделать программу...

[Lange]

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

Но буквы-то звонкими не бывают... Тут уже скорее напутал сам препод...)

Почему?Могут)Это еще по русскому языку проходили...
Согласные звонкие:б,в,г,д,ж,з,л,м,н,р.

[Lange]

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

Stilet, + 1

либо можно воспользоваться массивом MM : array[0..255] of boolean;
где каждый элемент массива - это признак, что эта звонкая согласная встретилась более чем в одном слове:

 if pos(c,'нрлдбз')<>0 then введена звонкая согласная
    MM[ord(c)] := true;

p.s. кстати, задание так, как Вы написали, вряд ли может звучать... "звонкие согласные звуки" - может всё таки согласные БУКВЫ?

Вот такая у меня программа с применением множеств(работает):

PHP код:

uses crt;
var
  s:string;
  a,m:set of char;
  l,p:integer;
  c:char;
procedure vvod;
var
  i:integer;
begin
  writeln('Введите строку:');
  i:=0;
  repeat
    i:=i+1;
    read(s[i]);
  until s[i]='.'
end;
begin
  clrscr;
  vvod;
  a:=['b','v','g','d','z','l','m','n','r'];
  for c:='b' to 'z' do
    begin
      l:=0;
      p:=0;
      m:=[];
      repeat
        l:=l+1;
        if s[l]=',' then m:=[]
          else;
        if (s[l]=c)and(s[l]in a)and not(s[l]in m)then
          begin
            m:=m+[s[l]];
            p:=p+1
          end
        else;
      until (s[l]='.')or(p>1);
      if p>1 then write(c,' ')
        else
    end;
  readkey
end.