Автор разработки: Камалова Нафиса Ахатовна, учитель информатики МАОУ «СОШ 5» МО «ЛМР» РТ 2012 – 2013 учебный год Автор разработки: Камалова Нафиса Ахатовна, учитель информатики МАОУ «СОШ 5» МО «ЛМР» РТ 2012 – 2013 учебный год Обработка строк с использованием подпрограмм k:= Pos (W, St); k:= Pos (W, St); Delete (St, k, Length (W)); Delete (St, k, Length (W)); Insert (V, St, k) Insert (V, St, k) k:= Pos (W, St); k:= Pos (W, St); Delete (St, k, Length (W)); Delete (St, k, Length (W)); Insert (V, St, k) Insert (V, St, k)

СодержаниеСодержание

Str1:=ABCDEF;Str2:=abcdef; Insert (Str1, Str2, 3); Результат:Str1:=ABCDEF;Str2:=abcdef; Результат: Str1:=ABCDEFGH; Delete (Str1, 3, 4); Writeln (Str1); Результат:Str1:=ABCDEFGH; Delete (Str1, 3, 4); Writeln (Str1); Результат: Str1:=CDEStr2:=ABCDEFGH; K1:= Pos (Str1, Str2); K2:= Pos (Str2, Str1); Результат:Str1:=CDEStr2:=ABCDEFGH; K1:= Pos (Str1, Str2); K2:= Pos (Str2, Str1); Результат: Str1:=ABCDEFGH; Str2:= Мама мыла раму; K1:= Length (Str1); K2:= Length(Str2); Результат:Str1:=ABCDEFGH; Str2:= Мама мыла раму; K1:= Length (Str1); K2:= Length(Str2); Результат: Str2 = abABCDEFcdef Str1=ABGH K1=3;K2=0 K1 = 8; K2 = 15

Блок-схема решения задачи: Ввод S Delete (S, i, 1) Вывод S Конец i Length (S) i := 2 Начало Да Нет Задача. Дана строка символов. Удалить из нее символы, расположенные на четных местах. i := i + 1 Ввод S Delete (S, i, 1) Вывод S Конец i Length (S) i := 2 Начало

Программа: Program Example; Var S: String; i: Integer; Begin Write (S=); Readln (S); i := 2; While i

Задача 1. Удалить из первой строки все символы k, из второй – символы a. Задача 1. Удалить из первой строки все символы k, из второй – символы a. Основной алгоритм Del (s, c) i Length(S) S[ i ] = c Delete (S[i], i, 1) i := i + 1 Конец Начало Ввод S1 Del (S1, k) Вывод S1 Ввод S2 Del (S2, a) Вывод S2 Конец i := i + 1 Да Нет

Программа:Программа: Program Example_1; Var S1, S2: String; Procedure Del (Var S: String; c: Char); Var i: Integer; {i – локальный параметр} Begin i := 1; While i

Задача 2. Даны две строки. Встречаются ли в первой строке буква a и буква o, а во второй строке – буква d и буква h? Задача 2. Даны две строки. Встречаются ли в первой строке буква a и буква o, а во второй строке – буква d и буква h? Вспомогательный алгоритм Основной алгоритм i

Function Opr (S: String; q1, q2: Char): Boolean; Var i, k1, k2: Integer; t: Boolean; Begin i:=1; t:=false; k1:=0; k2:=0; While i

K:= Pos (W, St) Delete (S,k, Length (w)) Insert (V, St, k) Конец Stroki (W,V,St) Pos (W, V) 0 Ввод S Stroki (W,V,S) Вывод S Ввод W Начало Конец Ввод V Вспомогательный алгоритм Основной алгоритм Да Нет Задача 3. Заменить все вхождения подстроки W в строке S на подстроку V.

Программа: Program Example_3; Var W, S, V: String; Procedure Ins (W,V: String; Var St: String); Var k: Byte; Begin While Pos (W, St)0 Do Begin k:= Pos (W, St); Delete (St, k, Length (W)); Insert (V, St, k) End; Begin Writeln (Введите строки); Readln (W); Readln (S); Readln (V); {Вызов процедуры} Ins (W, V, S); {Вызов процедуры} Writeln (S=, S); Readln End. Program Example_3; Var W, S, V: String; Procedure Ins (W,V: String; Var St: String); Var k: Byte; Begin While Pos (W, St)0 Do Begin k:= Pos (W, St); Delete (St, k, Length (W)); Insert (V, St, k) End; Begin Writeln (Введите строки); Readln (W); Readln (S); Readln (V); {Вызов процедуры} Ins (W, V, S); {Вызов процедуры} Writeln (S=, S); Readln End.

Вариант 2. Даны две строки. В первой строке заменить сочетание no на сочетание da, во второй строке – сочетание as на сочетание ne. Вариант 2. Даны две строки. В первой строке заменить сочетание no на сочетание da, во второй строке – сочетание as на сочетание ne. Вариант 1. Даны две строки символов. Проверить, содержится ли в первой строке символ-цифра, во второй строке – строчная латинская буква. Вариант 1. Даны две строки символов. Проверить, содержится ли в первой строке символ-цифра, во второй строке – строчная латинская буква. Вариант 3. Даны две строки. Какая буква встречается раньше: a или o в первой строке, и w илиu во второй? Вариант 3. Даны две строки. Какая буква встречается раньше: a или o в первой строке, и w илиu во второй? Вариант 4. Даны две строки символов. В первой строке перед сочетанием fo вставить символ r, во второй строке – перед сочетаниемgo вставить символ t. Вариант 4. Даны две строки символов. В первой строке перед сочетанием fo вставить символ r, во второй строке – перед сочетаниемgo вставить символ t.

Задача. Подсчитать сумму цифр, встречающихся в двух строках, состоящих из символов-букв и символов-цифр. Задача.