…

Результат на экране: алгоритм

delete(s,i,n) ;

- удалить из строки s с позиции i - n символов. Например:

…

s:='алгоритм'; delete(s,1,4); writeln(s);

…

Результат на экране: ритм

i,n - в процедурах insert и delete обязательно должны присутствовать в строке s. Иначе - сообщение об ошибке.

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

Задача.

В произвольном тексте заменить все сочетания “чя” на “ча”. Таблица идентификаторов

№	Наименование переменной	Обозначения в программе
1	Текст	Text
2	Индекс массива	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(‘Преобразованный текст’);

102

writeln(text);

readln;

end.

Задача.

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

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

№	Наименование переменной	Обозначения в программе
1	Текст	text
2	Слово	word
3	Индекс массива	i
4	Количество замен	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.

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

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

103