Примеры обработки строковых переменных

Задача.

В произвольном тексте заменить все сочетания «чя» на «ча».

Таблица идентификаторов

№	Наименование переменной	Обозначения в программе
	Текст	Text
	Индекс массива	i

Program word_text;

Uses crt;

var

text:string;

i:integer;

begin

clrscr;

writeln(‘Введите текст’);

readln(text);

for i:=1 to length(text)-1 do

if copy(text,i,2)=‘чя’ then

begin

delete (text,i+1,1);

insert (‘a’,text,i+1);

end;

writeln(‘Преобразованный текст’);

writeln(text);

readln;

end.

Задача.

В произвольном тексте (text) в слове word заменить первую букву на заглавную и подсчитать количество замен (текст латинский).

Таблица идентификаторов

№	Наименование переменной	Обозначения в программе
	Текст	text
	Слово	word
	Индекс массива	i
	Количество замен	s

Program word_text1;

Uses crt;

var

text,word:string;

s,i:integer;

begin

writeln(‘Введите текст’);

readln(text);

s:=0;

writeln(‘Введите слово’);

readln(word);

for i:=1 to length(text)-lenght(word)+1 do

if copy(text,i,length(word))=word then

begin

s:=s+1;

text[i]:=upcase(text[i]);

end;

writeln (s);

readln;

end.

Задача.

Заменить в произвольном тексте все слова word1 на слово word2.

Таблица идентификаторов

№	Наименование переменной	Обозначения в программе
	Текст	text
	Слова первое	word1
	Слова второе	word2
	Индекс	i

Program word_text2;

var

text,word1,word2:string;

i:integer;

begin

writeln(‘Введите исходный текст’);

readln text);

writeln(‘Введите первое слово’);

readln(word1);

writeln(‘Введите второе слово’);

readln(word2);

repeat

i:=pos(word1,text)

if i<>0 then

begin

delete(text,i,length(word1));

insert(word2,text,i);

end;

until i=0;

writeln(‘Преобразованный текст’);

writeln(text);

readln;

end.

Вопросы для самоконтроля