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

Задача.

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

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

№	Наименование переменной	Обозначения в программе
	Текст	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.

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

1. Какие типы данных используются для обработки текста?
2. Сколько байт памяти занимает символьная переменная?
3. Какие операции допустимы над символьными переменными?
4. Перечислите функции обработки символьных переменных?
5. Что такое строка?
6. Сколько байт памяти занимает строковая переменная?
7. Какие операции допустимы над строковыми переменными?
8. Перечислите функции и процедуры обработки строковых переменных?
9. Как можно обратиться к отдельным символам строки?