Урок по теме «Циклы с пред- и постусловием на языке Pascal» 10 класс

Автор: Галялутдинова Дамира Сиразитдиновна

Должность: учитель информатики

Категория: Высшая

Образовательное учреждение: ГБОУ  школа № 559

г. Санкт-Петербург Выборгский  район

E-mail: Damira_62@mail.ru

1 группа

1.   

2.    Сколько раз исполнится  следующий цикл:
i:=21;
Repeat

                        i:=i-5
            Until i>21;

1раз ;  21раз;  бесконечное количество раз.

3.    Найдите ошибки в программе:

var n, a, s: real;

begin readln(n)

      s:=0;

      while n>0 do

            begin a:=n mod 10;

                      s=s+a

                      n=n div 10

            end;

      writeln(s)

end

4.    Сколько раз программа выведет слово «привет»?

var n: integer;

begin n:=2;

      while n<15do

                  begin writeln(‘привет');

                            n:=n+3

                  end;

end.

5.    Результат программы?

var k, s: integer;

begin k:=1; s:=0;

          repeat k:=k+3;

                     s:=s+k;

          until k>10;

          writeln(s);

end.

6.    Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10⁹, и выводится минимальная цифра этого числа. Программист торопился и написал программу неправильно. 

var N: longint;

  digit, min_digit: integer;

begin

  readln(N);

  min_digit := 9;
  while N >= 10 do

  begin
    digit := N mod 10;
    if digit < min_digit then
      min_digit := digit;
    N := N div 10;
  end;

  writeln(digit);

end.

Последовательно выполните следующее.

1.       Напишите, что выведет эта программа при вводе числа 547.

2.       Найдите все ошибки в этой программе (их может быть одна или несколько). Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, – приведите правильный вариант строки.

1.        2 группа

2.        Какой цикл изображен на блок схеме?

3.        Сколько раз исполнится цикл:
i:=4;

      while i<10 do i:=i+3;

        2 раза; 3 раза; 4 раза.

4.    Найдите ошибки в программе:

var n, a, s: real;

begin readln(n);

      s=0

      while n>0 do

            begin a:=n mod 10;

                      if a mod 2=1 then s=s+1

                      n=n div 10

            end;

      writeln(s)

end

5.    Сколько раз программа выведет слово «ура»?

var n: integer;

begin n:=1;

      while n<16do

                  begin writeln(‘ура');

                            n:=n+4

                  end;

end.

6.        Результат программы?

var k, s: integer;

begin k:=1; s:=0;

          repeat s:=s+k;

                      k:=k+3;

          until k>10;

          writeln(s);

end.

7.    Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10⁹, и выводится минимальная цифра этого числа. Программист торопился и написал программу неправильно. 

var N: longint;

  digit, min_digit: integer;

begin

  readln(N);

  min_digit := 0;
  while N > 0 do

  begin
    digit := N mod 10;
    if digit < min_digit then
      min_digit := digit;
    N := N div 10;
  end;

  writeln(digit);

end.

Последовательно выполните следующее.

1.       Напишите, что выведет эта программа при вводе числа 862.

2.       Найдите все ошибки в этой программе (их может быть одна или несколько). Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, – приведите правильный вариант строки.

Тема: «Циклы с пред и постусловием  на языке Pascal»

Предмет: Информатика и ИКТ

Класс: 10

Ключевые слова: цикл, цикл с предусловием, цикл с постусловием, функция, ряд, точность.

Продолжительность учебного занятия:  45 минут

Тип урока: обобщающий.

Изучение управляющих конструкций «Циклы с пост и предусловием» в школьной информатике являются важным элементом курса программирования. Целесообразно рассматривать эти конструкции, опираясь на математические понятия, ранее полученные на уроках математики.

В данном уроке была поставлена цель закрепить циклы с предусловием While... do и с постусловием Repeat... until на языке Pascal на примере решения задач из ЕГЭ (В5, В8, С1) и использование бесконечных рядов для вычисления функций. Овладение методом рекуррентных соотношений при изучении представлений стандартных функций в виде асимптотических рядов позволяет познакомить учащихся с трудной, но интересной областью математики и раскрыть многие секреты программирования.

Для творческого развития учащихся очень важным обстоятельством является понимание, что программирование это не формальное манипулирование операторами, а созидательный творческий процесс, тем более успешный, чем более осознанной является связь математики, логики и информатики.

План-конспект урока

Цели урока:

Образовательные

·                     Обсуждение особенностей циклических операторов и расширение знаний по теме.

·                     Овладение синтаксисом циклических конструкций, умением строить блок-схем алгоритмов задач с циклами, выполняемыми по заданному условию.

Развивающие

·                     Развитие познавательного интереса у учащихся, умения обобщать, анализировать, сравнивать, использовать накопленные ранее знания для решения практических задач.

·                     Развитие логического мышления, умение правильно сформулировать математическую модель и алгоритм решения поставленной задачи.

·                     Овладение современным стилем программирования.

·                     Выполнение заданий творческого характера, требующих системного, исследовательского подхода к решению проблемного вопроса.

Воспитательные

·                     Формирование у учащихся потребности в практическом использовании языка программирования для решения задач в различных предметных областях.

·                     Воспитание элементов научного мировоззрения, обращение к истории математики и информатики.

·                     Воспитание интереса к учению и формирование познавательной активности.

·                     Воспитание умения четко организовать самостоятельную работу.

Методы: словесные, наглядные, практические.

Формы: фронтальные, индивидуальные.

Материально-техническая база

·                     Компьютер.

·                     Проектор, интерактивная доска.

·                     Презентация «Циклы с пред и постусловием» (Презентация)

·                     Карточки с текстом задач. (Приложение 1)

Межпредметные связи

Математика: бесконечные ряды, рекуррентные соотношения.

Ход урока

I. Вводная часть

Организационный этап. Приветствие учителя.

Объявление темы и целей урока  

II. Актуализация начальных знаний учащихся

Учитель: Язык Паскаль имеет три оператора, с помощью которых можно организовать циклическую структуру:

·                     Цикл с параметром (счетчиком) «Для» (For ... to ... do)

·                     Цикл с предусловием «Пока» (While ... do)

·                     Цикл с постусловием «До» (Repeat ... until)

Учитель:  Вспомним основные определения, рассмотренные на предыдущем уроке, какие понятия связаны с этим циклом.

III. Закрепление материала

Раздел 1. Теоретические знания циклов и языка программирования.

Учитель: С помощью циклов While... do и Repeat... until можно выполнить любую циклическую задачу.

·                     Эти циклы используются при табулировании графиков функций на заданном интервале с заданным шагом.

·                     Выполняются задачи, когда заранее неизвестно сколько раз повторять действия.

·                     C помощью этих циклов рассчитывают с заданной точностью бесконечные асимптотические ряды для тригонометрических функций.

Рассмотрим формат операторов циклов While... do и Repeat... until и проведем сравнение этих циклов.

Что общее у этих циклов? В чем разница? (Слайды 2, 3).

Обсуждаются особенности цикла While... do (Слайд 4).

Обсуждаются особенности цикла Repeat... until (Слайд 5).

Учитель: Приступим к практическому программированию. На слайде представлена программа с синтаксическими ошибками. Найти их и исправить. (Слайд 6).

var n,a,s: real;

begin readln(n);

      s:=0;

      while n>0 do

            begin a:=n mod 10;

                      if a mod 2=0 then s:=s+a;

                      n:=n div 10

            end;

      writeln(s)

end.

Ученики находят 5 ошибок в программе.

Раздел 2. Решение задач с использованием цикла While...do.

Учитель: Сколько раз программа выведет слово «привет». (Слайд 7).

var n: integer;

begin n:=0;

      while n<9 do

                  begin writeln(‘привет');

                            n:=n+2

                 end;

end.

Ответ: 5 раз. А что будет, если убрать begin и end.

Раздел 3. Решение задач с использованием цикла Repeat … until.

Учитель:  Дана программа. Что будет на экране. (Слайд 8).

var k, s: integer;

begin k:=1; s:=0;

          repeat s:=s+k;

                     k:=k+2;

          until k>8;

          writeln(s);

end.

Ответ: 16. А если поменять знак > на < (ответ 1).

Поменяем местами два оператора тела цикла. (Слайд 9).

var k, s: integer;

begin k:=1; s:=0;

          repeat k:=k+2;

                     s:=s+k;

          until k>8;

          writeln(s);

end.

 Изменится ли результат.

Ответ: да, результат 24. Сделаем вывод: порядок важен.

Учитель: Как правило, в заданиях мы определяем, что будет в ходе выполнения программы. Но иногда наоборот известен результат, а нам надо определить, что для этого ввести. В заданиях ЕГЭ это тест В8. (Слайд 10).

Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7.

var x,a,b: integer;

begin readln(x); a:=0; b:=0;

      while x>0 do

                  begin a:=a+1;

                            b:=b+x mod 10;

                            x:=x div 10

                  end;

      writeln(a); writeln(b);

end.

Ответ:700. А если изменить на наименьшее? Ответ:106.

Учитель: Рассмотрим еще два задания из ЕГЭ. Это С1. (Слайд 11).

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N и выводится максимальная цифра числа. Программист торопился и написал программу неправильно.
 1. Напишите, что выведет эта  программа при вводе числа 542.
 2. Найдите все ошибки в этой программе.

var N: longint;  d, max: integer;

begin  readln(N);

           max:= 10;
       while N > 9 do

                   begin
                        d:= N mod 10;
                        if d > max then  max:= d;
                        N := N div 10;
               end;

         writeln(max);

end.

Ответ: 10.

Следующее задание. (Слайд 12).

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, и выводится количество цифр этого числа. Программист торопился и написал программу неправильно.
1. Напишите, что выведет эта программа при вводе числа 584.
2.  Укажите число, для которого программа будет работать верно.
3. Найдите ошибку.

var N: longint;  sum: integer;

begin  readln(N);

           sum := 0;
      while N >= 9 do

                           begin
                                N := N div 10;
                                sum := sum + 1;
                       end;

           writeln(sum);

end.

Ответ:1) 2

            2) 984.

Раздел 4. Групповая работа.

Учитель: Разобьемся на группы. Вам предлагается по 6 заданий, разной степени сложности. Дается 6 мин. Какая группа справится быстрее? (Приложение 1)

Ответы на экране. (Слайд 13).

Раздел 5. Практическая работа на компьютере. 

Учитель: А сейчас работа на компьютерах. Откроем программу zadan1.pas.

1.      Исправим синтаксические ошибки.

2.      Переделаем программу на цикл Repeat … until.

Раздел 6. Вычисление функций через ряды.

Учитель:  Во многих задачах возникает необходимость вычисления бесконечных рядов c заданной точностью с помощью рекуррентных соотношений. В языках программирования стандартные функции ex, sin(x), cos(x), ln(x+1) рассчитывается с помощью   бесконечных сумм, называемые рядами, с заданной точностью e.  (Слайд 14).

Мы рассмотрим вычисление функции е^х . (Слайд 15).

IV. Домашнее задание

Задача. Напишите программу вычисления значения функции ln(x+1) для x=1 с помощью ряда с заданной точностью  и сравните результат с вычислением стандартной функции ln(x) при х=2.  (Слайд 16).

V. Материалы к уроку взяты из открытого банка задании ФИПИ

http://www.fipi.ru/

Данный материал был скачан с сайта www.metod-kopilka.ru

============================================================

!!!!!!!!Орфография и форматирование автора материала!!!!!!!!!!

========================================

Образовательно-информационный ресурс для учителей информатики,

учащихся и всех-всех, кто интересуется ИТ:

http://www.metod-kopilka.ru Методическая копилка учителя информатики

Организационные, методические и нормативные документы,

лабораторно-практические работы (комплекс занятий по MS Word, MS Excel,

MS Access, MS PowerPaint, Paint, Move Maker и др. прикладным программам),

лекции,конспекты, дидактический материал, занимательная информатика,

экзамен, проектная деятельность, презентации.

Все в свободном доступе! Без регистрации!