Создать программу, которая будет удалять символы введенные с клавиатуры - Pascal ABC
Формулировка задачи:
Доброго времени суток.
Мне нужна программа, которая удаляла бы введенные с клавиатуры символы.
Что именно мне нужно:
Есть ссылка - https !://pr !i!vnote .com/ Cf!1n QVw h#!r tOMdH!P e3.
Мне нужно удалить из неё "!" и " " (пробелы).
Сделайте, если не сложно и не могли бы Вы объяснить как потом юзать написанный Вами код :c
UP!
Решение задачи: «Создать программу, которая будет удалять символы введенные с клавиатуры»
textual
Листинг программы
begin var I:= ReadString('Введите символы, которые необходимо удалить: '); //var I:= '! '; //Строка недопустимых символов var Istr:= ReadString('Введите строку, из которой удалить необходимо удалить символы: '); //Входная строка var otv:= Istr.Where(x -> Pos(x,I,1) = 0); //Записывает в переменную otv, значения входной строки, если в ней нет недопустимых символов otv.Print(''); //Вывод ответа на экран Writeln(); end.
Объяснение кода листинга программы
- var I := ReadString('Введите символы, которые необходимо удалить: '); Символы, которые необходимо удалить, считываются в переменную I.
- var Istr := ReadString('Введите строку, из которой удалить необходимо удалить символы: '); Входная строка, из которой нужно удалить символы, считывается в переменную Istr.
- var otv := Istr.Where(x -> Pos(x, I, 1) = 0); В переменной otv хранятся значения входной строки, в которых нет недопустимых символов. Функция Pos() используется для проверки наличия символа в строке.
- otv.Print(''); Выводится ответ на экран.
- Writeln(); Выводится символ новой строки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д