Использование множеств - Pascal (251098)
Формулировка задачи:
Исходными данными для программы является текст - слова из строчных латинских букв. Построить множество, состоящее из букв, которые входят в текст не менее двух раз.
Напишите код программы, пожалуйста
Решение задачи: «Использование множеств»
textual
Листинг программы
var a, b: set of 'a'..'z'; s: String; c: Char; begin ReadLn(s); for c in s do if c in a then Include(c,b) else Include(c,a); Write('['); for c in b do Write(c:2); WriteLn(' ]'); end.
Объяснение кода листинга программы
- Объявлены три переменные: a, b и s типа set of 'a'..'z', а также переменная c типа Char.
- Вводится строка s с помощью функции ReadLn.
- Происходит итерация по каждому символу в строке s.
- Если символ c встречается в множестве a, то он включается в множество b с помощью функции Include(c,b).
- Если символ c не встречается в множестве a, то он включается в множество b с помощью функции Include(c,a).
- Выводится строка '[' и происходит итерация по каждому символу в множестве b.
- Для каждого символа c выводится его значение c:2.
- Выводится символ ']'.
- Завершается выполнение программы.