Из данного текста удалить все удвоенные буквы - Free Pascal
Формулировка задачи:
Из данного текста удалить все удвоенные буквы(например, аккумулятор, нужно убрать КК)
Решение задачи: «Из данного текста удалить все удвоенные буквы»
textual
Листинг программы
- var
- s:widestring;
- i:dword;
- begin
- writeln('input text:');
- readln(s);
- i:=0;
- while i<length(s) do
- begin
- if s[i]=s[i+1] then delete(s,i,2);
- inc(i);
- end;
- writeln(s);
- readln;
- end.
Объяснение кода листинга программы
В данном коде задача состоит в удалении всех удвоенных букв из введённого текста.
- Объявлены две переменные: s типа widestring и i типа dword.
- Вводится текст с помощью функции readln(s).
- Переменная i инициализируется значением 0.
- В цикле while происходит проверка каждого символа в тексте. Если текущий символ равен следующему за ним, то с помощью функции delete(s,i,2) удаляются два символа.
- Переменная i увеличивается на 1.
- После завершения цикла выводится изменённый текст с помощью функции writeln(s).
- Запускается функция readln для чтения команды или ввода данных.
- Код завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д