Использование множеств - 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.

Объяснение кода листинга программы

  1. Объявлены три переменные: a, b и s типа set of 'a'..'z', а также переменная c типа Char.
  2. Вводится строка s с помощью функции ReadLn.
  3. Происходит итерация по каждому символу в строке s.
  4. Если символ c встречается в множестве a, то он включается в множество b с помощью функции Include(c,b).
  5. Если символ c не встречается в множестве a, то он включается в множество b с помощью функции Include(c,a).
  6. Выводится строка '[' и происходит итерация по каждому символу в множестве b.
  7. Для каждого символа c выводится его значение c:2.
  8. Выводится символ ']'.
  9. Завершается выполнение программы.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы