Напишите программу, которая заменяет во всей строке одну последовательность символов на другую - Turbo Pascal

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

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

Напишите программу, которая заменяет во всей строке одну последовательность символов на другую. Я пыталась сделать что-то такое,
Листинг программы
  1. var
  2. a: string;
  3. b,c,e: integer;
  4. d:char;
  5. begin
  6. write('Введите строку:'); read(a);
  7. write('Что меняем:'); read(c);
  8. write('Чем заменить:'); read(d);
  9. for b:=1 to length(a) do begin
  10. e:=pos('c',a);
  11. a[e]:=d;
  12. end;
  13. writeln('Результат: ',a);
  14. end.
но, кажется мне, что это не правильно...

Решение задачи: «Напишите программу, которая заменяет во всей строке одну последовательность символов на другую»

textual
Листинг программы
  1. var a,b,c: string;
  2.     i: byte;
  3. begin
  4. write('Введите строку:'); readln(a);
  5. write('Что меняем:'); readln(b);
  6. write('Чем заменить:'); readln(c);
  7. for i:=1 to length(a) do
  8.  if copy(a,i,length(b))=b then
  9.   begin
  10.    delete(a,i,length(b));
  11.    insert(c,a,i)
  12.   end;
  13. writeln('Результат:');
  14. writeln(a)
  15. end.

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

  1. В начале объявляются переменные a, b и c типа string, а также переменная i типа byte.
  2. Затем выводится сообщение для ввода строки, которое читается в переменную a.
  3. Выводится сообщение для ввода того, что нужно заменить, которое читается в переменную b.
  4. Выводится сообщение для ввода того, чем нужно заменить, которое читается в переменную c.
  5. Запускается цикл for, который проходит по каждому символу в строке a.
  6. Внутри цикла проверяется условие: если текущий символ в строке a совпадает с символом из строки b (то есть копирование происходит), то удаляется этот символ из строки a и вставляется символ из строки c на это же место.
  7. После выполнения всех проверок выводится итоговая строка a.

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


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

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

7   голосов , оценка 3.857 из 5

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

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

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