Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2011, 19:26   #1
00884
Новичок
Джуниор
 
Регистрация: 24.05.2011
Сообщений: 1
По умолчанию Множества. Поиск гласных букв.

Дано предложение, состоящее из латинских букв. Вывести все гласные буквы, которые не входят более чем в одно слово.
00884 вне форума Ответить с цитированием
Старый 25.05.2011, 21:34   #2
Kovax
Пользователь
 
Регистрация: 21.12.2010
Сообщений: 28
По умолчанию

Вот отрезок удаления гласных из множества:

Код:
program pro8;
var
 s: string;
 glas: set of char;
 i: integer;
begin
 glas:= ['a','o','i','u','y','e'];
 writeln('Vvedite stroku: ');
 readln(s);
 i:= 1;
 repeat
  begin
   if s[i] in glas then
    Delete(s,i,1)
   else inc(i);
  end;
 until i = Length(s);
 writeln('Ispravlennui stroku: ', s);
 readln;
end.
Kovax вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Равное числом гласных и согласных букв X@OC Общие вопросы по Java, Java SE, Kotlin 4 17.04.2012 00:04
Перестановка гласных букв в обратном порядке fenix163 Помощь студентам 22 01.03.2011 00:58
Подсчитать кол-во гласных букв Владимир_король Помощь студентам 1 10.05.2010 13:08
поиск латинских гласных букв в строке KoFeMaN Помощь студентам 7 12.12.2009 17:24