Инфоурок Другое ТестыОбработка строк с использованием подпрограмм

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

Скачать материал
Скачать материал

Описание презентации по отдельным слайдам:

  • Автор разработки: Тургунова Г.
ЕП-10-5Р
2013 гОбработка строк с использование...

    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 слайд

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

  • Мозговой штурмStr1:=‘ABCDEF’;
Str2:=‘abcdef’;
Insert (Str1, Str2, 3);
Результ...

    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

  • Блок-схема решения задачи:Ввод
SDelete (S, i, 1)Вывод
SКонецi ≤ Length (S)i :...

    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
    Начало

  • Программа:Program Example;
Var S: String;
      i: Integer;
Begin
   Write (‘...

    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

  • Задача 1.
Удалить из первой строки все символы  “k”, из второй – символы “a”....

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

  • Программа:

Program Example_1;
Var S1, S2: String;
Procedure Del (Var S: Stri...

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

  • Задача 2.
Даны две строки. Встречаются ли в первой строке буква “a”  и буква...

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

  • Function Opr (S: String; q1, q2: Char): Boolean;
Var i, k1, k2: Integer;...

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

  • K:= Pos (W, St)Delete (S,k, Length (w))Insert (V, St, k)КонецStroki (W,V,St)P...

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

  • Изучаем новоеПрограмма:

Program Example_3;
Var W, S, V: String;
Procedure In...

    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.

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

5 874 399 материалов в базе

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 17.11.2014 318
    • PPTX 882.4 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Тургунова Гузал Бактияровна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Пожаловаться на материал
  • Автор материала

    Тургунова Гузал Бактияровна
    Тургунова Гузал Бактияровна
    • На сайте: 7 лет и 5 месяцев
    • Подписчики: 0
    • Всего просмотров: 15388
    • Всего материалов: 13

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой