Обработка строк с использованием подпрограмм

• 1 слайд

  Автор разработки: Тургунова Г.
  ЕП-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;
  

• 2 слайд

  Содержание
  Мозговой штурм
  Проверка домашнего задания
  Изучаем новое
  Самостоятельная
  работа
  Домашнее
  задание
  

• 3 слайд

  Мозговой штурм
  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
  

• 4 слайд

  Блок-схема решения задачи:
  Ввод
  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
  Начало
  

• 5 слайд

  Программа:
  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
  

• 6 слайд

  Задача 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
  Да
  Да
  Нет
  Изучаем новое
  

• 7 слайд

  Программа:
  
  
  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
  Изучаем новое
  

• 8 слайд

  Задача 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’)
  Да
  Да
  Да
  Нет
  Нет
  Нет
  Изучаем
  новое
  

• 9 слайд

  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.
  Описание функции:
  Программа:
  Изучаем новое
  

• 10 слайд

  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.
  Изучаем новое
  

• 11 слайд

  Изучаем новое
  Программа:
  
  
  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.