Урок № 19.

Практическая работа №11 "Решение задач с использованием операций над строками."

Теоретическая часть.

Проверьте себя, запишите результат для каждого оператора.

Program str1; Var s, s1,s2 : String; k, u, m : Integer; Begin s:=’мама мыла раму’; s1 := ‘кошка моется сама’; k := Length (s); Delete (s,5,6); u:= pos (‘м’,s1); Insert(‘ ’+s1[5]+s1[2]+’ ‘,s,u); m := length (s); s2:=Copy (s,3,2); End.	Program str2; Var s, s1, s2 : String; k, u, m : Integer; Begin s:=’мама мыла раму’; s1 := ‘кошка ленивая, поэтому спит’; k := Length (s); Delete (s,6,5); u:= pos (‘л’,s1); Insert(‘ ’+s1[5]+s1[2]+’ ‘,s, u); m := length (s); End.	Program str3; Var s, s1, s2 : String; k, u, m : Integer; Begin s:=’мама мыла раму’; s1 := ‘дождик ее испортил’; k := Length (s); Delete (s,5,6); u:= pos (‘е’,s1); Insert (‘ ’+ s1[5]+s1[2]+’ ‘,s, u); m := length (s); s2:=Copy (s,3,5); End.

Практическая часть.

Решите задачи.

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

2. Удалить из строки, введенной с клавиатуры все точки, перед которыми стоят пробелы.

3. Вставить в строку, введенную с клавиатуры, пробелы после запятых.

4. Удалить из строки, введенной с клавиатуры, пробелы, если перед ними стоит еще по одному пробелу.

1	2
3	4

Домашнее задание:

1. Повторить все операторы.

2. Ввести с клавиатуры строку s. Получить еще 2 строки s1 и s2, в которых будут храниться вторая и третья трети строки s. в первой строке оставить первую треть строки.

3. Ввести с клавиатуры строку s. Получить еще 2 строки s1 и s2, в которых будут храниться первой и второе слова строки s. В строке s этих слов содержаться не должно.

3

4