Строковые переменные

tify">  III. Разделить класс на три группы. Каждой группе дать задание. Ребята составляют программу, а затем один представитель от команды объясняет решение задачи у доски.

    Задания для групп:

     1. Выбрать из текста все буквы и сформировать другую строку из этих букв, сохранив их последовательность. 

program primer;

             var  a, m: string;

                    i: integer;

begin

        write (‘введите текст’);

        readln (a);

        m:=’’;

        for i:=1 to length(a) do

        if  ( (copy (a, i. 1) >=’a’) and (copy (a, I, 1) <=’я’) ) or ( (copy (a, i. 1) >=’А’) and

(copy  (a, I, 1) <=’Я’) ) then  m:=m + copy (a, I, 1);

        write (m);

end. 

         

 2. Найти сумму первой и последней цифр числа и разделить ее на 2. 

program primer;

             var  a1,b, c: string;

                    i, k: integer;  a, b1, c1: longint;   s, s1: real;

begin

        write (‘введите число’);

        readln (a);

        str (a, a1);

        b:=copy(a1, 1, 1);

        c:=copy(a1, length(a1), 1);

        val (b, b1, k);

        val (c, c1, k);

        s:=b1+c1;

        s1:=s/2;

        write (‘s=’, s, ‘s1=’ s1);

end. 
 

          3. Дано число. Заменить все цифры 2 на 5 и разделить новое число на 5. 

program primer;

             var  a1,b, c: string;

                    i, k: integer;  a, x: longint;   s:real;

begin

        write (‘введите число’);

        readln (a);

        str (a, a1);

        for i:=1 to length (a1) do

        begin

            b:=copy(a1, i, 1);

            if b=’2’ then begin delete (a1, i, 1); insert (‘5’, a1, i) end;

        end;

        val (a1, x, k);

         s:=x/5;

        write (‘a1=’, a1, ‘  s=’ s);

end. 

 IV. Домашнее задание: Написать программу для определения количества четных цифр в числе. 
 

Урок 10

Вид урока: практическая работа.

Тема: «Подготовка к  контрольной работе».

Цель: • совершенствование навыков составления программ;

           • развитие алгоритмического  мышления, памяти, внимания;

           • воспитание у учащихся самостоятельности. 

План.

1. Орг.момент.

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

3. Самостоятельная  работа за компьютерами.

4. Итог, домашнее задание. 

Ход урока.

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

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

program primer;

             var  a1,b : string;

                    i, k, s, b1: integer;  a: longint;  

begin

        write (‘введите число’);

        readln (a);

        str (a, a1);

        s:=0;

        for i:=1 to length (a1) do

        begin

            b:=copy(a1, i, 1);

            val (b, b1, k);

            if b1 mod 2 = 0 then s:=s+1

        end;

          write (‘количество четных цифр =’, s);

end. 

III. Задания для самостоятельной работы. 

1. Найти  сумму нечетных цифр числа  Х.

2. Определить  каких цифр больше в записи  числа Х: четных или нечетных.

3. Найти  произведение цифр заданного  числа.

4. Даны  два слова. Верно ли, что первое  слово начинается на ту же  букву, которой оканчивается второе  слово?

5. В  заданном числе заменить все  цифры 0 на цифры 9, а все 1 – на 8; к полученному числу  прибавить 999. 

IV. Домашнее задание: просмотреть все решенные задачи. 
 
 

Урок 11

Вид урока: контрольная работа.

Тема: «Строковые переменные».

Цель: • проверить уровень усвоения материала учащимися;

          • развитие алгоритмического  мышления;

          • воспитание у учащихся самостоятельности. 

План.

1. Орг.момент.

2. Самостоятельная  работа учащихся.

3. Итог. 

Ход урока. 

I.  Раздать тетради для проверочных работ. 

II. Вариант 1

1. Используя  операции копирования и конкатенации  получить из слова БАШКОРТОСТАН  новые слова:

                          корт    бак    шок    сто    

2. Написать  программу преобразования слов:

              оратор – оракул – караул - каркас  

   

3. Из  данного текста выбрать все  буквы  и сформировать другую  строку, сохранив их последовательность. 
 

Вариант 2

1. Используя  операции копирования и конкатенации  получить из слова БАШКОРТОСТАН  новые слова:

                          тост   оса   банка   рана    

2. Написать  программу преобразования слов:

              процесс – провода – природа - призрак  

   

3. В  данном тексте подсчитать количество  букв «К» и «Л». 
 

Вариант 3

1. Используя  операции копирования и конкатенации  получить из слова БАШКОРТОСТАН  новые слова:

                          стан   рот   ток   коса    

2. Написать  программу преобразования слов:

              груша – гроза – проза - проба  

   

3. В  данном тексте заменить все  буквы  «Р» на «Л».

Вариант 4

1. Используя  операции копирования и конкатенации  получить из слова БАШКОРТОСТАН  новые слова:

                         торт     кора     тон      сор    

2. Написать  программу преобразования слов:

              метка – сетка – седло - сопло  

   

3. Из  данного текста выбрать все  цифры  и сформировать другую  строку, сохранив их последовательность. 

IV. Собрать тетради. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

      ЛИТЕРАТУРА

1.Абрамов, С.А., Зима В.С. Начала программирования на языке Паскаль. – М.: Наука, 1987

2.Абрамов С.А., Трифонов Ф.П., Трифонова Г.Н. Введение в язык Паскаль: Учебное пособие. – М.: Наука, 1988

3.Бабушкина И.А., Бушмелева Н.А., Окулов С.М., Черных С.Ю. Конспекты занятий по информатике(практикум по Турбо Паскалю): Учебное пособие. – Киров: Издательство ВГПУ, 1997

4.Николаев А.Б., Акатнова Л.А., Алексахин С.В. и др. Турбо-Паскаль в примерах. Книга для учащихся 10 – 11 кл. –М. Просвещение, 2002

5.Окулов С.М. Основы программирования. Газета Информатика, приложение к газете Первое сентября.№№42-48/2000, 6-8/2001

6.Лахтин А.С., Искакова Л.Ю. Языки и технология программирования. Начальный курс. Учебное пособие. Екатеринбург, 1998.

7.Белова Т.Н., Конспекты лекций по основам алгоритмизации и программирования (практикум по Турбо Паскалю).Учебное пособие.

8.Попов В.Б.  Turbo Pascal для школьников. Москва.  Финансы и статистика. 2003