Для всех учителей из 37 347 образовательных учреждений по всей стране

Скидка до 75% на все 778 курсов

Выбрать курс
Получите деньги за публикацию своих
разработок в библиотеке «Инфоурок»
Добавить авторскую разработку
и получить бесплатное свидетельство о публикации в СМИ №ФС77-60625 от 20.01.2015
Инфоурок Информатика ТестыОбработка строк с использованием подпрограмм

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

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

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

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=‘); Re
Описание слайда:

Программа: 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: Strin
Описание слайда:

Программа: 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” и буква “
Описание слайда:

Задача 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: B
Описание слайда:

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
Описание слайда:

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 In
Описание слайда:

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

Проверен экспертом
Общая информация

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

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Облачные технологии в образовании»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

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

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