Как решить эту задачу с помощью множеств?
Множества |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Множества |
Terminator |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Помогите!!! :o
Цитата Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят хотя бы в одно слово. Как решить эту задачу с помощью множеств? -------------------- I'll be back
|
Terminator |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Забыл сказать, что звонкие согласные - это б в г д ж з ;)
-------------------- I'll be back
|
volvo |
Сообщение
#3
|
Гость |
Terminator
Что-то такого типа ... Код const ToFind = ['б', 'в', 'г', 'д', 'ж', 'з']; var Found: set of char; s: string; i: byte; lett: char; begin write('s = '); readln(s); for i := 1 to length(s) do if s[i] in ToFind Then Found := Found + [s[i]]; For lett := 'а' to 'я' do if lett in Found then write(lett, ' '); end. Сообщение отредактировано: volvo - |
Terminator |
Сообщение
#4
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Цитата Что-то такого типа ... Почему-то не работает! -------------------- I'll be back
|
volvo |
Сообщение
#5
|
Гость |
А что, определить переменные так трудно самому? Смотри предыдущий пост, я исправил...
|
Terminator |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Thank you very much! :D
-------------------- I'll be back
|
Текстовая версия | 11.01.2025 22:38 |