-
Курсы
-
Другое
Автор разработки: Тургунова Г.
ЕП-10-5Р
2013 г
Обработка строк с использованием подпрограмм
While i <= Length (S) Do
If S[i] = c Then Delete (S, i, 1)
k:= Pos (W, St);
Delete (St, k, Length (W));
Insert (V, St, k)
Begin
If s[i]=q1 Then k1:=k1+1
Else
If s[i]=q2 Then k2:=k2+1
End;
Содержание
Мозговой штурм
Проверка домашнего задания
Изучаем новое
Самостоятельная
работа
Домашнее
задание
Мозговой штурм
Str1:=‘ABCDEF’;
Str2:=‘abcdef’;
Insert (Str1, Str2, 3);
Результат:
Str1:=‘ABCDEFGH’;
Delete (Str1, 3, 4);
Writeln (Str1);
Результат:
Str1:=‘CDE’
Str2:=‘ABCDEFGH’;
K1:= Pos (Str1, Str2);
K2:= Pos (Str2, Str1);
Результат:
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 <= Length (s) Do
Begin
Delete (S, i, 1);
i := i +1;
End;
Writeln (‘S=‘, S);
Readln
End.
Задача. Дана строка символов. Удалить из нее символы, расположенные на четных местах.
Проверка домашнего задания
Исходная строка:
abcdefgh
Итоговая строка:
aceg
Задача 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 <= Length (S) Do
If S[i] = c Then Delete (S, i, 1)
Else i := i + 1;
End;
Begin
Write (‘Введите строку S1: ’);
Readln (S1);
Del (S1, ‘k’); {S1, ‘k’ – фактические параметры}
Writeln (‘S1=‘, S1);
Write (‘Введите строку S2: ’);
Readln (S2);
Del (S2, ‘a’); {S2, ‘a’ – фактические параметры}
Writeln (‘S2= ‘, S2);
Readln
End.
Исходные строки:
askfgkkhjykc
zbandamaakr
Итоговые строки:
asfghjyc
zbndmkr
Изучаем новое
Задача 2.
Даны две строки. Встречаются ли в первой строке буква “a” и буква “o”, а во второй строке – буква “d” и буква “h”?
Вспомогательный алгоритм
Основной алгоритм
i <= длина (S)
S[i] = q1
K2 := k2 + 1
(k1<>0) and (k2<>0
t := True
Opr := t
Конец
S[i] = q2
K1 := k1 + 1
Конец
Opr (s,q1,q2)
i := 1
t := False
K1 := 0
K2 := 0
Вывод t1, t2
Начало
Ввод S1, S2
t1 := Opr (S1, ‘a’, ‘o’)
t2 :=Opr (S2, ‘d’, ‘h’)
Да
Да
Да
Нет
Нет
Нет
Изучаем
новое
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<= Length (s) Do
Begin
If s[i]=q1 Then k1:=k1+1
Else
If s[i]=q2 Then k2:=k2+1
End;
If (k1<>0)and(k2<>0) Then
t:= true;
Opr:=t
End;
Program Example;
Var S1, S2: String;
t1, t2: Boolean;
Function Opr (S: String; q1, q2: Char): Boolean;
…
End;
Begin
Write ('S1= ');
Readln (S1);
Write ('S2= ');
Readln (S2);
t1:=Opr (S1, 'a','o');
t2:=Opr (S2, 'd', 'h');
Writeln ('t1= ', t1, 't2= ', t2);
Readln
End.
Описание функции:
Программа:
Изучаем новое
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;
End;
Begin
Writeln (‘Введите строки’);
Readln (W);
Readln (S);
Readln (V);
Ins (W, V, S); {Вызов процедуры}
Writeln (‘S=‘, S);
Readln
End.
Исходные строки:
W = ‘Маша’
S = ‘Маша мыла раму’
V = ‘Нина’
Результат:
S = ‘Нина мыла раму’
Описание функции:
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<= Length (s) Do
Begin
If s[i]=q1 Then k1:=k1+1
Else
If s[i]=q2 Then k2:=k2+1
End;
If (k1<>0)and(k2<>0) Then
t:= true;
Opr:=t
End;
Программа:
Program Example;
Var S1, S2: String;
t1, t2: Boolean;
Function Opr (S: String; q1, q2: Char): Boolean;
…
End;
Begin
Write ('S1= ');
Readln (S1);
Write ('S2= ');
Readln (S2);
t1:=Opr (S1, 'a','o');
t2:=Opr (S2, 'd', 'h');
Writeln ('t1= ', t1, 't2= ', t2);
Readln
End.
Program Example_1;
Var S1, S2: String;
Procedure Del (Var S: String; c: Char);
Var i: Integer; {i – локальный параметр}
Begin
i := 1;
While i <= Length (S) Do
If S[i] = c Then Delete (S, i, 1)
Else i := i + 1;
End;
Begin
Write (‘Введите строку S1: ’);
Readln (S1);
Del (S1, ‘k’); {S1, ‘k’ – фактические параметры}
Writeln (‘S1=‘, S1);
Write (‘Введите строку S2: ’);
Readln (S2);
Del (S2, ‘a’); {S2, ‘a’ – фактические параметры}
Writeln (‘S2= ‘, S2);
Readln
End.
Program Example;
Var S: String;
i: Integer;
Begin
Write (‘S=‘);
Readln (S);
i := 2;
While i <= Length (s) Do
Begin
Delete (S, i, 1);
i := i +1;
End;
Writeln (‘S=‘, S);
Readln
End.
Профессия: Учитель математики и информатики
Профессия: Преподаватель информационных технологий
Профессия: Специалист по формированию электронного архива
В каталоге 6 688 курсов по разным направлениям
