Непонятно условие о множествах - Turbo Pascal
Формулировка задачи:
народ обьясните плиз, просто непонял само условие.
сконструировать множество, элементами которых есть буквы 'а'..'т' . Вывести их на экран, предвидить ввод з клавиатуры еще каких небудь символов и определить принадлежность данного элемента новому множеству!
вот мой код:
н в принципе работает, все выводит, и буквы от а до т и новые элементы.
но вот непонимаю этого:
определить принадлежность данного элемента новому множеству! мне еще один If условие нужно дописать до свого кода?? чтобы оно игнорировало какие то например символы? не напишу же я просто If symbol in s then writeln('mnozhestvo prinadlezhit'); Поясните плиз
Решение задачи: «Непонятно условие о множествах»
textual
Листинг программы
var s: set of char; symbol: char; begin s := [#1072..#1090]; repeat writeln('vvedi simvoli do mnozhini'); readln(symbol); s := s + [symbol]; until symbol = '='; writeln('Введите символ для проверки:'); readln(symbol); if symbol in s then writeln(symbol, ' принадлежит множеству: ', s); end.
Объяснение кода листинга программы
- Переменная
s
объявлена какset of char
, что означает, что она представляет собой множество символов. - Символ
#1072..#1090
представляет собой диапазон символов в кодировке ASCII. Это означает, что в этом диапазоне не будет символов, которые не принадлежат множествуs
. - В цикле
repeat
считывается символ от пользователя и добавляется в множествоs
с помощью оператора+
. - Цикл продолжается до тех пор, пока введенный символ не равен символу `='.
- После этого пользователю предлагается ввести символ для проверки.
- С помощью оператора
in
проверяется, содержится ли введенный символ в множествеs
. - Если символ содержится в множестве
s
, то выводится сообщение с этим символом и множествомs
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д