Из данного текста удалить все удвоенные буквы - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Из данного текста удалить все удвоенные буквы(например, аккумулятор, нужно убрать КК)

Решение задачи: «Из данного текста удалить все удвоенные буквы»

textual
Листинг программы
  1. var
  2.   s:widestring;
  3.   i:dword;
  4. begin
  5.   writeln('input text:');
  6.   readln(s);  
  7.   i:=0;
  8.   while i<length(s) do
  9.   begin
  10.     if s[i]=s[i+1] then delete(s,i,2);
  11.     inc(i);
  12.   end;
  13.   writeln(s);
  14.   readln;
  15. end.

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

В данном коде задача состоит в удалении всех удвоенных букв из введённого текста.

  1. Объявлены две переменные: s типа widestring и i типа dword.
  2. Вводится текст с помощью функции readln(s).
  3. Переменная i инициализируется значением 0.
  4. В цикле while происходит проверка каждого символа в тексте. Если текущий символ равен следующему за ним, то с помощью функции delete(s,i,2) удаляются два символа.
  5. Переменная i увеличивается на 1.
  6. После завершения цикла выводится изменённый текст с помощью функции writeln(s).
  7. Запускается функция readln для чтения команды или ввода данных.
  8. Код завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы