Есть программа, выводящая недостающие цифры, введенные с клавиатуры, дополнить ее чтобы она также выводила, недостающие латинские буквы - Pascal ABC
Формулировка задачи:
Есть программа, выводящая недостающие цифры, введенные с клавиатуры, дополнить ее чтобы она также выводила, недостающие латинские буквы.ДОПОЛНИТЕЛЬНЫЕ СТРОКИ ИСПОЛЬЗОВАТЬ НЕЛЬЗЯ!!!
Решение задачи: «Есть программа, выводящая недостающие цифры, введенные с клавиатуры, дополнить ее чтобы она также выводила, недостающие латинские буквы»
textual
Листинг программы
program variant; uses crt; var s: string; i: integer; c: char; m:set of char; begin write('введите строку: '); read(s); m:=['0'..'9','A'..'Z','a'..'z']; for i := 1 to length(s) do m:=m-[s[i]]; for c:='0' to 'z' do if c in m then write(c) end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных: s (строка), i (целое число), c (символ), m (множество символов).
- Затем программа выводит сообщение «введите строку: », чтобы пользователь мог ввести строку.
- Далее, используется оператор read для чтения строки из ввода пользователя.
- Создается множество m, которое содержит все возможные символы от '0' до '9' и от 'A' до 'Z', а также от 'a' до 'z'.
- Затем, в цикле for происходит следующее:
- i инициализируется значением 1, что соответствует первому символу ввода пользователя.
- m обновляется, исключая текущий символ из множества. Это делается с помощью оператора m := m - [s[i]];.
- Цикл выполняется до тех пор, пока длина ввода пользователя не станет равной 0.
- После этого, в цикле for происходит следующее:
- Для каждого символа от '0' до 'z' проверяется, содержится ли он в множестве m.
- Если символ содержится в m, то он выводится на экран.
- Программа заканчивается.