Множества. Вывести все гласные буквы, входящие в заданное предложение

@HotSouse · Регистрация: 01.04.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста написать программу:
Дано предложение состоящее из латинских букв. Вывести все гласные буквы, входящие в это предложение.
Нужно написать ее так, чтобы выводились буквы без повторений. Например, "мама мыла раму", выводит "а,ы,у".

@thexqn · 05.05.2010, 21:06

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const SetGl = ['а', 'о', 'у', 'ы', 'э', 'я', 'ё', 'ю', 'и', 'е'];
      space = ' ';
var
  str: string;
  SetRes: set of char;
  i: integer;
  ch: char;
 
begin
 write('Введите строку: ');
 readln(str);
 SetRes := [];
 for i := 1 to length(str) do
   if str[i] in SetGl then SetRes := SetRes + [str[i]];
 
   writeln;
 
 for ch := #0 to #255 do
   if ch in SetRes then write(ch, space);
readln
end.

@Inadequate · 05.05.2010, 21:13

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

Дано предложение состоящее из латинских букв

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

Например, "мама мыла раму", выводит "а,ы,у"

Хорошие латинские буквы.

thexqn, а в чем смысл константы space ? Разве не проще и логичнее прописывать в WriteLn() три символа, а не пять ?

Да и переменная ch не нужна. Для вывода множества можно воспользоваться chr() и уже описанной переменной i.

@HotSouse · 05.05.2010, 21:13 **[ТС]**

Спасибо большое!

@thexqn · 05.05.2010, 21:19

Inadequate, Проще. И логичнее. Спасибо за подсказку

@HotSouse · 05.05.2010, 21:24 **[ТС]**

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

Да и переменная ch не нужна. Для вывода множества можно воспользоваться chr() и уже описанной переменной i.

А как это в программе вводится?

@Inadequate · 05.05.2010, 21:30

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

А как это в программе вводится?

Если учитывать условие, что нужна только латиница, то цикл было бы правильнее сделать таким

Pascal
1
2
3
for i := ord('A') to ord('z') do
  if chr(i) in SetRes then
    Write(chr(i), ' ');

@HotSouse · 05.05.2010, 21:36 **[ТС]**

Все понятно, спасибо.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@HotSouse 0 / 0 / 0 Регистрация: 01.04.2010 Сообщений: 19

	Множества. Вывести все гласные буквы, входящие в заданное предложение 05.05.2010, 20:58. Показов 4036. Ответов 7 Метки нет (Все метки) Здравствуйте, помогите пожалуйста написать программу: Дано предложение состоящее из латинских букв. Вывести все гласные буквы, входящие в это предложение. Нужно написать ее так, чтобы выводились буквы без повторений. Например, "мама мыла раму", выводит "а,ы,у". 0

@HotSouse 0 / 0 / 0 Регистрация: 01.04.2010 Сообщений: 19
	05.05.2010, 21:13 [ТС]
	Спасибо большое! 0

@thexqn 64 / 64 / 44 Регистрация: 15.11.2009 Сообщений: 247
	05.05.2010, 21:19
	Inadequate, Проще. И логичнее. Спасибо за подсказку 1

@HotSouse 0 / 0 / 0 Регистрация: 01.04.2010 Сообщений: 19
	05.05.2010, 21:36 [ТС]
	Все понятно, спасибо. 0