Напишите программу, которая заменяет во всей строке одну последовательность символов на другую - Turbo Pascal
Формулировка задачи:
Напишите программу, которая заменяет во всей строке одну последовательность символов на другую.
Я пыталась сделать что-то такое,
но, кажется мне, что это не правильно...
Листинг программы
- var
- a: string;
- b,c,e: integer;
- d:char;
- begin
- write('Введите строку:'); read(a);
- write('Что меняем:'); read(c);
- write('Чем заменить:'); read(d);
- for b:=1 to length(a) do begin
- e:=pos('c',a);
- a[e]:=d;
- end;
- writeln('Результат: ',a);
- end.
Решение задачи: «Напишите программу, которая заменяет во всей строке одну последовательность символов на другую»
textual
Листинг программы
- var a,b,c: string;
- i: byte;
- begin
- write('Введите строку:'); readln(a);
- write('Что меняем:'); readln(b);
- write('Чем заменить:'); readln(c);
- for i:=1 to length(a) do
- if copy(a,i,length(b))=b then
- begin
- delete(a,i,length(b));
- insert(c,a,i)
- end;
- writeln('Результат:');
- writeln(a)
- end.
Объяснение кода листинга программы
- В начале объявляются переменные a, b и c типа string, а также переменная i типа byte.
- Затем выводится сообщение для ввода строки, которое читается в переменную a.
- Выводится сообщение для ввода того, что нужно заменить, которое читается в переменную b.
- Выводится сообщение для ввода того, чем нужно заменить, которое читается в переменную c.
- Запускается цикл for, который проходит по каждому символу в строке a.
- Внутри цикла проверяется условие: если текущий символ в строке a совпадает с символом из строки b (то есть копирование происходит), то удаляется этот символ из строки a и вставляется символ из строки c на это же место.
- После выполнения всех проверок выводится итоговая строка a.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д