Тема урока: Программирование циклов.
Цель урока:
Образовательные: познакомить с понятием цикла, видами циклических алгоритмов, сформировать умения пользоваться операторами цикла, сформировать умение решать задачи с использованием цикла.
Развивающие: развивать познавательный интерес, творческую активность учащихся; развивать логическое мышление.
Воспитательные: воспитывать интерес к предмету, аккуратность, внимательность, дисциплинированность.
Тип урока: изучение нового материала
Форма урока: синтетическая.
Место урока в учебной теме: первичный
Методы и методические приемы:
1 Информационно - рецептивный:
а) словесный: рассказ - объяснение, описание, беседа,
б) наглядный: иллюстрации, демонстрация, ТСО.
Приемы обучения: изложение информации, объяснение, активизация внимания и мышления, получение из текста и иллюстраций новых знаний, работа с раздаточным материалом.
2. Репродуктивный.
Приемы обучения: подача материала в готовом виде, конкретизация и закрепление уже приобретенных знаний.
3. Визуальный: составление логических цепочек.
4. Суггестивный: применение различных видов искусства.
5. Перцептивный (восприятие и связь с жизнью):
6. Релаксопедический: психологическая разгрузка.
Межпредметные связи: математика, экономика
Материалы и оборудование: флипчарт, проектор, ноутбук
Основные понятия и термины: циклы
Ход урока:
Организационный момент
Здравствуйте, ребята! Я надеюсь, что вы настроились на урок и готовы к сотрудничеству со мной.
Актуализация опорных знаний
Пройдет совсем немного времени, вы закончите школу, поступите в ВУЗы, кто-то в столичные города и перед вами встанет множество проблем, от этого никто не застрахован. Одна из них, несомненно, переезд.
Давайте представим себе ситуацию, собираясь на учебу, вы набрали с собой кучу чемоданов с вещами (к примеру 10), из дома вас проводили родители, а как же быть в городе? Самим все таскать наверх? Конечно же, нет, мы наймем грузчика.
Давайте составим для него такой алгоритм работы, чтобы он все понял и выполнил. Итак, с чего мы начнем?
Называют возможные действия грузчика
А можно ли как-то сократить затрачиваемое нами время?
Да, если мы будем использовать цикл
Итак, что же мы будем сегодня изучать?
Циклические конструкции
Изучение нового материала
Сегодня наша задача изучить конструкции циклов и научиться пользоваться операторами цикла.
Итак, для начала давайте запишем определения:
Цикл - это специальная конструкция языка, позволяющая запрограммировать многократное выполнение определённого блока команд.
Сам блок команд называется телом цикла.
(Записывают определение)
Циклы позволяют многократно выполнять отдельный оператор или последовательность операторов, причем при этом нет необходимости записывать в тексте программы одинаковые операторы несколько раз.
Для организации циклов в Паскале используются следующие операторы:
For переменная := выражение1 to выражение2 do оператор;
For переменная := выражение1 downto выражение2 do оператор;
repeat оператор until логическое выражение (условие);
while логическое выражение (условие) do оператор.
Сегодня на уроке мы будем рассматривать конструкцию, позволяющую реализовать повторение в программах, которая называется перечисляемым циклом, циклом со счетчиком или циклом с заданным числом повторений.
For переменная := выражение1 to выражение2 do оператор;
Зарезервированные слова begin и end служат операторными скобками.
Теперь давайте рассмотрим, как же строятся блок-схемы с использованием операторов цикла.
На слайде приведен подробный вариант блок схемы.
А здесь приведена блок-схема с использованием блока «Модификатор цикла». Конечно, более компактной является запись с блоком модификатора.
А теперь, давайте попробуем применить этот оператор на примере нашей задачи.
БЛОК-СХЕМА
Давайте попробуем оставить нашему грузчику следующую инструкцию: «Приступить к переносу первого чемодана (FOR а := 1), а затем продолжать перенос до тех пор, пока на нужном этаже не окажется все 10 (TO 10) чемоданов». Если этот приказ попытаться оформить как фрагмент Паскаль-программы, то получиться следующий текст:
VAR а: integer;
FOR а := 1 TO 10 DO
BEGIN
Подойти к машине;
Взять чемодан;
Поднять чемодан на нужный этаж;
Поставить чемодан;
Вернуться назад;
END;
Подав грузчику команду FOR а := 1 TO 10 DO, мы указали, что, перенося мешки с первого по десятый, он должен их мысленно пересчитывать, чтобы не «перетрудиться» и не выгрузить больше требуемого количества.
Переменная может изменяться не только в прямом, но и в противоположном направлении – убывать. Для этого необходимо заменить зарезервированное слово TO на DOWNTO. Таким образом, форма циклической конструкции «цикл со счетчиком» целиком определяет режим повторения.
Применим это к нашей проблеме:
После того, как он закончил переносить чемоданы, вы с ужасом понимаете, что ошиблись подъездом, а это значит, что чемоданы нужно обратно спустить:
VAR а: integer;
FOR а := 10 DOWNTO 1 DO
BEGIN
Взять чемодан;
Спустить чемодан вниз;
Погрузить чемодан в машину;
Вернуться назад;
END;
Вот и все! Мы заставили грузчика работать, не разгибая спины, а в результате все вернулось на свои места.
Что ж, молодцы, теперь давайте решим еще одну задачу.
Необходимо просуммировать числа от 1 до 50 (включительно) и вывести на экран полученный результат.
Сначала составим математическую модель:
S:=1+2+3+…+50;
Отлично, теперь составим блок-схему.
Ну а теперь можно написать программу:
PROGRAM Sum;
VAR i,S: integer;
BEGIN
S:=0;
For i:=1 to 50 do
S:=S+i;
Writeln (‘Сумма чисел от 1 до 50 равна ’,S);
END.
Молодцы, хорошо справились.
Систематизация полученных знаний
Ну а теперь можно порешать задачи. Усаживайтесь за компьютеры.
Скажите, есть ли среди вас люди, кому ближе гуманитарные науки? Для вас у меня творческое задание. (Пословицы)
Проверка.
А можете ли вы назвать ситуации из жизни, в которых используются циклы?
Рефлексия
Молодцы! Спасибо вам за урок! До свидания!
Домашнее задание
§ 14 стр.91 – 101, задание в тетради
«Практическая работа:»
Задача №1
Написать программу, которая 10 раз выводит на экран Ваши имя и фамилию.
Задача №2
Написать программу, которая выводит таблицу квадратов первых 10 целых положительных чисел.
Задача №3(Задача Гаусса)
Однажды учитель дал задачу: найти сумму всех целых чисел от единицы до ста. По заведенному порядку аспидные доски с решением задач складывались на середине стола стопкой, а потом стопка переворачивалась, и учитель проверял задания.
Едва только учитель кончил диктовать, как послышался голос Гаусса: — А я уже решил!
При этом свою доску с решением он положил на середину стола.
Долго решали ученики задачу. Тем временам учитель прохаживался между партами и не без ехидства сделал Гауссу замечание:
— Карл, ты, наверное, ошибся! Нельзя в столь короткое время решить столь трудную задачу.
Уверенный в правильности своего решения, Гаусс смело ответил учителю:
— Извините, господин учитель! Я правильно решил задачу.
— Посмотрим, насколько правильно. А если неправильно? — И он угрожающе хлопнул хлыстом по своей ноге...
Каково же было изумление учителя, когда при проверке оказалось, что Гаусс решил задачу совершенно правильно, причем само решение отличалось чрезвычайной простотой и остроумием.
— Карл, расскажи классу, как ты решил задачу,—обратился к нему учитель.
Решить задачу Гаусса, используя циклический алгоритм.
Задача №5.*
Найти среднее арифметическое N первых натуральных чисел.
Задача №4. **
Написать программу, которая вычисляет сумму первых n членов ряда 3, 5, 7, 9, … . Количество суммируемых членов ряда задается во время работы программы.
Задача 1. Решение.
Program а1;
Var i:integer;
Begin
For i:=1 to 10 do
Writeln (‘Иванов Иван’);
Readln;
End.
Задача 2. Решение.
Program a2;
Var a:integer;
Begin
For a:=1 to 10 do
Writeln (a,’ ‘,sqr(a));
Readln;
End.
Задача 3. Решение
Program gauss_summa;
var a,s,n:integer;
BEGIN
n:=100;
s:=0;
for a:=1 to n do
s:=s+a;
writeln('S= ',s);
readln
END.
Задача 4. Решение
Program a2;
Var e, n, s, I : integer;
Begin
Writeln (‘введите количество чисел’);
Readln (n);
e:= 1;
s:=0;
For I:=1 to n do
Begin
S:=S+e;
E:=e+2;
End;
Writeln (‘Сумма равна: ‘,s);
Readln;
End.
Задача 5. Решение.
Var i:word;
N:integer;
Sa: real;
Begin
Readln (n);
Sa:=0;
For i:=1 to n do
Sa:=sa+I;
Sa:=sa/n;
Writeln(sa:0:4);
Readln;
End.
Тише едешь дальше будешь
Семь раз отмерь, один раз отрежь
С глаз долой из сердца вон.
Куй железо пока горячо
Не тряси яблоко, пока зелено, созреет- само упадёт.
Цыплят по осени считают
29 722
1 039 
