Delphi

[OKSANO4KA]

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

я написала так:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 s: set of 'a'..'z';
 c: char;
begin
writeln ('vvedite clova');
read (c);
s:=[];
 while c <> '.' do
  begin
    if c <>',' then
    s:=s+[c];
    read (c);
    end;
    for c:='a' to 'z' do
     if c in s  then
      write(c);
    readln;
    readln;
    readln;
   { TODO -oUser -cConsole Main : Insert code here }
end.

прога выводит буквы использованные во всем предложении по порядку. как это исправить?

[Snejnaya]

s: set of 'a'..'z';

ты объявила множество всех строчных букв. где множество гласных?

if c <>',' then
s:=s+[c];
read (c);

этой записью ты сформировала строку без запятых из всех слов предложения "стык в стык". Теперь программа не знает и, главное, не имеет возможности определить, где заканчивается одно слово и начинается следующее

программа делает именно то. что ты ей задала

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

для начала исправить множество, перечислив в нем перебором все гласные.
Затем оргазизовать цикл в духе
while(c<>'.') do
s:=[];
read(c);
begin
while(c<>',') do
begin
s:=s+c;
read(c);
end;
//здесь вывод всех гласных ОДНОГО слова
end;

Т.е. каждое слово записывается в s, анализируется, затем s обнуляется и считывается следующее слово

[OKSANO4KA]

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

ты объявила множество всех строчных букв. где множество гласных?
...
Т.е. каждое слово записывается в s, анализируется, затем s обнуляется и считывается следующее слово

можно пожалуйста поподробней задание множества гласных? вот так?
s:set of 'a'..'y';
или я не знаю как(

[Utkin]

s:set of char;

а потом s:=['a', 'e' и так далее все гласные];

[OKSANO4KA]

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

s:set of char;

а потом s:=['a', 'e' и так далее все гласные];

это надо писать в type или var ?

[Utkin]

s:set of char;

это в var.
А

s:=['a', 'e' и так далее все гласные];

Это уже в коде перед

writeln ('vvedite clova');

ну или в любом другом месте, но до первого использования s.

[OKSANO4KA]

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

s:set of char;

это в var.
А

Это уже в коде перед

writeln ('vvedite clova');

ну или в любом другом месте, но до первого использования s.

а можете помочь составить конечный вариант а то я запуталась мне ошибки пишет

[Snejnaya]

var
s: set of char;
var ch, c='a': char;//что угодно, но не '.'
var str, str_obw:string;//сюда будем складывать гласные
var i,j:integer;

begin
s:=['a','e','i', 'o','u','y'];
writeln('vvedite slova');

while(c<>'.') do
str:="";
str_obw:="";
read(c);
begin
while(c<>',') do
begin
 if (c in s) then str:=str+c;
read(c);
end;
//теперь в строке str лежат все гласные. надо их отсортировать...
for i:=1 to length(str) do
     begin
     for j:=i+1 to length(str) do
         begin
         if(str[i]<str[j]) then
                   begin
                   ch:=str[i];
                   str[i]:=str[j];
                   str[j]:=ch;
                   end;
         end;
     end;//отсортировали
str_obw:=str_obw+str+' ';

end;

//выводим str_obw - в ней отсортированный гласные каждого слова, разделенные пробелом
writeln(str_obw);
end.

[OKSANO4KA]

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

var
s: set of char;
var ch, c='a': char;//что угодно, но не '.'
var str, str_obw:string;//сюда будем складывать гласные
var i,j:integer;

 не понятно задание переменных... это на делфи??? нужно писать вар каждый раз?
    


 end;//отсортировали
str_obw:=str_obw+str+' ';
end; 
//выводим str_obw - в ней отсортированный гласные каждого слова, разделенные пробелом
writeln(str_obw);
end.

а можно разделять не пробелом а запятой??

[Snejnaya]

можно, какая разница, просто str_obw:=str_obw+str+',';