Пример. Пусть st - строка типа string[6] и st=’klmn’, S – строка string[5]

Пусть st - строка типа string[6] и st=’klmn’, S – строка string[5]. x - переменная целого типа, fs – строкового типа.

Пример.Дано слово ’золотопромышленник’, из которого постройте слова ’золото’, ’промышленник’, ’пленник’, ’мышление’, используя процедуры и функции обработки строк.

Var S, rs1, rs2, rs3, rs4, temp:string;

Begin

S:= ’золотопромышленник’;

Rs1:=Copy(s,1,6); {выделим слово ‘золото’}

Rs2:=Copy(s,length(rsl)+1,length(s)-length(rsl));{слово ‘промышленник’}

Temp:=S;

Delete(temp,1,12); {оставим часть слова ’ленник’}

Rs3:=S[7]+temp; {построим слово ‘пленник’}

Rs4:=S;

Delete(rs4,1,9); {оставим часть слова ‘мышленник’)

Delete(rs4,7,1); {оставим часть слова ‘мышленик’}

Rs4[length(rs4)]:=rs4[5]; {заменим ‘к’ на ‘е’, получим ‘мышление’}

Writeln(rs1,’’,rs2,’’,rs3,’’,rs4,);

End.

Пример.Дан текст, состоящий из слов, разделенных одним пробелом. Удалите все вхождения данного слова в строку.

Var K, M:byte; Sl, Wr:string;

Begin

Writeln(‘введите строку текста из слов’); Readln(Sl);

Sl:=’ ’+ Sl +’ ’;

Writeln(‘введите удаляемое слово’); Readln(Wr);

Wr:=’ ‘ + Wr + ‘ ‘ ;

K:=length(Wr); {определяем длину слова}

Repeat

M:=pos(Wr,Sl); {номер позиции удаляемого слова}

If (M<>0) then delete(Sl,M + 1,K-1) {удаляем слово из текста}

Until M:=0

Writeln(Sl)

End.

Пример.Дана слово. Необходимо определить, является ли это слово палиндромом. (потоп, Анна)

Var D, G:byte; Tet:string; F:boolean;

Begin

Writeln(‘введите слово’); Readln(Tet);

D:=length(Tet); {определим длину слова}

F:=true; {признак, фиксирующий, что слово является палиндромом}

G:= D div 2;

While G>=1 do Begin

If Tet[G]<>Tet[d – G + 1] then F:=false;

G:=G – 1

End;

If F Then Writeln(‘ слово является палиндромом’)

Else Writeln(‘слово не является палиндромом’)

End.

Задания для практической работы.

Составить программы на языке Pascal.

1. Подсчитать, сколько раз в заданном тексте встречается заданный символ.

2. Заменить в заданном тексте буквосочетание "min" на "ma".

3. В заданном тексте подсчитать общее количество букв "x" и "y".

4. Удвоить каждую букву в заданном тексте.

5. Вычеркнуть из заданного слова все буквы "а".

6. Заданную строку А переписать в обратном порядке в строку В.

7. В заданной последовательности слов найти все слова, начинающиеся с заданной приставки.

8. Найти самое длинное и самое короткое слово в заданном предложении.

9. В заданном тексте подсчитать наибольшее количество подряд идущих пробелов.