Заменить все вхождения символа С1 в строку S на С2 - Pascal
Формулировка задачи:
Дана символьная строка S, символы С[1],C[2]. Заменить все вхождения символа С1в строку S на С2.
Пожаалуйста)
Решение задачи: «Заменить все вхождения символа С1 в строку S на С2»
textual
Листинг программы
Var s:string;
c1,c2:char;
Begin
write('Введите строку S: ');
readln(s);
write('Введите символ C1: ');
readln(c1);
write('Введите символ C2: ');
readln(c2);
While pos(c1, s) > 0 do
s[pos(c1, s)]:=c2;
writeln('Полученная строка = ',s);
End.
Объяснение кода листинга программы
s:переменная типа string для хранения строкиc1:переменная типа char для хранения символа C1c2:переменная типа char для хранения символа C2write('Введите строку S: '):вывод сообщения для пользователя с просьбой ввести строкуreadln(s):ввод строки пользователем и сохранение в переменную swrite('Введите символ C1: '):вывод сообщения для пользователя с просьбой ввести символ C1readln(c1):ввод символа C1 пользователем и сохранение в переменную c1write('Введите символ C2: '):вывод сообщения для пользователя с просьбой ввести символ C2readln(c2):ввод символа C2 пользователем и сохранение в переменную c2while pos(c1, s) > 0 do:начало цикла, который выполняется до тех пор, пока символ C1 присутствует в строке Ss[pos(c1, s)]:=c2;:замена всех вхождений символа C1 на символ C2 в строке Swriteln('Полученная строка = ', s);:вывод полученной строки после выполнения заменыEnd.:конец программы