Множества

[yuriy1]

нужно из последовательности слов выписать все звонкие согласные(это я сделал) и записать их в алфавитном порядке, буквы не должны повторятся.. помогите доработать прошу.

program Lab;
const
 zvSoglasn=[б,в,г,д,ж,з,й,л,м,н,р];
var
a,b: string;
i: integer;
g: set of char;
begin
a:='прикладная, информатика, лабораторная, работа.';
for i:= 1 to length(a) do
   begin
     if a[i] in zvSoglasn then
     b:=b+ ' ' + a[i];
   end;
   write('звонкие согласные:',b);
   writeln
end.

ps: упс, множества, а не множители =)

[Stilet]

zvSoglasn=[б,в,г,д,ж,з,й,л,м,н,р];

Каждую букву возьми в ковычки.

[Poma][a]

Не вижу инициализации b

[Serge_Bliznykov]

раз уж задача на использование типа данных "множество", так и надо использовать данный тип на полную катушку!

вот, например, так:

program Lab;
const
 zvSoglasn=['б','в','г','д','ж','з','й','л','м','н','р'];
var
a: string;
i: integer;
g: set of char;
ch : char;
begin
a:='прикладная, информатика, лабораторная, работа.';

g := []; {в начале g - пустое множество, 
             потом будет в него собирать встречающиеся 
             в строке звонкие согласные}

for i:= 1 to length(a) do
     if a[i] in zvSoglasn then
        Include(g, a[i]);

{вывод результата}
write('звонкие согласные в заданной строке : ');
for ch:=#00 to #255 do
  if ch in g then Write(ch,' ');

writeln;
Readln;
end.

[Poma][a]

for ch:=#00 to #255 do

А ведь можно от 192 плясать? (тыц)

[Stilet]

Можно. А лучше так:

write('звонкие согласные в заданной строке : ');
for ch:='А' to 'я' do
  if ch in g then Write(ch,' ');

Ато ввиду юникодности с кодами символов и пролететь можно

[Poma][a]

const
    STR = 'бвгджзйлмнр';
..

    for i := 1 to Length (STR) do
        if STR[i] in g then 
               Write (STR[i], ' ');

А так?

[Stilet]

Тоже можно. Во еще попури:

program Lab;
const
 zvSoglasn=['б','в','г','д','ж','з','й','л','м','н','р'];
var
a: string;
i: integer;
g: array['А'..'я'] of byte;
ch : char;
begin
a:='прикладная, информатика, лабораторная, работа.';


for i:= 1 to length(a) do if a[i] in zvSoglasn then  inc(q[a[i]]);

{вывод результата}
write('звонкие согласные в заданной строке : ');
for ch:='А' to 'я' do
  if g[ch]<>0 then Write(ch,' ');

writeln;
Readln;
end.

Навыдумывать много можно решений.

[eoln]

Да, с кодировками можно пролететь.
Например, если используется буква Ё/ё

[Poma][a]

inc(q[a[i]]);

Долго думал что ж за q?

Навыдумывать много можно решений.

Ага-ага