Найти строку, в которой удалены все символы, совпадающие с первым - PascalABC.NET
Формулировка задачи:
Разработать функцию DelFirst(const S:string):string, возвращающую строку, в которой удалены все символы, совпадающие с первым в строке S (также и первый символ). С помощью данной функции у каждой строки из введенного набора удалить все символы, совпадающие с первым.
Решение задачи: «Найти строку, в которой удалены все символы, совпадающие с первым»
textual
Листинг программы
function DelFirst(const s:string):string; begin var s1:string:=s; while pos(s[1],s1)>0 do delete(s1,pos(s[1],s1),1); Result:=s1; end; begin var l:=new list<string>; writeln('Введите набор из 5 предложений:'); for i:integer:=1 to 5 do l.Add(delfirst(readstring())); foreach s:string in l do writeln(s); end.
Объяснение кода листинга программы
- Создается функция DelFirst, которая принимает строку s и возвращает новую строку, в которой удалены все символы, совпадающие с первым символом строки s.
- В функции объявляется вспомогательная строка s1, которая инициализируется значением переменной s.
- В цикле while происходит удаление всех символов, совпадающих с первым символом строки s, из строки s1.
- Результатом работы функции является строка s1.
- В основной части программы создается список l для хранения предложений.
- В цикле for запрашивается набор из 5 предложений и добавляется в список l с помощью метода Add.
- С помощью цикла foreach выводятся все предложения из списка l.