|
Задача 67.
Составить программу, заменяющую в заданном тексте одну подстроку на другую.
program p48;
uses crt;
var a,b,c:string;
i:integer;
begin
clrscr;
write('Иcx текст a=');readln(a);
write('заменить строку ');readln(b) ;
write('Ha строку ');readln(c) ;
i:=i+1;
repeat
if copy(a,i,length(b)) = b then
a:=copy(a,1,i-1)+c+ copy(a,i+length(b) ,length(a));
i:=i+1;
until i >length(a)- length(b) + 1;
writeln('a=',a);
readln;
end.
{Эту программу можно использовать в разных случаях. Рассмотрим некоторые из них.}
Задача 67a.
Реализовать на компьютере возможность автоматического исправления слова <граматика> (правильно <грамматика>).
{Достаточно воспользоваться предыдущей программой, введя в качестве заменяемого текста слово "граматика", а в качестве заменяющего - "грамматика".}
Задача 67b.
Реализовать на компьютере операцию "вычитание" символьных величин (из введенного текста удаляются все вхождения некоторой строки).
{В задаче 67 надо ввести в качестве заменяющего текста пустую строку.}
Задача 67с.
Реализовать на компьютере замену сокращения "С. п." на словосочетание "Составить программу".
{ В задачет 67 надо ввести в качестве заменяемого текста "С. п.", заменяющего текста "Составить программу". }
Задача 67.
Изменить в романе имя героя с Пьера на Виктора.
{В задачу 67 надо ввести в качестве заменяемого текста слово "Пьер", заменяющего текста - "Виктор", а в качестве исходного - текст романа.}
|
