Главная / Информатика / Обработка строк с использованием подпрограмм

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

Автор разработки: Тургунова Г. ЕП-10-5Р 2013 г Обработка строк с использовани...
Содержание Мозговой штурм Проверка домашнего задания Изучаем новое Самостояте...
Программа: Program Example; Var S: String; i: Integer; Begin Write (‘S=‘); Re...
Программа: Program Example_1; Var S1, S2: String; Procedure Del (Var S: Strin...
Задача 2. Даны две строки. Встречаются ли в первой строке буква “a” и буква “...
Function Opr (S: String; q1, q2: Char): Boolean; Var i, k1, k2: Integer; t: B...
K:= Pos (W, St) Delete (S,k, Length (w)) Insert (V, St, k) Конец Stroki (W,V...
Изучаем новое Программа: Program Example_3; Var W, S, V: String; Procedure In...
1 из 11

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

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

Автор разработки: Тургунова Г. ЕП-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 Программа: Program Example; Var S: String; i: Integer; Begin Write (‘S=‘); Readl
Описание слайда:

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

№ слайда 4 Программа: Program Example_1; Var S1, S2: String; Procedure Del (Var S: String;
Описание слайда:

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

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

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

№ слайда 6 Function Opr (S: String; q1, q2: Char): Boolean; Var i, k1, k2: Integer; t: Bool
Описание слайда:

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

№ слайда 7 K:= Pos (W, St) Delete (S,k, Length (w)) Insert (V, St, k) Конец Stroki (W,V,St
Описание слайда:

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

№ слайда 8 Изучаем новое Программа: Program Example_3; Var W, S, V: String; Procedure Ins (
Описание слайда:

Изучаем новое Программа: 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 = ‘Нина мыла раму’

№ слайда 9
Описание слайда:

№ слайда 10
Описание слайда:

№ слайда 11
Описание слайда:

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

Описание функции:

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.

Автор Тургунова Гузал Бактияровна
Дата добавления 17.11.2014
Раздел Информатика
Подраздел Тесты
Просмотров 414
Номер материала 1558
Скачать свидетельство о публикации

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

Введите символы, которые изображены на картинке:

Получить новый код
* Обязательные для заполнения.


Комментарии:

↓ Показать еще коментарии ↓