Есть программа, выводящая недостающие цифры, введенные с клавиатуры, дополнить ее чтобы она также выводила, недостающие латинские буквы - 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.

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

  1. Программа начинается с объявления переменных: s (строка), i (целое число), c (символ), m (множество символов).
  2. Затем программа выводит сообщение «введите строку: », чтобы пользователь мог ввести строку.
  3. Далее, используется оператор read для чтения строки из ввода пользователя.
  4. Создается множество m, которое содержит все возможные символы от '0' до '9' и от 'A' до 'Z', а также от 'a' до 'z'.
  5. Затем, в цикле for происходит следующее:
    • i инициализируется значением 1, что соответствует первому символу ввода пользователя.
    • m обновляется, исключая текущий символ из множества. Это делается с помощью оператора m := m - [s[i]];.
    • Цикл выполняется до тех пор, пока длина ввода пользователя не станет равной 0.
  6. После этого, в цикле for происходит следующее:
    • Для каждого символа от '0' до 'z' проверяется, содержится ли он в множестве m.
    • Если символ содержится в m, то он выводится на экран.
  7. Программа заканчивается.

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

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