Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Поурочный план на тему: "Программирование циклических алгоритмов"

Поурочный план на тему: "Программирование циклических алгоритмов"

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

hello_html_25056089.jpg

Кабышева Аида Аскаровна

учитель информатики

школы-гимназии №7 им.Г.Орманова







Тема урока: Программирование циклических алгоритмов.

Цель: развитие логического и аналитического мышления

Задачи:

  1. Обучать работе с циклическими конструкциями в языке Паскаль.

  2. Развивать логическое мышление.

  3. Воспитывать интерес к предмету.
    Проверка домашнего задания. 

Ход урока:

Циклы применяются в программах для повторения определенных действий. Если количество повторений заранее известно, то применяется цикл с параметром-счетчиком.

hello_html_76a1d971.jpg

Общий вид цикла с параметром:

for i := A to B do
  begin
    <Тело цикла>;
  end;

for i := A downto B do
  begin
    <Тело цикла>;
  end;


Где:
i – параметр;
А – начальное значение параметра;
В – конечное значение параметра;

       Начальное и конечное значение параметров может быть представлено
константами, переменными, арифметическими выражениями.

 Работа цикла For i:=А То В Do <тело цикла>:

       Сначала вычисляются значения А и В. Если А<=В, то i последовательно принимает значения, равные А, А+1, …, В-1, В и для каждого из этих значений выполняется <тело цикла>. Если А>В, то <тело цикла> не выполняется ни разу.
       Оператор цикла
      
For i:=А Downtо В Do <тело цикла> выполняется аналогичным образом, но значение i изменяется с шагом -1.
       Если <тело цикла> состоит из нескольких операторов, то операторы цикла берутся в операторные скобки
Begin – end.

Задача
Вывести на экран 10 раз свое имя.

var i:integer;
begin
  for i:=1 to 10 do
    begin
      writeln('
Лена');
    end;
  readln;
end.


Задача
Вывести на экран все двузначные числа, сумма цифр которых равна заданному числу N.

var i,n:integer;
begin
  writeln('
Введите число:');
  readln(n);
    for i:=10 to 99 do
      if (i div 10)+(i mod 10)=n then writeln(i);
  readln;
end.


Задача
Среди четырехзначных чисел выбрать те, у которых все цифры различны.

uses crt;
var i,a,b,c,d:integer;
begin
  clrscr;
    for i:=1234 to 9999 do
      begin
        a:=i div 1000;
        b:=(i div 100) mod 10;
        c:=(i mod 100) div 10;
        d:=i mod 10;
        if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln(i);
      end;
  readln;
end.


Задание
Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся с клавиатуры).


      
Цикл с предусловием или с предпроверкой используется тогда, когда количество повторений заранее не известно, а задается некоторое условие продолжения цикла.

 

hello_html_8d85787.jpg
 

Оператор цикла с предусловием:

while <условие> do
  begin
    <тело цикла>
  end;


       Выполнение цикла с предусловием начинается с проверки условия. Если <условие> соблюдается, то выполняется <тело цикла>, затем вновь проверяется условие и т.д. Как только <условие> перестает соблюдаться - <тело цикла> не выполняется.

      
Цикл с предпроверкой работает до тех пор, пока <условие> истинно.

Примечание.
1. Если <тело цикла> состоит из нескольких операторов, то они должны быть объединены операторными скобками begin и end.
2. В цикле обязательно должен быть оператор, который влияет на соблюдение условия, иначе произойдет зацикливание.

Задача
Подсчитать количество цифр заданного натурального числа N.

uses crt;
var n:longint;
k:integer;
begin
  clrscr;
  writeln('Введите натуральное число');
  readln(n);
  k:=0;
    While n<>0 do
      begin
        Inc(k); { k:=k+1;}
        n:=n div 10;
      end;
  Writeln('Количество цифр: ',k);
  readln;
end.


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

var n,k:integer;
begin
  k:=0;
  write('
Введите число: '); readln(n);
    while n<>0 do
      begin
        if (n mod 10) mod 2=0 then inc(k);
        n:=n div 10;
      end;
  writeln('
Четных цифр - ',k);
  readln;
end.


      
Для программной реализации циклических алгоритмов с неизвестным заранее числом повторений имеется еще один оператор – оператор цикла с постусловием (постпроверкой), который имеет следующий вид:
 

hello_html_5f83345c.jpg


Оператор цикла с постусловием:

Repeat {повторять}
  <Тело цикла>
Unill <условие выхода>;


       Этот оператор отличается от цикла с предусловием тем, что проверка условия производится после очередного выполнения тела цикла. Это обеспечивает выполнение тела цикла хотя бы один раз.
Обратите внимание на то, что данный оператор цикла предполагает наличие нескольких операторов в теле цикла, поэтому служебные слова begin и end не нужны.
       Последовательность операторов, входящих в тело цикла, выполняется один раз, после чего проверяется соблюдение условия, записанного следом за служебным словом Until. Если условие соблюдается, цикл завершается. В противном случае – тело цикла выполняется еще раз, после чего снова проверяется соблюдение условия.

Цикл с постусловием работает до тех пор, пока не станет истинным <условие>.

Задача
Найти сумму всех нечетных цифр числа.

var n,sum,k:integer;
begin
  sum:=0;
  k:=0;
  write('Введите число: '); readln(n);
    repeat
      k:=(n mod 10);
        if k mod 2<>0 then sum:=sum+k;
      n:=n div 10;
    until n=0;
  writeln('Сумма нечетных цифр - ',sum);
  readln;
end.


Вопросы и задания
 

  1. Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.

  2. Найти сумму цифр числа, больших 5.

  3. Составить программу, проверяющую является ли последовательность из 10 чисел, введенных с клавиатуры возрастающей.

  4. Сколько раз данная цифра встречается в числе?

  5. Составить программу, проверяющую является ли натуральное число палиндромом, то есть таким, десятичная запись которого читается одинаково слева направо и справа налево.


Домашнее задание: конспект.

 



Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy

Автор
Дата добавления 18.11.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров42
Номер материала ДБ-363964
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

Похожие материалы

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