Найти строку, в которой удалены все символы, совпадающие с первым - 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.

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

  1. Создается функция DelFirst, которая принимает строку s и возвращает новую строку, в которой удалены все символы, совпадающие с первым символом строки s.
  2. В функции объявляется вспомогательная строка s1, которая инициализируется значением переменной s.
  3. В цикле while происходит удаление всех символов, совпадающих с первым символом строки s, из строки s1.
  4. Результатом работы функции является строка s1.
  5. В основной части программы создается список l для хранения предложений.
  6. В цикле for запрашивается набор из 5 предложений и добавляется в список l с помощью метода Add.
  7. С помощью цикла foreach выводятся все предложения из списка l.

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

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