Урок 3.

Тема урока: Практическая работа  «Обработка символьных величин»

 

Цели урока:

1. Познавательная

• Формировать навыки и умения составления программ с использованием текстовых данных.

2. Развивающая

• Учить строить аналогии, выделять главное, ставить и решать проблемы.

3. Воспитательная

• Воспитывать аккуратность, внимательность, вежливость и дисциплинированность.

 

Ход урока.

I.                   Орг. Момент. Сообщение темы и целей урока.

·        Научиться применять процедуры и функции для  их обработки

II.                Проверка домашнего задания.

 

 Задача. Сколько раз в слове повторяется буква.(написать программу на компьютерах).

 

Program Kolichestvo_bukv;

Uses crt;

var slovo: string;

    bukva: char;

   len, i, k:integer;

begin

clrscr;

writeln ('задайте слово ');

readln (slovo);

writeln ('задайте букву ');

readln (bukva);

k:=0;

len:=length(slovo);

for i:=1 to len do

  begin

    if slovo[i]=bukva then k:=k+1;

  end;

writeln ('количество букв’,bukva, ' в слове’ ,slovo,' - ',k);

readln;

end.

 

 

III.             Практическая работа  «Обработка символьных величин».

1.        Знакомство с функцией POS

Функция  POS   осуществляет поиск некоторого фрагмента в строке.
Если такого фрагмента нет, то результат = 0.

 

N= pos (w, word);          - номер позиции;

 

2.        Разъяснение хода практической работы.

3.      Решение задач.

Задача 1.   Какую  позицию имеет в тексте ‘электрификация’   произвольный символ?

 

program p3;
var word, w: string; N: integer;
begin
word:=‘электрификация’;
writeln (‘введите фрагмент для поиска’);
readln (w);
N= pos (w, word);          - номер позиции;
if N < > 0 then writeln (‘позиция =’,N);
else writeln (‘такого фрагмента нет’);
end.

 

Задача 2. Исправьте ошибки в слове «вилисипидисты»

 

Program velosiped;

var v: string;

   i, len :integer;

begin

v:=' вилисипидисты ';

 

len:=length(v);

for i:=1 to len do

  begin

    insert('e',v,2);                             - вставить «е»  на 2 позицию

     delete(v,3,1);                             - удалить букву с 3 позиции, то есть «и».

      insert('o',v,4);

     delete(v,5,1);

       insert('e',v,8);

     delete(v,9,1);

     end;

     writeln(v);

readln;

end.

 

 

IV.             Самостоятельная работа.

Задача.  Дана строка символов. Выделить подстроку между 1 и 2 запятыми.

Program zap;

var s1,str: string; i:integer;

begin

writeln('Введите текстt');

readln(str);

s1:=str;

i:=pos(',',s1);                -номер позиции запятой в строке

if i<>0 then                    - если номер позиции

begin

 

delete(s1,1,i);              - удалить из строки, начиная с 1 позиции i-символов

 i:=pos(',',s1);          -новый номер позиции запятой в строке

       if i<>0 then

       begin

       s1:=copy(s1,1,i-1);     -скопировать в строке с 1 позиции i-1 -символов

       writeln('текст между 1 и 2 запятой');

       writeln(s1);

        end; end;

end.

 

 

V.     Оценивание выполнения работы.

VI. Итоги урока.

VII.                     Домашнее задание: Подготовиться к ТО.